แมโคร VBA เพื่อต่อคอลัมน์ของข้อมูลใน Excel

นำไปใช้กับ: Microsoft Office Excel 2007Excel 2010Microsoft Office Excel 2003

สรุป


ใน Microsoft Excel คุณสามารถใช้แมโคร เพื่อเชื่อมข้อมูลในสองคอลัมน์ที่ติดกัน และแสดงผลในคอลัมน์ทางด้านขวาของคอลัมน์ที่ประกอบด้วยข้อมูลของคุณ บทความนี้ประกอบด้วยตัวอย่าง Microsoft Visual Basic สำหรับแมโคร Applications (VBA) (Sub procedure) ต้องการปรับแต่ง

ข้อมูลเพิ่มเติม


Microsoft ให้ตัวอย่างการเขียนโปรแกรมไว้สำหรับประกอบการอธิบายเท่านั้นโดยไม่มีการรับประกันไม่ว่าจะโดยชัดแจ้งหรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายเกี่ยวกับหน้าที่การใช้งานของกระบวนการเฉพาะ อย่างไรก็ตาม จะไม่แก้ไขตัวอย่างเหล่านี้เพื่อเพิ่มฟังก์ชัน หรือสร้างขั้นตอนเพื่อตอบสนองความต้องการเฉพาะของคุณ

ตัวอย่างของ Visual Basic for Applications (VBA) แม

Sub ConcatColumns()

Do While ActiveCell <> "" 'Loops until the active cell is blank.

'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.

ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)

ActiveCell.Offset(1, 0).Select
Loop

End Sub
หมายเหตุ: คำสั่ง ActiveCell.Offset (0, 1) FormulaR1C1 สามารถถูกแทนที่ ด้วยคำสั่ง ActiveCell.Offset (0, 1) สูตร จะสามารถใช้กับความสำเร็จเท่าถ้าคุณกำลังใช้ข้อความและตัวเลขที่เท่านั้น (ไม่สูตร) แบบ R1C1 ที่ใช้ที่ส่วนท้ายของคำสั่งแรกอ้างอิงถึงคอลัมน์ที่หนึ่ง แถวหนึ่ง และเป็นแบบฟอร์มที่ใช้ในตัวอย่างในวิธีใช้

วิธีการใช้แมโครใน Microsoft Office Excel 2007

  1. เปิดสมุดงานที่ประกอบด้วยข้อมูล
  2. กด ALT + F11 เพื่อเริ่มการทำงานของ Visual Basic Editor
  3. บนเมนูแทรกคลิกโมดูลการแทรกโมดูล พิมพ์แมโครในหน้าต่างรหัสของโมดูล
  4. บนเมนูแฟ้มคลิกปิด และกลับไปยัง Microsoft Excel
  5. เลือกแผ่นงานที่ประกอบด้วยข้อมูลที่คุณต้องการเชื่อม
  6. คลิกเซลล์ด้านบนในคอลัมน์ด้านขวาของข้อมูลที่คุณต้องการเชื่อม ตัวอย่างเช่น ถ้าเซลล์ A1:A100 และ B1:B100 ประกอบด้วยข้อมูล คลิกที่เซลล์ B1
  7. คลิกที่แท็บนักพัฒนา ถ้าแท็บนักพัฒนาไม่แสดง ให้ทำตามขั้นตอนเหล่านี้:
    1. คลิกMicrosoft Office ปุ่มและคลิกตัวเลือก Excel
    2. คลิกได้รับความนิยม
    3. คลิกเพื่อเลือกกล่องกาเครื่องหมายแท็บแสดงนักพัฒนาใน Ribbon
    4. คลิกตกลงเพื่อปิดกล่องโต้ตอบตัวเลือก Excel
  8. คลิกแมโครในกลุ่มรหัส
  9. เลือกแมโค ConcatColumns และจากนั้น คลิกเรียกใช้

วิธีการใช้แมโคร ใน Microsoft Office Excel 2003 และ ใน Excel รุ่นก่อนหน้า

  1. เปิดสมุดงานที่ประกอบด้วยข้อมูล
  2. กด ALT + F11 เพื่อเริ่มการทำงานของ Visual Basic Editor
  3. บนเมนูแทรกคลิกโมดูลการแทรกโมดูล พิมพ์แมโครในหน้าต่างรหัสของโมดูล
  4. บนเมนูแฟ้มคลิกปิด และกลับไปยัง Microsoft Excel
  5. เลือกแผ่นงานที่ประกอบด้วยข้อมูลที่คุณต้องการเชื่อม
  6. คลิกเซลล์ด้านบนในคอลัมน์ด้านขวาของข้อมูลที่คุณต้องการเชื่อม ตัวอย่างเช่น ถ้าเซลล์ A1:A100 และ B1:B100 ประกอบด้วยข้อมูล คลิกที่เซลล์ B1
  7. บนเมนูเครื่องมือชี้ไปที่แมโครและจากนั้น คลิกแมโคร เลือกแมโค ConcatColumns และจากนั้น คลิกเรียกใช้

ข้อมูลอ้างอิง


สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ Visual Basic for Applications คลิกหมายเลขบทความต่อไปนี้เพื่อดูบทความในฐานความรู้ของ Microsoft:

รายการทรัพยากรที่พร้อมใช้งานเพื่อช่วยให้คุณเรียนรู้ Visual Basic สำหรับโปรแกรมประยุกต์ที่เขียนโปรแกรม226118