excel - エクセルのコピーマクロの書き方は？

Question

Dが（空白）の場合は列Dから列Fにコピーし、空の場合はCからFにコピーし、空の場合はBからFにコピーし、その後コピーしたセルを削除するマクロを探しています。

Answer 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

スペースまたはその他の非表示アイテムを含む列が選択されることに注意してください。単純なデータがあり、列全体が本当に空であると仮定しています。