Macro VBA để ghép nối các cột dữ liệu trong Excel

Tóm tắt

Trong Microsoft Excel, bạn có thể sử dụng macro để ghép nối dữ liệu trong hai cột liền kề và để hiển thị kết quả trong cột ở bên phải của cột có chứa dữ liệu của bạn. Bài viết này chứa một mẫu macro Microsoft Visual Basic for Applications (VBA) (Thủ tục con) để thực hiện việc này.

Xem thêm thông tin

Microsoft chỉ cung cấp các ví dụ lập trình để minh họa mà không cần bảo hành dù là rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở, bảo hành ngụ ý về khả năng bán được hoặc sự thích hợp cho một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen thuộc với ngôn ngữ lập trình đang được chứng minh và với các công cụ được sử dụng để tạo và gỡ lỗi thủ tục. Kỹ sư hỗ trợ của Microsoft có thể giúp giải thích chức năng của một quy trình cụ thể. Tuy nhiên, họ sẽ không sửa đổi các ví dụ này để cung cấp chức năng bổ sung hoặc xây dựng các thủ tục để đáp ứng các yêu cầu cụ thể của bạn.

Macro Visual Basic for Applications mẫu (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

LƯU Ý: Câu lệnh ActiveCell.Offset(0, 1). Có thể thay thế FormulaR1C1 bằng câu lệnh ActiveCell.Offset(0, 1). Công thức. Chúng có thể được dùng với thành công bằng nhau nếu bạn chỉ dùng văn bản và số (không dùng công thức). R1C1 được sử dụng ở cuối câu lệnh đầu tiên tham chiếu đến hàng 1, cột một và là biểu mẫu được sử dụng trong các ví dụ trong mục Trợ giúp.
 

Cách sử dụng macro trong Microsoft Office Excel 2007

  1. Mở sổ làm việc có chứa dữ liệu.

  2. Nhấn ALT+F11 để khởi động Trình soạn thảo Visual Basic.

  3. Trên menu Chèn , bấm vào Mô-đun để chèn mô-đun. Nhập macro vào cửa sổ mã của mô-đun.

  4. Trên menu Tệp , bấm vào Đóng và Trở về Microsoft Excel.

  5. Chọn trang tính có chứa dữ liệu mà bạn muốn ghép nối.

  6. Bấm vào ô trên cùng trong cột bên phải của dữ liệu mà bạn muốn ghép nối. Ví dụ, nếu các ô A1:A100 và B1:B100 chứa dữ liệu, hãy bấm ô B1.

  7. Bấm vào tab Nhà phát triển. Nếu tab Nhà phát triển không hiển thị, hãy làm theo các bước sau:

    1. Bấm vào Nút Microsoft Office, rồi bấm vào Tùy chọn Excel.
    2. Bấm vào Phổ biến.
    3. Bấm để chọn hộp kiểm Hiển thị tab Nhà phát triển trên Dải băng.
    4. Bấm OK để đóng hộp thoại Tùy chọn Excel.

  8. Bấm macro trong nhóm Mã.

  9. Chọn macro ConcatColumns, rồi bấm Chạy.

Cách sử dụng macro trong Microsoft Office Excel 2003 và trong các phiên bản Excel cũ hơn

  1. Mở sổ làm việc có chứa dữ liệu.
  2. Nhấn ALT+F11 để khởi động Trình soạn thảo Visual Basic.
  3. Trên menu Chèn , bấm vào Mô-đun để chèn mô-đun. Nhập macro vào cửa sổ mã của mô-đun.
  4. Trên menu Tệp , bấm vào Đóng và Trở về Microsoft Excel.
  5. Chọn trang tính có chứa dữ liệu mà bạn muốn ghép nối.
  6. Bấm vào ô trên cùng trong cột bên phải của dữ liệu mà bạn muốn ghép nối. Ví dụ, nếu các ô A1:A100 và B1:B100 chứa dữ liệu, hãy bấm ô B1.
  7. Trên menu Công cụ, trỏ tới Macro, rồi bấm macro. Chọn macro ConcatColumns, rồi bấm Chạy.