ผู้เขียน หัวข้อ: Union – Join Multiple Ranges การเชื่อมหลายๆ ranges ด้วย VBA  (อ่าน 59 ครั้ง)

administrator

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 1466
    • ดูรายละเอียด


ตัวอย่าง การรวม หลายๆ ranges เข้าด้วยกัน ด้วย VBA ใน Excel  ทำได้ง่าย ไม่ยากเลย

อ้างถึง
Sub UnionExample()
 
Dim Rng1, Rng2, Rng3, Rng4 As Range
 
Set Rng1 = Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21")
Set Rng2 = Range("C1,C3,C5,C7,C9,C11,C13,C15,C17,C19,C21")
Set Rng3 = Range("E1,E3,E5,E7,E9,E11,E13,E15,E17,E19,E21")
 
Set Rng4 = Union(Rng1, Rng2, Rng3)
Rng4.Select
 
End Sub

« แก้ไขครั้งสุดท้าย: 01/02/20 โดย administrator »