เลือกคอลัมน์โดยไม่ระบุ cell ด้วย VBA code

[wthn]

สวัสดีครับ

จะรบกวนช่วยสร้าง code VBA เพื่อจะเลือกคอลัมน์ชื่อ address number ทั้งคอลัมน์ ไม่ว่าคอลัมน์ address number จะไปอยู่ในตำแหน่งไหนก็ตามบน worksheet ครับ

รบกวนด้วยครับ

[wthn]

Code: Select all

Cells.Find(What:="address number", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

ผมใช้ code นี้ในการระบุว่าอยู่ตำแหน่งไหน แต่จะเลือกคอลัมน์นี้ยังไงครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Cells.Find(What:="address number", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).EntireColumn.Select

[wthn]

ขอบคุณมากครับ ได้แบบที่ต้องการเลย