使用EXCEL宏，VBA,找出整个sheet1中的所有绿色单元格，并读取每个单元格的值

答案:4 悬赏:70 手机版

解决时间 2021-02-11 05:55

提问者网友：玫瑰园
2021-02-10 09:55

最佳答案

五星知识达人网友：患得患失的劫
2021-02-10 11:16

之前回答的，明天用电脑修改下代码。追问能今天让我看下吗？比较急，谢谢追答上班后，马上帮你哈。
把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

全部回答

1楼网友：玩世
2021-02-10 14:26

VBA找坐标帮写

2楼网友：拾荒鲤
2021-02-10 13:43

写好了，你可以参考追问你好，可以发给我看一下吗？谢谢

3楼网友：摆渡翁
2021-02-10 12:40

sub test()
dim jgarr(1 to 1000) as string
dim jgJs as integer
for each mycell in sheets（“sheet1”）.cells
if mycell.font.color=? then '?绿色的色号自己查一下
jgjs=jgjs+1
jgarr(jgjs)=mycell.text
endif
next mycell
'输出结果
sheets("sheet2").activate
for i=1 to jgjs
cells(i,1)=jgarr(i)
next i
end sub
随手写了一下，没有调试过

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息