返回列表下一主題上一主題發帖

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

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-8-12 11:46 | 顯示全部帖子

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

本帖最後由 av8d 於 2011-8-15 12:11 編輯

Private Sub CommandButton1_Click()
'複製主檔案
Range("A1:H44").Select
Selection.Copy
'貼上2.3.4...頁面
Range("A54:D97").Select
ActiveSheet.Paste
Range("A107:D150").Select
ActiveSheet.Paste
'．
'．
'．
Range("A478:D521").Select
ActiveSheet.Paste
'調整列高
Rows("45:53").Select
Selection.RowHeight = 16.5
Rows("98:106").Select
Selection.RowHeight = 16.5
'．
'．
'．
Rows("469:477").Select
Selection.RowHeight = 16.5
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 留
------------------------------------------------------------------------