如何按照指定的数字 插入行数？

72xuhours

已上传附件 求解~

72xuhours

求大神 求破 求函数~

看见星光

http://club.excelhome.net/thread-1145849-1-1.html

首席打杂

B1=A1&REPT(CHAR(13),B1)

下拉，然后复制B的内容到windows 写字板（不是word，也不是记事本），再把写字板的内容复制粘贴回Excel

看见星光

不知道楼主到底是要插入行呢还是重复数据，如果是插入空白行：
http://club.excelhome.net/thread-1165757-1-1.html

cleverzhzhf

1. Sub InsertHorizon()
   
2. Dim arr, brr(1 To 999, 1 To 2)
   
3.     arr = Range("A1").CurrentRegion
   
4.     Range("A1").CurrentRegion.ClearContents
   
5.     m = 1
   
6.     For i = 1 To UBound(arr)
   
7.         For j = m To m + arr(i, 2) - 1
   
8.             If j = m Then
   
9.                 brr(j, 1) = arr(i, 1)
   
10.                 brr(j, 2) = arr(i, 2)
    
11.             End If
    
12.         Next j
    
13.         m = j + 1
    
14.     Next i
    
15.     Range("A1:B" & m) = brr
    
16. End Sub

复制代码

准提部林

＜指定次數列出項目名稱＞
Ｄ２．公式：

1. =LOOKUP(ROW(A1)-1,SUBTOTAL(9,OFFSET(B$1,,,ROW($1:13)))-B$1:B13,A:A)&""

复制代码

資料在　１：１２　行，
ROW($1:13)))-B$1:B13　比資料行多一或多行
　

js990749225

3楼的好厉害，受教了

楚乔chuqiao

学习了，真棒呀

thomas-xian

6楼真的是神技，先把代码复制下来，慢慢研究。