請問以下程式為何不能執行 - Excel程式區

[發問] 請問以下程式為何不能執行

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-2-22 16:35 | 顯示全部帖子

回復 1# drewchen1

Sub 抓資料(K)
Dim J, K As Integer
If K <= 0 Then
MsgBox "K須大於0"
Exit Sub
End If
For J = 1 To 21
Sheets("sheet1").Cells(J + 1, K).Resize(, 3) = Sheets("data").Cells(J + 1, 2).Resize(, 3).Value
Next
End Sub

複製代碼

靜思自在 : 改變自己是自救，影響別人是救人。