表格自动填充设定颜色的问题

vteliang

[img][/img]现在只能获取第一个表格的,

Sub 颜色代码()
Dim ar, i%, d As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
    xr = .Cells(.Rows.Count, "a").End(xlUp).Row
    ar = .Range("a1:b" & xr)
    For i = 1 To UBound(ar)
        ar(i, 2) = .Cells(i, 1).Interior.ColorIndex
    Next
    .Range("a1:b" & xr) = ar
    For i = 1 To UBound(ar)
        s = ar(i, 1)
        d(s) = ar(i, 2)
    Next
End With
With Sheet2
    ar = .UsedRange
    .UsedRange.Interior.ColorIndex = xlNone
    For i = 2 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            s = ar(i, j)
            If d.exists(s) Then
                .Cells(i, j).Interior.ColorIndex = d(s)
            End If
        Next
    Next
End With
End Sub

沈默00

vteliang 发表于 2023-11-6 17:31
你好,再请教一下,我增加了一个表格,要获取颜色表格里的数据,新增加的表格不能获取,要修改哪里?

附件发上来，如果没基础自己可不好改