如何根據'n'作爲單元格中的數字插入'n'行數

Question

我有列a中的公司列表。在b欄中，我有一個數字。我需要創建一個列表，其中該公司在列表中出現多次數的值：

Company A 4 
Company B 2 
Company C 3 

我想：

Company A 
Company A 
Company A 
Company A 
Company B 
Company B 
Company C 
Company C 
Company C 

所以，這有點一「創建（N ）複製功能。

Answer 1

這給一試：

Sub KopyKat() 
    Dim N As Long, i As Long, K As Long 
    Dim v As String, kk As Long, m As Long 
    N = Cells(Rows.Count, "B").End(xlUp).Row 
    K = 1 

    For i = 1 To N 
     kk = Cells(i, "B").Value 
     v = Cells(i, "A").Value 
     For m = 1 To kk 
     Cells(K, "C") = v 
     K = K + 1 
     Next m 
    Next i 
End Sub 

編輯＃1：

宏是非常容易安裝和使用：

1. ALT-F11帶來打開VBE窗口
2. ALT-I ALT + M打開一個新的模塊
3. 粘貼的東西並關閉VBE窗口

如果您保存工作簿，宏將保存它。 如果您正在使用一個版本的Excel更高然後2003，你必須保存 該文件作爲.XLSM而非的.xlsx

要刪除宏：

1. 彈出窗口VBE如上
2. 清晰的代碼進行
3. 關閉VBE窗口

從Excel使用宏：

1. ALT-F8
2. 選擇宏
3. 觸摸RUN

要了解更多關於一般的宏，請參閱：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

必須啓用宏才能使其工作！

Answer 2

我不確定這是真的很簡單/可行的做公式或手動Excel函數，根據您的列表，所以這裏是VBA程序來完成這項工作。

要在Excel中使用此點擊Alt + F11。轉到插入>模塊。然後將其粘貼在模塊中，並運行它（調整數據範圍和工作表名稱後。

Sub MakeList() 

Dim ws As Worksheet 
Set ws = Sheets("Sheet1") 'change to your sheet name 

With ws 

    Dim c As Range 
    For Each c In .Range("A1:A3") ' assumes list in cells A1-B3 
     .Range("D" & .Rows.Count).End(xlUp).Resize(c.Offset(, 1)).Value = c.Value 'builds list in column C 
    Next 

End With 


End Sub