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

ตัวอย่างของ 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 และจากนั้น คลิกเรียกใช้