作者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