VBA 检查单元格中的文本，内容不为空，背景变白色，为空背景变红

'检查单元格中的文本，内容不为空，背景变白色，为空背景变红
`Sub GetColumnBText()
Dim text As String
Dim target As String

Dim i, j As Integer
Dim position As Integer

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("sheet1") '修改为实际的工作表名称
target = ""

For i = 6 To 326
    For j = 7 To 53
        text = ws.Cells(i, j).Value
        position = 0
       
        position = InStr(text, target)
        If position > 0 Then
           ws.Cells(i, j).Interior.ColorIndex = 2
       
        Else
           ws.Cells(i, j).Interior.Color = vbRed
		   MsgBox "i:" & i & ",j:" & j
        End If
    Next
Next
MsgBox "完了"

End Sub
`