VBA根据模板，批量拷贝新表放在同一个工作表中

Excel2119

VBA根据模板，批量拷贝新表放在同一个工作表中

1. Sub 拷贝表格1() '拷贝表格，连同行高
   
2.    
   
3.     Sheets(1).Rows("1:5").Copy
   
4.    
   
5.     For i = 0 To 50 Step 6
   
6.         With Sheets(2).Range("A" & 1 + i)
   
7.             .PasteSpecial Paste:=xlPasteAll '值：-4104，粘贴全部内容。
   
8. '            .PasteSpecial Paste:=xlPasteAllExceptBorders '值：7，粘贴除边框外的全部内容。
   
9. '            .PasteSpecial Paste:=xlPasteAllMergingConditionalFormats '值：14
   
10. '            .PasteSpecial Paste:=xlPasteAllUsingSourceTheme '值：13，使用源主题粘贴全部内容。
    
11.             .PasteSpecial Paste:=xlPasteColumnWidths '值：8，源单元格的列宽将应用于目标单元格。
    
12. '            .PasteSpecial Paste:=xlPasteComments '值：-4144，将粘贴批注。
    
13. '            .PasteSpecial Paste:=xlPasteFormats '值：-4122，将粘贴格式。
    
14. '            .PasteSpecial Paste:=xlPasteFormulas '值：-4123，将粘贴公式。
    
15. '            .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats '值：11，粘贴公式和数字格式。
    
16. '            .PasteSpecial Paste:=xlPasteValidation '值：6，源单元格中的验证将应用于目标单元格。
    
17. '            .PasteSpecial Paste:=xlPasteValues '值：-4163，仅粘贴值。
    
18. '            .PasteSpecial Paste:=xlPasteValuesAndNumberFormats '值：12，只会粘贴值数字格式。
    
19.         End With
    
20.     Next
    
21.    
    
22. End Sub
    
23. Sub 拷贝表格2() '拷贝表格，连同行高
    
24.    
    
25.     Sheets(1).Rows("1:5").Copy
    
26.    
    
27.     For i = 0 To 50 Step 6
    
28.         With Sheets(2).Range("A" & 1 + i)
    
29.             .PasteSpecial Paste:=xlPasteAll '值：-4104，粘贴全部内容。
    
30.             .PasteSpecial Paste:=xlPasteColumnWidths '值：8，源单元格的列宽将应用于目标单元格。
    
31.         End With
    
32.     Next
    
33.    
    
34. End Sub

复制代码

Excel2119

既然来了，就说几句呗！

cztanghao

python几句就解决了，vba也不错，就是语法多了点