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/07/05 12:48:30
![for each .in .语句 请赐教我这样写错在哪里?它还是照样把空白单元格错误的当成0值显示.for each c in activesheet.usedrange.cells if c.value](/uploads/image/z/12544602-42-2.jpg?t=for+each+.in+.%E8%AF%AD%E5%8F%A5+%E8%AF%B7%E8%B5%90%E6%95%99%E6%88%91%E8%BF%99%E6%A0%B7%E5%86%99%E9%94%99%E5%9C%A8%E5%93%AA%E9%87%8C%3F%E5%AE%83%E8%BF%98%E6%98%AF%E7%85%A7%E6%A0%B7%E6%8A%8A%E7%A9%BA%E7%99%BD%E5%8D%95%E5%85%83%E6%A0%BC%E9%94%99%E8%AF%AF%E7%9A%84%E5%BD%93%E6%88%900%E5%80%BC%E6%98%BE%E7%A4%BA.for+each+c+in+activesheet.usedrange.cells+if+c.value%22%22+then+if+cells%28a%2Cb%29%3Dcells%28a%2Cb%2B1%29+thenCells%28a%2Cb%29.Interior.ColorIndex+%3D+6Cells%28a%2Cb+%2B)
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