請問以下excel VBA迴圈問題
執行後看起來,變成j要跑完492迴圈才會跳出,然後跑i迴圈
怎麼修改成j跑完一次迴圈後接著跑i迴圈


Dim i As Integer
Dim j As Integer
Dim paste_row As Integer
Dim paste_row1 As Integer

For i = 3 To 495
For j = 0 To 492
paste_row = j * 19 + 1
paste_row1 = paste_row + 18

Cells(1, i).Select
Selection.Copy

Range("SF" & paste_row & ": SF" & paste_row1).Select
ActiveSheet.Paste

Next j
Next i
我沒 Excel 能測試
不過單純看程式碼我猜你是要這個
Dim i As Integer
Dim j As Integer
Dim paste_row As Integer
Dim paste_row1 As Integer

For i = 3 To 495
paste_row = i * 19 + 1
paste_row1 = paste_row + 18

Cells(1, i).Select
Selection.Copy

Range("SF" & paste_row & ": SF" & paste_row1).Select
ActiveSheet.Paste
Next i
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!