返回列表 上一主題 發帖

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

idsmchow

帖子
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

move.rar (7.06 KB)

收藏 分享

idsmchow

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2000 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-11-22 
最後登錄
2012-5-18 
3#
發表於 2012-4-29 23:52 | 只看該作者
回復 2# oobird


    謝謝回覆:)

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2012-4-29 08:43 | 只看該作者
  1. Sub Macro5()
  2.     With Sheets("sheet1")
  3.         c = 2
  4.         Do Until .Cells(5, c) = "End"
  5.             .Range(.Cells(5, c + 1), .Cells(43, c + 1)) = .Range(.Cells(5, c), .Cells(43, c)).Value
  6.             c = c + 2
  7.         Loop
  8.         End With
  9.     End Sub
複製代碼

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題