- 帖子
- 18
- 主題
- 6
- 精華
- 0
- 積分
- 29
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2000
- 閱讀權限
- 10
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2011-11-22
- 最後登錄
- 2012-5-18
|
[發問] 將current year 的數字複製到last year
將Current year 的數字複製到Last year 的column, 直至出現 End 字樣為止.
請問那裡出錯, 應如何更正?
Sub Macro5()
B = 2
C = 2
D = 3
Do Until Sheets("Sheet1").Range(Cells(5, B), Cells(5, B)) = "End"
Sheets("Sheet1").Range(Cells(5, C), Cells(43, C)).Select
Selection.Copy
Sheets("Sheet1").Range(Cells(5, D), Cells(43, D)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
B = B + 1
C = C + 2
D = D + 2
Loop
End Sub |
-
-
move.rar
(7.06 KB)
|
發表於 2012-4-29 01:06
| 
