如何根据'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  

所以,它有点像'Create(n)Duplicates'功能.

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窗口

如果保存工作簿,宏将与其一起保存.如果您在2003年之后使用的是Excel版本,则必须将文件另存为.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

必须启用宏才能使其正常工作!