本文介绍了一段使用VBA（Visual Basic for Applications）代码在Excel工作簿中搜索特定颜色（黄色）单元格，并记录其行号和列号到字符串变量的过程。代码通过嵌套循环遍历指定范围内的单元格，一旦找到目标颜色的单元格，即将其位置信息以特定格式追加到字符串中。最终，通过`MsgBox`函数展示所有记录的单元格位置。
写了一个过程，从1行1列开始寻找，寻找到黄色的就记录下来放到mystr中,最后显示出来。
Sub abc()
Dim i, j As Integer
Dim mystr As String
i = 1
j = 1
While i < 50
While j < 100
If Sheet1.Cells(i, j).Interior.ColorIndex = 6 Then
mystr = mystr + "行=" + Str(i) + ",列=" + Str(j) + Chr(13) ‘记录黄色单元格的行和列
End If
j = j + 1
Wend
i = i + 1
j = 1
Wend
MsgBox mystr
End Sub
扫一扫
2365
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
