[已解决]求助老师们！怎样让EXCEL自动复制指定的行数，并让某一列自动加上后缀

cdsdsa

之前有同学问的“怎样让EXCEL自动复制指定的行数”，这个问题的已解决了，我现在有个新的问题，就是复制行数后如何让某一列加后缀，如-1、-2、-3之类，请各位老师帮帮忙。

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-7 08:53

按H列指定数粘贴.rar (12.5 KB, 下载次数: 75)

2015-5-7 08:52 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar, br(1 To 1000, 1 To 3), n, i, x, j
   
3.     ar = Range("a1:h" & Cells(Rows.Count, 1).End(3).Row)
   
4.     For i = 1 To UBound(ar)
   
5.         For x = 1 To ar(i, 8)
   
6.             n = n + 1
   
7.             br(n, 1) = ar(i, 1) & "-" & x
   
8.             br(n, 2) = ar(i, 2)
   
9.             br(n, 3) = ar(i, 3)
   
10.         Next
    
11.     Next
    
12.     Sheets("sheet2").Range("a2").Resize(n, 3) = br
    
13.     Sheets("sheet2").Range("a2").Resize(n, 3).Borders.LineStyle = 1
    
14. End Sub
    

复制代码

附件楼下

qh8600

按H列指定数粘贴.rar (12.5 KB, 下载次数: 75)

2015-5-7 08:52 上传

点击文件名下载附件
楼主试试

cdsdsa

qh8600 发表于 2015-5-7 08:53
楼主试试

谢谢老师的指点