Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chuyển dữ liệu từ cột thành một ô trong Excel?

Thông thường, khi bạn cần chuyển một danh sách dữ liệu thành một ô trong trang tính, bạn có thể áp dụng Kết hợp chức năng hợp nhất danh sách các ô thành một ô, nhưng sẽ rất phức tạp nếu có dữ liệu khổng lồ cần được kết hợp. Bài viết này, tôi sẽ nói về một số thủ thuật nhanh chóng để bạn giải quyết công việc này trong Excel.

Chuyển dữ liệu từ cột thành một ô duy nhất với chức năng do người dùng xác định

Chuyển dữ liệu từ cột thành một ô duy nhất với Kutools cho Excel


Ngoại trừ hàm Concatenate để hợp nhất danh sách các giá trị ô, bạn có thể áp dụng mã VBA sau để nhận kết quả nhanh nhất có thể.

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Chuyển dữ liệu từ cột thành một ô duy nhất

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này: = transposerange (A1: A10) vào một ô trống để nhập kết quả và nhấn đăng ký hạng mục thi , bạn sẽ nhận được tất cả các giá trị ô trong một cột đã được đặt trong một ô duy nhất, xem ảnh chụp màn hình:

doc chuyển các ô thành một ô 1

Chú thích: Trong đoạn mã trên, A1: A10 là phạm vi danh sách bạn muốn chuyển thành một ô duy nhất và ngoài ra, bạn có thể tách nội dung đã hợp nhất bằng các dấu phân cách khác, chẳng hạn như dấu phẩy, dấu gạch ngang, dấu cách, v.v. chỉ bằng cách thay đổi dấu phẩy trong tập lệnh xStr = xStr & xCell.Value & ",".


Nếu bạn có Kutools cho Excel, với công cụ mạnh mẽ của nó-Kết hợp, bạn có thể kết hợp dữ liệu trong một cột, hàng hoặc một phạm vi thành một ô.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày.

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau :( Tải xuống miễn phí Kutools cho Excel ngay! )

1. Chọn cột dữ liệu mà bạn muốn kết hợp thành một ô.

2. Nhấp chuột Kutools > Hợp nhất & TáchKết hợp các hàng, cột hoặc ô mà không làm mất dữ liệu, xem ảnh chụp màn hình:

3. Trong hộp thoại hiện ra, hãy chọn Kết hợp thành một ô theo Để kết hợp các ô đã chọn theo các tùy chọn sauvà sau đó chỉ định dấu phân tách để tách nội dung đã hợp nhất, xem ảnh chụp màn hình:

doc chuyển các ô thành một ô 3

4. Sau đó nhấn vào Ok or Đăng Nhập và bạn sẽ nhận được kết quả sau khi bạn cần:

doc chuyển các ô thành một ô 4 2 doc chuyển các ô thành một ô 5

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!


Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (6)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn, điều này rất hữu ích.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,

Cảm ơn rất nhiều! Tôi đang sử dụng chức năng sau của bạn và nó hoạt động rất tốt. Tôi muốn bao gồm một hàm "nếu" trong dải chuyển vị. Tôi nên thêm gì vào hàm trong VBA? Về cơ bản, nó sẽ hoạt động giống như một bộ đếm. Vì vậy, chúng tôi sẽ đọc công thức = transposerangeif (phạm vi, tiêu chí).

Cảm ơn trước!

Hàm chuyển vị trí (Rg As Range)
'cập nhật bởi Extendoffice 20151207
Dim xCell As Range
Làm mờ xStr dưới dạng chuỗi
Đối với mỗi xCell trong Rg
Nếu không phải là IsEmpty (xCell.Value) thì
xStr = xStr & xCell.Value & ","
Cuối Nếu
Sau
transposeRange = Left (xStr, Len (xStr) - 1)
Cuối Chức năng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Sophie,
Bạn có thể đưa ra một ví dụ cho nhu cầu của bạn, bạn có thể chèn một ảnh chụp màn hình ở đây.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này đã rất hữu ích cho tôi một số lần. Cảm ơn bạn rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có ai biết cách thêm quy tắc có điều kiện vào hàm này không? Về cơ bản, tôi có một thư mục e-mail cho nhiều doanh nghiệp. Có một cột mà tôi liệt kê Có hoặc Không để phản hồi liệu E-mail có phải là liên hệ chính của doanh nghiệp hay không. Tôi hy vọng điều chỉnh mã để chỉ các địa chỉ liên hệ chính được kéo và liệt kê trong một ô. Do đó, điều kiện sẽ là Cột Liên hệ Chính liệt kê Có. Tôi đã thử sử dụng câu lệnh if nhưng tôi khá mới đối với tất cả điều này. Bất kì sự trợ giúp nào đều được đánh giá cao!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào bạn,
Rất vui được giúp đỡ. Vui lòng đọc bài viết này: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. Tôi tin rằng nó có thể giải quyết vấn đề của bạn. Chúc một ngày tốt lành.

Trân trọng,
Mandy
Không có bình luận nào được đăng ở đây

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL