求写一个循环

YYFran

各位大神，求助写两个循坏，将工作簿G2:H22中的值填充到（a3:c4,a7:c8,a11:c7,a11:c12,a15:c16,a19:c20,a23:c24,a27:c28)；
清除工作簿中（a3:c4,a7:c8,a11:c7,a11:c12,a15:c16,a19:c20,a23:c24,a27:c28)的值
谢谢。

kuangben8

1. Sub tianchong()
   
2.     Dim i%, arr, j%
   
3.     i = 3
   
4.     j = 1
   
5.     arr = ActiveSheet.Range("G2:H22")
   
6.     With ActiveSheet
   
7.         Do While .Cells(i - 1, 1) <> ""
   
8.             .Cells(i, 1) = arr(j, 1)
   
9.             .Cells(i, 2) = arr(j + 1, 1)
   
10.             .Cells(i, 3) = arr(j + 2, 1)
    
11.             .Cells(i + 1, 1) = arr(j, 2)
    
12.             .Cells(i + 1, 2) = arr(j + 1, 2)
    
13.             .Cells(i + 1, 3) = arr(j + 2, 2)
    
14.             i = i + 4
    
15.             j = j + 3
    
16.         Loop
    
17.     End With
    
18. End Sub

复制代码

kuangben8

先设置被填充区域单元格格式为文本格式。然后单击按钮即可。
档号标贴.zip (84.66 KB, 下载次数: 5)

2018-8-13 12:25 上传

点击文件名下载附件

YYFran

kuangben8 发表于 2018-8-13 12:25
先设置被填充区域单元格格式为文本格式。然后单击按钮即可。

只能在活动当前工作表运行，能不能再整个工作簿有效

YZC51

请参考
档号标贴.zip (69.98 KB, 下载次数: 1)

2018-8-13 15:14 上传

点击文件名下载附件

YYFran

YZC51 发表于 2018-8-13 15:15
请参考

这个还是只是在当前工作表有效，能不能写一个整个工作簿有效的

kuangben8

1. Sub tianchong()
   
2.     Dim i%, arr, j%, sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.     i = 3
   
5.     j = 1
   
6.     arr = sht.Range("G2:H22")
   
7.     With sht
   
8.         Do While .Cells(i - 1, 1) <> ""
   
9.             .Range(.Cells(i, 1), .Cells(i, 3)).NumberFormatLocal = "@"
   
10.             .Cells(i, 1) = arr(j, 1)
    
11.             .Cells(i, 2) = arr(j + 1, 1)
    
12.             .Cells(i, 3) = arr(j + 2, 1)
    
13.             .Cells(i + 1, 1) = arr(j, 2)
    
14.             .Cells(i + 1, 2) = arr(j + 1, 2)
    
15.             .Cells(i + 1, 3) = arr(j + 2, 2)
    
16.             i = i + 4
    
17.             j = j + 3
    
18.         Loop
    
19.     End With
    
20.     Next
    
21. End Sub

复制代码

kuangben8

档号标贴.zip (87.06 KB, 下载次数: 1)

2018-8-13 20:29 上传

点击文件名下载附件