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

Áp dụng cho
Excel 2010

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ột chứa dữ liệu của bạn. Bài viết này chứa macro Microsoft Visual Basic for Applications (VBA) mẫu (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, không thể hiện hoặc ngụ ý bảo đảm. Điều này bao gồm, nhưng không giới hạn, các bảo đảm ngụ ý về khả năng bán được hoặc tính phù hợp một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được trình bày cũng như với các công cụ được sử dụng để tạo và gỡ lỗi quy trình. Kỹ sư hỗ trợ của Microsoft có thể giúp giải thích chức năng của quy trình đặc biệt. Tuy nhiên, họ sẽ không sửa đổi những ví dụ này để cung cấp chức năng được bổ sung hoặc xây dựng các quy trình nhằm đáp ứng các yêu cầu cụ thể của bạn.

Macro Visual Basic for Applications (VBA) mẫu


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. Các hàm này có thể được sử dụng với thành công như nhau nếu bạn chỉ sử 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 một, cột một và là biểu mẫu được sử dụng trong các ví dụ trong 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 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 Đóng và Trở về Microsoft Excel.

  5. Hãy 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 ô A1:A100 và B1:B100 có 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 trong 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 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 Đóng và Trở về Microsoft Excel.
  5. Hãy 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 ô A1:A100 và B1:B100 có chứa dữ liệu, hãy bấm ô B1.
  7. Trên menu Công cụ , trỏ đến Macro, rồi bấm Macro. Chọn macro ConcatColumns, rồi bấm Chạy.