วิธีสร้างรายการจากช่วงใน Excel

คุณอาจต้องสร้างรายการตามช่วงของข้อมูลบ่อยๆตัวอย่างเช่นช่วงของข้อมูลเกี่ยวกับ 24 แง่สุริยจักรวาลดังที่แสดงด้านล่าง แน่นอนคุณสามารถคัดลอกและวางลงในรายการได้ด้วยตนเอง แต่ดูเหมือนจะค่อนข้างน่าเบื่อหากมีหลายคอลัมน์ในช่วง จริงๆแล้วมีเทคนิคสองสามอย่างในการสร้างรายการจากช่วงที่ระบุใน Microsoft Excel ได้อย่างง่ายดาย

สร้างรายการจากช่วงด้วย VBA

สร้างรายการจากช่วงด้วย Kutools for Excel

สร้างรายการจากช่วงด้วย VBA

อัศจรรย์! การใช้แท็บที่มีประสิทธิภาพใน Excel เช่น Chrome, Edge, Firefox และ Safari!
ประหยัดเวลา 50% และลดการคลิกเมาส์หลายพันครั้งให้คุณทุกวัน!

ใน Excel คุณยังสามารถใช้รหัส VBA เพื่อนำเข้ารายการหรือช่วงได้อย่างรวดเร็ว

1 ถือ ALT และกด F11 บนแป้นพิมพ์เพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและคัดลอก VBA ลงในโมดูล

VBA: สร้างรายการจากช่วง

Sub UniqueList()
'Updateby20140304
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range:", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("OutPut to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value
        Set OutRng = OutRng.Offset(1, 0)
    Next
Next
End Sub

3 คลิก วิ่ง หรือกด F5 เพื่อเรียกใช้ VBA กล่องโต้ตอบที่แสดงบนหน้าจอและเลือกช่วงของข้อมูลที่คุณจะสร้างรายการด้วย ดูภาพหน้าจอ:

5 คลิก OKเลือกเซลล์ที่จะแสดงรายการจากกล่องโต้ตอบป๊อปอัปจากนั้นคลิก OK. ดูภาพหน้าจอ:

จากนั้นช่วงของข้อมูลจะถูกสร้างขึ้นเป็นรายการในเซลล์ที่เลือก

สร้างรายการจากช่วงด้วย Kutools for Excel

เครื่องมือที่มีประโยชน์ - Kutools for Excel's ช่วงการแปลง ฟังก์ชั่นยังสามารถสร้างรายการจากข้อมูลช่วงได้อย่างรวดเร็วและง่ายดาย

Kutools for Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

1. เลือกช่วงข้อมูลที่คุณต้องการสร้างเป็นรายการแล้วคลิก Kutools > ตัวแปลงช่วง > ช่วงการแปลง. ดูภาพหน้าจอ:

2. ในป๊อปอัป ช่วงการแปลง โต้ตอบตรวจสอบ ช่วงเป็นคอลัมน์เดียวและคลิก OKกล่องโต้ตอบอื่นปรากฏขึ้นเพื่อให้คุณเลือกเซลล์ว่างเพื่อส่งออกรายการคลิก OK. ดูภาพหน้าจอ: