[發問] 關於For迴圈的使用(已解決)

av8d

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     '複製主檔案
   
4.     Range("A1:H44").Select
   
5.     Selection.Copy
   
6.    
   
7.     '貼上2.3.4...頁面
   
8.     Range("A54:D97").Select
   
9.     ActiveSheet.Paste
   
10. 
    
11.     Range("A107:D150").Select
    
12.     ActiveSheet.Paste
    
13.     '．
    
14.     '．
    
15.     '．
    
16.     Range("A478:D521").Select
    
17.     ActiveSheet.Paste
    
18. 
    
19.    
    
20.     '調整列高
    
21.     Rows("45:53").Select
    
22.     Selection.RowHeight = 16.5
    
23.    
    
24.     Rows("98:106").Select
    
25.     Selection.RowHeight = 16.5
    
26.     '．
    
27.     '．
    
28.     '．
    
29.     Rows("469:477").Select
    
30.     Selection.RowHeight = 16.5
    
31. 
    
32. 
    
33. End Sub

複製代碼

中間每次貼都會出現"您要取代目標的儲存格嗎?"

我計算出他們的等差=53

未來我打算利用Textbox填入後執行

請問有大大可以指導一下比較快的寫法嗎? 不一定要用For迴圈也可以

迴圈初步概念如下
Dim r1=1 , r2=44
Range("A" & r1 & ":H" & "r2").Select
For r1<478 then
    r1=r1+53
Next

For r2<521 then
    r2=r2+53
Next

不知道對不對? 煩請各位大大指導了!

------------------------------------------------------------------------
感謝2樓大大~GBKEE大大您給的正是我要的答案~再次感謝兩位!
                                                                                          2011/8/15 留
------------------------------------------------------------------------

av8d

回復 3# GBKEE

突然發現一個問題~在複製的時候~中間的第12,34列~向下複製後~下方的對應列~寬度都會變寬(原寬度16.5)~請問我是否還有下For迴圈去制定他的寬度呢?還是有其他方法?
檔案如下:
    1.rar (13.77 KB)

下載次數: 2

2011-8-17 16:53

GBKEE

回復 1# av8d

1. Sub Ex()
   
2.     Dim i As Integer
   
3.     With ActiveSheet
   
4.         .[A1:H44].Copy
   
5.         For i = 53 To 477 Step 53
   
6.             .Paste Range("a" & i)
   
7.             .Rows(i & ":" & i + 43).RowHeight = 16.5
   
8.         Next
   
9.     End With
   
10.     Application.CutCopyMode = False
    
11. End Sub

複製代碼

hugh0620

回復 1# av8d

迴圈初步概念如下
Dim r1=1 , r2=44
Range("A" r1 & ":H" & "r2").Select
For r1<478 then
    r1=r1+53
Next

For r2<521 then
    r2=r2+53
Next

樓主的語法有誤唷~  
FOR的語法應該是下述方式 (從多少到多少)
for i =1 to 100 ...... next

你可以使用Do ....Loop的方式可以上r1與r2累加到滿足妳的條件下離開~

至於樓主要的解決方式~ 是否提供檔案~ 可以比較清楚知道樓主你要的結果是什麼....