¥»©«³Ì«á¥Ñ t8899 ©ó 2013-9-6 06:44 ½s¿è
Sub zzzzz()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False
With Sheets("Sheet6")
Range("D16").Select
Selection.Copy
Range("b65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("C16").Select
Selection.Copy
Range("O65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Range("P65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B16").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end with
end sub
---------------------------------------------------------------------------------------------
¥t¥~ ¦¹¨âÓ¥i§_©ñ¦bwith ¸Ì±
1.°õ¦æ¥t¤@Ó¥¨¶°
2.Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value (¬O§_«D¦P¤@Óª«¥ó?) |