[已解决]简化代码用变量自动化

乐乐2006201506

Sub 宏1()
    Range("D3:F65").Cut
    Range("A66").Select
    ActiveSheet.Paste
    Range("G3:I65").Cut
    Range("A129").Select
    ActiveSheet.Paste
    Range("J3:L65").Cut
    Range("A192").Select
    ActiveSheet.Paste
    Range("B3").Select
End Sub
Sub 宏2()
    Range("A66:C254").Cut
    Range("D3").Select
    ActiveSheet.Paste
    Range("D66:F191").Cut
    Range("G3").Select
    ActiveSheet.Paste
    Range("G66:I128").Cut
    Range("J3").Select
    ActiveSheet.Paste
    Range("B3").Select
End Sub

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-5-28 20:26

纯修改代码，没有考虑其他：

1. Sub 宏1修改()
   
2.     Dim i%, j%
   
3.     For i = 4 To 6  '从第4列开始，循环三次剪辑，可设置循环次数
   
4.         j = (i - 4) * 2  'i的值为4,5,6，但实际的列为4,7,10，即i的基础上加0,2,4，即j的值
   
5.         Range(Cells(3, i + j), Cells(65, i + j + 2)).Cut
   
6.         Cells(3 + (i - 3) * 63, 1).Select  '63即为实际剪切的行数
   
7.         ActiveSheet.Paste
   
8.     Next
   
9. End Sub
   
10. Sub 宏2修改()
    
11.     Dim i%, j%
    
12.     For i = 1 To 3   '同样为循环三次，但这个值需要实际按行数进行计算，本例只是简化代码，所以没考虑自动计算，即总行数-2除以63，这些都是需要自己设置的
    
13.         Range(Cells(i * 63 + 3, 1), Cells((i + 1) * 63 + 2, 3)).Cut
    
14.         Cells(3, i * 3 + 1).Select
    
15.         ActiveSheet.Paste
    
16.     Next
    
17. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

纯修改代码，没有考虑其他：

1. Sub 宏1修改()
   
2.     Dim i%, j%
   
3.     For i = 4 To 6  '从第4列开始，循环三次剪辑，可设置循环次数
   
4.         j = (i - 4) * 2  'i的值为4,5,6，但实际的列为4,7,10，即i的基础上加0,2,4，即j的值
   
5.         Range(Cells(3, i + j), Cells(65, i + j + 2)).Cut
   
6.         Cells(3 + (i - 3) * 63, 1).Select  '63即为实际剪切的行数
   
7.         ActiveSheet.Paste
   
8.     Next
   
9. End Sub
   
10. Sub 宏2修改()
    
11.     Dim i%, j%
    
12.     For i = 1 To 3   '同样为循环三次，但这个值需要实际按行数进行计算，本例只是简化代码，所以没考虑自动计算，即总行数-2除以63，这些都是需要自己设置的
    
13.         Range(Cells(i * 63 + 3, 1), Cells((i + 1) * 63 + 2, 3)).Cut
    
14.         Cells(3, i * 3 + 1).Select
    
15.         ActiveSheet.Paste
    
16.     Next
    
17. End Sub

复制代码

乐乐2006201506

老司机带带我 发表于 2016-5-28 20:26
纯修改代码，没有考虑其他：

麻烦您能详细注释一下吗？谢谢！