Как написать копию макроса для Excel?

Question

Я ищу макрос, который копирует из столбца D в столбец F, если D (пустой), чем копия с C на F, если пустая копия из B в F, если пустая копия от A до 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 

Обратите внимание, что она подберет столбцы с пробелами или другими не видимых элементов. Я предполагаю, что у вас только простые данные, и весь столбец действительно пуст.