Snasui Excel Forum

Posted: **Wed Aug 14, 2013 5:44 am**

Sub test()
Range("A1").clearcontents
Range("B5").clearcontents
Range("C10").clearcontents
Range("D15").clearcontents
Range("F20").clearcontents
End Sub

อยากย่อให้สั้นกว่านี้ครับ

Posted: **Wed Aug 14, 2013 5:48 am**

Code: Select all

Sub test()
Range("A1,B5,C10,D15,F20").clearcontents
End Sub

Snasui Excel Forum

อยากให้โค้ดสั้นกว่านี้

อยากให้โค้ดสั้นกว่านี้

Re: อยากให้โค้ดสั้นกว่านี้