Excel VBA：精准定位A列到J列最后1个蓝色单元格的代码揭秘

在Excel VBA中，你可以通过循环遍历A列到J列的所有单元格，并检查每个单元格的颜色是否为蓝色。以下是一个示例代码： ```vba Sub FindLastBlueCell() Dim rng As Range Dim lastBlueCell As Range '设定查找范围为你需要的A到J列 Set rng = Range("A1:J" & Rows.Count).End(xlUp) For Each cell In rng If cell.Interior.Color = RGB(0, 0, 255) Then '这里假设蓝色为RGB(0,0,255)，实际颜色可能因设置而异 Set lastBlueCell = cell End If Next cell If Not lastBlueCell Is Nothing Then MsgBox "最后找到的蓝色单元格是：" & lastBlueCell.Address Else MsgBox "在指定范围内没有找到蓝色单元格。" End If End Sub ``` 这段代码会从A1开始向下查找，直到最后一行（根据实际数据填充情况），并记录下最后一个蓝色单元格的位置。 ######[AI写代码神器 | 242点数解答 | 2024-01-12 17:02:32]