for each .in .语句 请赐教我这样写错在哪里?它还是照样把空白单元格错误的当成0值显示.for each c in activesheet.usedrange.cells if c.value"" then if cells(a,b)=cells(a,b+1) thenCells(a,b).Interior.ColorIndex = 6Cells(a,b +
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/23 20:24:20
for each .in .语句 请赐教我这样写错在哪里?它还是照样把空白单元格错误的当成0值显示.for each c in activesheet.usedrange.cells if c.value"" then if cells(a,b)=cells(a,b+1) thenCells(a,b).Interior.ColorIndex = 6Cells(a,b +
for each .in .语句 请赐教
我这样写错在哪里?它还是照样把空白单元格错误的当成0值显示.
for each c in activesheet.usedrange.cells
if c.value"" then
if cells(a,b)=cells(a,b+1) then
Cells(a,b).Interior.ColorIndex = 6
Cells(a,b + 1).Interior.ColorIndex = 6
i = i + 1
End If
End if
Eext c
for each .in .语句 请赐教我这样写错在哪里?它还是照样把空白单元格错误的当成0值显示.for each c in activesheet.usedrange.cells if c.value"" then if cells(a,b)=cells(a,b+1) thenCells(a,b).Interior.ColorIndex = 6Cells(a,b +
Public Sub dsadsa()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.Value "" Then
If c.Value = c.Offset(0,1).Value Then
c.Resize(1,2).Interior.ColorIndex = 6
End If
End If
Next
End Sub