อยากให้แนะนำ code ยาว ให้สั้นกระทัดรัดครับ

[yodpao.b]

เนื่องจากผมใช้มาโครในการเล่นข้อมูลซ้ำแทนการเขียนโค้ดเอง
อยากให้อาจารย์ช่วยแนะนำโคดที่กระทัดรัดครับผมจากตัวอย่างด้านล่าง

Code: Select all

        Range("W3").Select
            ActiveCell.FormulaR1C1 = "=cal_1!R[4]C[-21]"

Code: Select all

        Rows("6:6").Select
        Selection.AutoFilter

Code: Select all

        Range("Z2").Select
            ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R7C26:R65536C26)"

Code: Select all

           Range("Z2:AB2").Select
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Application.CutCopyMode = False

Code: Select all

        Range("W2:AB3").Select
            Selection.ClearContents

[snasui]

เนื่องจากผมใช้มาโครในการเล่นข้อมูลซ้ำแทนการเขียนโค้ดเอง
อยากให้อาจารย์ช่วยแนะนำโคดที่กระทัดรัดครับผมจากตัวอย่างด้านล่าง
จาก

Code: Select all

        Range("W3").Select
            ActiveCell.FormulaR1C1 = "=cal_1!R[4]C[-21]"

สามารถปรับเป็น

Code: Select all

        Range("W3").FormulaR1C1 = "=cal_1!R[4]C[-21]"

จาก

Code: Select all

        Rows("6:6").Select
        Selection.AutoFilter

สามารถปรับเป็น

Code: Select all

        Rows("6:6").AutoFilter

จาก

Code: Select all

        Range("Z2").Select
            ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R7C26:R65536C26)"

สามารถปรับเป็น

Code: Select all

        Range("Z2").FormulaR1C1 = "=SUBTOTAL(9,R7C26:R65536C26)"

จาก

Code: Select all

           Range("Z2:AB2").Select
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Application.CutCopyMode = False

สามารถปรับเป็น

Code: Select all

           Range("Z2:AB2")=Range("Z2:AB2").value

จาก

Code: Select all

        Range("W2:AB3").Select
            Selection.ClearContents

สามารถปรับเป็น

Code: Select all

        Range("W2:AB3").ClearContents