从工作表“目录”中A列开始逐行复制内容到工作表模板中指定位置并新建工作表

liulang0808

jxwfz740724 发表于 2019-9-21 16:41
大佬，我试了一下，应该可以，就是有个问题，我把新工作表表格全部删除了，她还是逐行复制，而不是从头开 ...

A7单元格，就是复制按钮后面对应的用来存行号，楼主可以根据需求修改
建议具体看看代码吧

jxwfz740724

liulang0808 发表于 2019-9-21 17:08
有重复的话，新建表格肯定报错啊，表名不能重复的

是啊，一般不会重复，还有大佬，你的这个是从第四行开始复制，从第一行开始怎么执行？

jxwfz740724

liulang0808 发表于 2019-9-21 17:08
有重复的话，新建表格肯定报错啊，表名不能重复的

是啊，把这个忘了。一般不会重复，还有大佬，你的这个是从第四行开始复制，从第一行开始怎么执行？

liulang0808

行号，放在b7，自己修改吧

jxwfz740724

liulang0808 发表于 2019-9-21 17:16
行号，放在b7，自己修改吧

大佬牛叉啊，膜拜大佬。

jxwfz740724

liulang0808 发表于 2019-9-21 17:16
行号，放在b7，自己修改吧

大佬，我想在这个基础上变一下，就是目录里面，增加一列B，复制时，A1到H8，B1到I9，工作表名为H8。这个如何实现？如果是3列呢。恳请指教菜鸟。考虑到有时A1数据可能重复。如果改成新建工作表的名称从001开始，每次递增。这个如何实现？两个实现问题方法都希望大佬一一解答。谢谢啊。

liulang0808

1. Sub 按钮1_Click()
   
2.     If Sheets.Count = 3 Then
   
3.         [b7] = 0
   
4.     End If
   
5.     j = [b7] + 1
   
6.     Sheets("模板").[h8] = Sheets("目录").Cells(j, 1)
   
7.     Sheets("模板").[i9] = Sheets("目录").Cells(j, 2)
   
8.     [b7] = j
   
9. End Sub
   
10. Sub 按钮2_Click()
    
11.     Application.ScreenUpdating = False
    
12.     Sheets("模板").Copy after:=Sheets(Sheets.Count)
    
13.     Sheets(Sheets.Count).Name = Sheets("模板").[h8]
    
14.     Sheets(1).Select
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

jxwfz740724

liulang0808 发表于 2019-9-21 22:26

谢谢大佬，考虑到有时A1数据可能重复。如果改成新建工作表的名称从001开始，每次递增。就是按增加，新建的工作表名称从001开始递增。这个如何实现？

liulang0808

jxwfz740724 发表于 2019-9-22 08:02
谢谢大佬，考虑到有时A1数据可能重复。如果改成新建工作表的名称从001开始，每次递增。就是按增加，新建 ...

Sheets(Sheets.Count).Name = Sheets("模板").[h8]
修改
Sheets(Sheets.Count).Name =format( Sheets.count -3,"000")

jxwfz740724

liulang0808 发表于 2019-9-22 08:05
Sheets(Sheets.Count).Name = Sheets("模板").[h8]
修改
Sheets(Sheets.Count).Name =format( Sheets.c ...

大佬就是大佬，膜拜大佬。