-2

我正在寻找一个宏,如果 D 是(空白),则从 D 列复制到 F 列,而不是从 C 复制到 F,如果从 B 到 F 的空副本,如果从 A 到 F 的空副本,然后删除复制的单元格。

4

1 回答 1

1

这应该让你开始:

Sub CopyCol()
    If Application.CountA(Range("D:D")) > 0 Then
        Range("F:F").Value = Range("D:D").Value
        Range("D:D").FormulaR1C1 = ""
    ElseIf Application.CountA(Range("C:C")) > 0 Then
        Range("F:F").Value = Range("C:C").Value
        Range("C:C").FormulaR1C1 = ""
    ElseIf Application.CountA(Range("B:B")) > 0 Then
        Range("F:F").Value = Range("B:B").Value
        Range("B:B").FormulaR1C1 = ""
    ElseIf Application.CountA(Range("A:A")) > 0 Then
        Range("F:F").Value = Range("A:A").Value
        Range("A:A").FormulaR1C1 = ""
    End If
End Sub

请注意,它将拾取带有空格或其他不可见项目的列。我假设您只有纯数据,并且整个列确实是空的。

于 2013-10-05T20:43:12.857 回答