Excel 如何在列中复制值？

如果我有一个列，列中有许多不同的公司名称，我如何能够复制一定数量的所有值？例如，如果我有一列写着“公司a、公司B、公司C”，我怎么能让它说“公司a、公司a、公司a、公司B、公司B、公司C、公司C、公司C”？

假设原始数据在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

---

复制两次并排序？