如何寫Excel中複製宏？

Question

我尋找其從塔d複製到F列如果d是（空白）的宏比從複製C至F如果從乙空複製到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 

注意，它會拿起用空格或其他不可見的物品欄。我假設你只有簡單的數據，整個列都是空的。