返回列表下一主題上一主題發帖

[發問] 將current year 的數字複製到last year

idsmchow

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 29
點名: 0
作業系統: WINXP
軟體版本: OFFICE2000
閱讀權限: 10
性別: 男
來自: HK
註冊時間: 2011-11-22
最後登錄: 2012-5-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-29 01:06 | 顯示全部帖子

[發問] 將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