VBA 自动先下填充公式

woni123654

我的目的是  提取C列 填充颜色 的数值
把数值 填写在D列
假如 C列 有20行 带不同填充颜色的单元格 我只要这20行的数据
应该怎么写代码 谢谢
我自己写的代码 不对  只是复制 D1的结果。。
求高手 帮忙解决 谢谢
Sub 颜色提取()
Range("d1") = Range("c1").Interior.ColorIndex
Range("d1:d20").FillDown
End Sub

不知道为什么

你的代码是反馈的D1结果啊。因为你range（“d1”）里不是公式，是值。

你这个问题用循环解决把。

xiangbaoan

Sub do_loop_until()
Dim i%
Do Until i = 20
    i = i + 1
    Cells(i, 4) = Cells(i, 3).Interior.ColorIndex
Loop
End Sub
Sub do_loop_while()
Dim i%
Do While i < 20
    i = i + 1
    Cells(i, "d") = Cells(i, "c").Interior.ColorIndex
Loop
End Sub
Sub for_next()
Dim i%
For i = 1 To 20
    Rang("d" & i) = Range("c" & i).Interior.ColorIndex
Next
End Sub