求助大神

RACHEL654321

求大神帮助。A列的数量是折分表格后的行数，C列的数据按A列的数量来增加行数，如A列是10就是变成10行。C列的数就递增到10行。其它列的数据就复制上一行的内容，有就复制，没有变空白。请大神帮助。
运行宏前的效果如图1

运行宏前的效果如图2

RACHEL654321

今天这个网页终于能打开了、吓死我了。我还以为以后都开不了了

lmze2000

RACHEL654321 发表于 2017-11-17 17:24
今天这个网页终于能打开了、吓死我了。我还以为以后都开不了了

1. Sub 增加()
   
2.     Dim Arr, Brr, Tmp, Str
   
3.     Arr = [a1].CurrentRegion
   
4.     ReDim Brr(1 To Arr(2, 1), 1 To UBound(Arr, 2))
   
5.     Tmp = Right(Arr(2, 3), 3)
   
6.     Str = Replace(Arr(2, 3), Tmp, "")
   
7.     For i = 1 To Arr(2, 1)
   
8.         Brr(i, 1) = Arr(2, 1)
   
9.         Brr(i, 2) = Arr(2, 2)
   
10.         Brr(i, 3) = Str & Format(Tmp + i - 1, "000")
    
11.         
    
12.         For j = 4 To UBound(Arr, 2)
    
13.             Brr(i, j) = Arr(2, j)
    
14.         Next
    
15.     Next
    
16.     [a4].Resize(Arr(2, 1), UBound(Arr, 2)) = Brr
    
17. End Sub
    

复制代码

大致这样的效果，你自己在修改一下。

RACHEL654321

回复很有用，谢谢，但是我是vba菜鸟，样表是只有一行，如果有多行应该怎么写代码？

lmze2000

RACHEL654321 发表于 2017-11-18 22:28
回复很有用，谢谢，但是我是vba菜鸟，样表是只有一行，如果有多行应该怎么写代码？

你多行的是什么样子的，最好扔上个附件啥的。

RACHEL654321

样表上传了，请帮写一下代码。谢谢。

RACHEL654321

今天都上传不了附件和图片。

lmze2000

RACHEL654321 发表于 2017-11-19 22:33
今天都上传不了附件和图片。

你 说的那个多行的，是啥样的，不太清楚你要求的样子。

RACHEL654321

多行的表就是每行的第一列是这行需要折成的行数，如A1是10就表示这一行要折成10行，C列就是数据逐行增加。其它列的数据如果有就是复制第一行的内容，如果没有就空着。

RACHEL654321

多行的表就是每行的第一列是这行需要折成的行数，如A1是10就表示这一行要折成10行，C列就是数据逐行增加。其它列的数据如果有就是复制第一行的内容，如果没有就空着。