帮我代码变量写下

zhu945275

麻烦大神帮我变量写下，或者有什么资料可以参考下。先提前谢谢了 模版2.0.zip (35.42 KB, 下载次数: 0)

2018-8-9 14:14 上传

点击文件名下载附件

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     Range("A9:F18").Select
   
8.     Selection.Copy
   
9.     ActiveWindow.SmallScroll Down:=21
   
10.     Range("A30").Select
    
11.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
12.         :=False, Transpose:=False
    
13.     Application.CutCopyMode = False
    
14.     Selection.Copy
    
15.     Sheets("1").Select
    
16.     Rows("9:9").Select
    
17.     Selection.Insert Shift:=xlDown
    
18.     ActiveWindow.SmallScroll Down:=9
    
19.     Rows("9:19").Select
    
20.     Range("A19").Activate
    
21.     Selection.RowHeight = 15
    
22.     Rows("20:20").Select
    
23.     Selection.RowHeight = 29
    
24.   
    
25. End Sub

复制代码