Board logo

標題: [發問] 迴圈問題 [打印本頁]
作者: 假面超人    時間: 2012-8-4 12:19     標題: 迴圈問題

請問以下的動作要如何寫成迴圈?
我用兩個for 寫但出來的結果都不是我要的值

Sheets("sheet3").Range("a2 : a6") = Sheets("sheet1").Cells(2, 1)
Sheets("sheet3").Range("a7 : a11") = Sheets("sheet1").Cells(3, 1)
Sheets("sheet3").Range("a12 : a16") = Sheets("sheet1").Cells(4, 1)
作者: Hsieh    時間: 2012-8-4 12:47

回復 1# 假面超人

For i = 2 To 4
Sheets("sheet3").Range("a2").Offset((i - 2) * 5).Resize(5, 1) = Sheets("sheet1").Cells(i, 1)
Next
作者: GBKEE    時間: 2012-8-4 17:21

回復 1# 假面超人
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR(), I As Integer
  4.     AR = Array("a2 : a6", "a7 : a11", "a12 : a16")
  5.     For I = 1 To UBound(AR) + 1
  6.         Sheets("sheet3").Range(AR(I - 1)) = Sheets("sheet1").Cells(I + 1, 1)
  7.     Next
  8. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)