Question

早上好，

我的C8范围：C17 有些细胞是红色的，有些是没有颜色的。我希望没有颜色的单元格转移到A列。

这是我的代码：

Dim a As Long
    a = 1 'we set the row where we start filling in the single sames
     If Range("C8:C17").Interior.ColorIndex = xlColorIndexNone Then
        Cells(a, "A").Value = Range("C8:C17").Value
        a = a + 1
     End If

Answer 1

下面的代码循环遍历Range("C8:C17")中的所有单元格，并检查当前单元格是否未着色。如果它不是colores，那么它会将它粘贴到下一个空行（从第一行开始）的A列。

Option Explicit

Sub CopyColCells()

Dim a As Long
Dim C As Range

a = 1 'we set the row where we start filling in the single sames
For Each C In Range("C8:C17")
    If C.Interior.ColorIndex = xlColorIndexNone Then
       Cells(a, "A").Value = C.Value
       a = a + 1
    End If
Next C

End Sub

如果我的细胞没有颜色，那么复制它

1 个答案: