我尝试过使用GUI和VBA来查找和填充空白。
不幸的是,两者都找不到最后一组空白。
示例:
如果我突出显示单元格1到20,并使用GUI (查找-> Goto ->空白.)它只高亮显示高于“已完成”行的项目。类似于此代码
With Range("B1:B20").SpecialCells(xlCellTypeBlanks)
如果我突出显示从17到20,并使用GUI,它确实找到/高亮显示最后一个空白单元格。单元格不包含数据(我已经检查过)。我能得到什么使Excel不停止在第17行
谢谢
发布于 2018-09-18 17:38:50
试试下面这个简单的代码:
Sub HighlightBlanks1()
Dim c
For Each c In Range("B1:B20")
If IsEmpty(c) Then
c.Interior.ColorIndex = 3
End If
Next
End Sub
'or using your approach
Sub HighlightBlanks2()
Range("B1:B20").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
End Sub
https://stackoverflow.com/questions/52391866
复制相似问题