麻辣家族討論版版 » Excel程式區 » 請問以欄為主的儲存格~如何設定迴圈?(已解決)

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

[發問] 請問以欄為主的儲存格~如何設定迴圈?(已解決)

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-9-21 20:36 | 只看該作者

[發問] 請問以欄為主的儲存格~如何設定迴圈?(已解決)

本帖最後由棋語鳥鳴於 2011-9-21 21:25 編輯

請問如何把下面寫成迴圈(共20個)
因為中有檔案一中(每2欄就有加了一欄資料)~所以從第二次貼到檔案二時會減一欄
錄製的程式碼如下:
請問迴圈要如何寫?
順便問一下:column(2)=Columns("B")
Columns("B:C")中的BC要如何以數字方式呈現??

複製代碼

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-9-21 21:02 | 只看該作者

回復 1# 棋語鳥鳴

Sub Ex()
Dim Rng As Range, Rng1 As Range, i As Integer
Set Rng = Workbooks("檔案一.xlsb").Sheets("輸入一").Columns("T:U")
Set Rng1 = Workbooks("檔案二.xlsb").Sheets(1).[T1] 'Sheets(1) ->第1張工作表
'Set Rng1 = Workbooks("檔案二.xlsb").ActiveSheet.[T1] 'ActiveSheet ->作用中的工作表
'Set Rng1 = Workbooks("檔案二.xlsb").Sheets("???").[T1] 'Sheets("???") ->指定的工作表
For i = 1 To 20 '20次的迴圈
Rng.Copy Rng1
Set Rng = Rng.Offset(, 3) '往後位移3欄
Set Rng1 = Rng1.Offset(, 3) '往後位移3欄
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

3^#

發表於 2011-9-21 21:24 | 只看該作者

回復 2# GBKEE

G大您真強，這麼短的時間就改好了，而且寫得這麼詳細!一看就明瞭!完全正確~省了我好多的時間!謝謝您了~~

靜思自在 : 得理要饒人，理直要氣和。

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