excel vba提取无填充颜色单元内容到另表

1。表一（D8：I16）无填充颜色单元内容到另表

2024-11-01 04:20:03

推荐回答（1个）

回答1：

Sub xx()
    Const t = 2
    a = String(t, "X")
    With Sheets("sheet1")
    For i = 5 To 10
        k = 13
        For j = 8 To 16
            If .Cells(j, i).Interior.ColorIndex = xlNone Then
                Sheets("sheet2").Cells(k, i + 5) = a & .Cells(j, i)
                k = k + 1
            End If
        Next
    Next
    End With
End Sub