標題: [發問] 如何簡化程式 [打印本頁]

---

作者: luke    時間: 2012-4-13 14:42     標題: 如何簡化程式

各位大大

小弟錄製了1個巨集如下, 煩請先進指導簡化程式

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    時間: 2012-4-13 15:32

回復 1# luke

是這樣嗎

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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)