[µo°Ý] ±Ncurrent year ªº¼Æ¦r½Æ»s¨ìlast year

idsmchow

±NCurrent year ªº¼Æ¦r½Æ»s¨ìLast year ªºcolumn, ª½¦Ü¥X²{ End ¦r¼Ë¬°¤î.
½Ð°Ý¨º¸Ì¥X¿ù, À³¦p¦ó§ó¥¿?

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

oobird

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

½Æ»s¥N½X

idsmchow

¦^´_ 2# oobird


    ÁÂÁ¦^ÂÐ:)