Как я могу дублировать значения в столбце?

Question

Если у меня есть столбец со многими названиями компаний, как я могу дублировать все значения на определенную сумму? Например, если бы у меня была колонка с «Company A, Company B, Company C», как я могу ее назвать «Компания A, Компания A, Компания A, Компания B, Компания B, Компания B, Компания C, Компания C , Компания C "?

Answer 1

Предполагая, что исходные данные в колонке и столбец 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