[VBA ] 轉寫儲存格
以下是我原本的程式碼
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
→
08/20 17:05, , 1F
08/20 17:05, 1F
→
08/20 21:27, , 2F
08/20 21:27, 2F
→
08/21 14:24, , 3F
08/21 14:24, 3F
→
08/21 14:24, , 4F
08/21 14:24, 4F