你好,可以发给我看一下吗?谢谢
能今天让我看下吗?比较急,谢谢
追答上班后,马上帮你哈。
把Sheet1绿色单元格数据,获取到Sheet2表的A列
代码复制到Sheet1
Sub 获取绿色单元格地址()
Dim rng
For Each rng In Range("a1:z100")
If rng.Interior.ColorIndex = 10 Or rng.Interior.ColorIndex = 4 Then
N = N + 1
Sheets(2).Cells(N, 1) = rng.CurrentRegion.Address
End If
Next
Sheets(2).Select
End Sub