[已解决]求代码找出每列中红色底单元格下1单元格的数据

cocofans · 发表于 2014-2-21 17:11

本帖最后由 cocofans 于 2014-2-21 21:23 编辑

求代码找出每列中红色底单元格下1单元格的数据

最佳答案

dsmch

2014-2-21 19:44

………………

dsmch · 发表于 2014-2-21 19:41

Sub Macro1()
Dim x&, i&, j%
x = Range("a65536").End(xlUp).Row
For j = 2 To 19
s = 391
For i = x To 8 Step -1
If Cells(i - 1, j).Interior.ColorIndex = 3 Then s = s + 1: Cells(s, j) = Cells(i, j)
Next
Next
End Sub

复制代码

dsmch · 发表于 2014-2-21 19:44

………………

		自动登录	找回密码
密码			注册