ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦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

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD