如何在列中複製值？

Question

如果我有一個有許多不同公司名稱的專欄，我怎樣才能將所有值複製一定數量？例如，如果我有「A公司，B公司，C公司」這一欄，我怎麼能說「A公司，A公司，B公司，B公司，B公司，C公司，C公司，公司C「？

Answer 1

假設原始數據是在列一個和列乙是空的，試試這個小宏：

Sub ThreeTimes() 
    Dim N As Long, K As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    K = 1 
    For i = 1 To N 
     Cells(i, "A").Copy Range(Cells(K, "B"), Cells(K + 2, "B")) 
     K = Cells(Rows.Count, "B").End(xlUp).Row + 1 
    Next i 
End Sub