用VBA写一段代码： 1.将E5单元格到J31单元格之间，无填充颜色，且内容为空的单元格填充为红色； 2.将上述操作应用到所有sheet；

对于您的问题，我可以为您提供以下VBA代码：

Sub FillEmptyCells()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.Range("E5:J31").SpecialCells(xlCellTypeBlanks)
.Interior.Color = vbRed
End With
Next ws
End Sub

此代码可以将所有工作表中E5到J31单元格之间无填充颜色且内容为空的单元格填充为红色。希望这可以帮助到您。