[已解决]求助！！！如何将标色的对应列下的字母提出，如果一行没有，默认对应列

ksgbds

如何将标色的对应列下的字母提出，如果一行没有，默认对应列

最佳答案

月排行榜 / 总排行榜

Zipall

2012-6-24 17:01

Sub test()
    For r = 4 To Range("c65536").End(xlUp).Row
        For c = 3 To 8
            If Cells(r, c).Interior.ColorIndex = 3 Then
                t = c
                Cells(r + 1, 11) = Cells(r + 1, t).Value
                Exit For
            End If
        Next
        If c = 9 Then Cells(r + 1, 11) = Cells(r + 1, t)
    Next
End Sub

跳转到最佳答案楼层

Zipall

Sub test()
    For r = 4 To Range("c65536").End(xlUp).Row
        For c = 3 To 8
            If Cells(r, c).Interior.ColorIndex = 3 Then
                t = c
                Cells(r + 1, 11) = Cells(r + 1, t).Value
                Exit For
            End If
        Next
        If c = 9 Then Cells(r + 1, 11) = Cells(r + 1, t)
    Next
End Sub

ksgbds

Zipall 发表于 2012-6-24 17:01
Sub test()
    For r = 4 To Range("c65536").End(xlUp).Row
        For c = 3 To 8

非常感谢

还有一个疑问，如果第一列前再加一列，代码应该怎么改呢，谢谢！！！