作者e1911r0304 (波)
看板Visual_Basic
標題[VBA ] 轉寫儲存格
時間Mon Aug 20 15:09:18 2012
以下是我原本的程式碼
Sub 名稱轉寫2()
Sheets("Sheet2").Activate
Range("B2").Select
Dim motoSht As Worksheet, sakisSht As Worksheet, sakiRng As Range
Dim motoHani()
Set motoSht = Sheets("VBA小天地")
Set sakiSht = Sheets("Sheet2")
motoHani = Array("c2", "c3", "c4", "c5", "c6", "c7", "c8", "c9", "c10",
"c11", "c12", "c13", "c14")
Set sakiRng = sakiSht.Range("B" & Columns.Count).End(xlUp).Offset(0)
For i = 0 To UBound(motoHani)
sakiRng.Offset(0, i).Value = motoSht.Range(motoHani(i)).Value
Next
End Sub
然後在 motoHani 那邊 我想說如果我要轉寫的範圍很大
是不是要一直C2,C3,C4.....打到C500
還是有辦法直接用 RANGE 的方式當作轉寫範圍?
小弟初學..希望有前輩可以指教
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 101.14.130.35
1F:→ MOONRAKER:range(cells(i1, j1), cells(i2, j2)) 08/20 17:05
2F:→ e1911r0304:然後跟別定義i1,i2,j1,j2嗎? 08/20 21:27
3F:→ MOONRAKER:以c2:c14而言就是range(cells(3,2), cells(3,14)) 08/21 14:24
4F:→ MOONRAKER:抱歉,行列弄反,range(cells(2, 3), cells(14, 3)) 08/21 14:24