如何复制列中的值？

Question

如果我有一个包含许多不同公司名称的列，我该如何将所有值复制一定数量？例如，如果我的专栏有“公司A，公司B，公司C”，我怎么能说“公司A，公司A，公司A，公司B，公司B，公司B，公司C，公司C” ，公司C“？

Answer 1

假设原始数据位于 A 列中， B 列为空，请尝试使用此小宏：

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