¥»©«³Ì«á¥Ñ sax868 ©ó 2012-5-23 16:01 ½s¿è
05222012.zip (10.85 KB)
- Sub Macro4()
- '
- ' Macro4 Macro
- '
- '
- Range("C6,C11,C13,C15,C17,C19,C21,C23,C28,C31:C33,C6").Select
- Selection.FormulaR1C1 = "=R[-1]C"
- Range("E3:E6,E8:E11,E13,E15,E17,E19,E21,E23,E25:E28,E30:E34,E3").Select
- Selection.FormulaR1C1 = "=R[-1]C"
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Rows("33:34").Select
- Application.CutCopyMode = False
- Selection.Delete Shift:=xlUp
- Range("B32").Select
- End Sub
½Æ»s¥N½X
¦U¦ì¤j¤j¤È¦w:
½Ð°Ý¸Ó¦p¦ó¼¶¼gVBA¡A±NªÅ®æ¶ñº¡? ¥H¤W¬O§Ú¿ýªº¥¨¶°·Ð½Ð°Ñ¦Ò
§Ú¸ÕµÛ¼g¥i¬O¤£ÆF¥ú:
Sub FF()
Columns("C:C").Select
Rng.Replace "", "=R[-1]C"
End Sub
«ô°U°ª¤â¤j¤jÌÀ°À°§Ú...
ÁÂÁÂ!
®z¤k¤l¯d |