[µo°Ý] ¦p¦ó²¤Æµ{¦¡

luke

¦U¦ì¤j¤j

¤p§Ì¿ý»s¤F1­Ó¥¨¶°¦p¤U, ·Ð½Ð¥ý¶i«ü¾É²¤Æµ{¦¡

Sub Test()
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""",RC[-8],RC[-3])"
    Range("K1").Copy
    Range("K2:K15").Select
    ActiveSheet.Paste
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]="""",RC[-8],RC[-3])"
    Range("L1").Copy
    Range("L2:L15").Select
    ActiveSheet.Paste
    Columns("K:L").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Columns("H:J").Select
    Range("J1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
   
End Sub

register313

¦^´_ 1# luke

¬O³o¼Ë¶Ü

1. Sub Test()
   
2. Range("K1:L15").FormulaR1C1 = "=IF(RC[-3]="""",RC[-8],RC[-3])"
   
3. Range("K1:L15") = Range("K1:L15").Value
   
4. Columns("H:J").Delete
   
5. End Sub

½Æ»s¥N½X