Ví dụ
A1:I
A2:am
A3:a
A4:boy
Tôi muốn hợp nhất tất cả chúng thành một ô duy nhất "Iamaboy"
Ví dụ này cho thấy 4 ô hợp nhất thành 1 ô tuy nhiên tôi có nhiều ô (hơn 100), tôi không thể gõ từng ô một bằng cách sử dụng A1 & A2 & A3 & A4Tôi có thể làm gì?
Câu trả lời:
Tôi giới thiệu cho bạn chức năng VBA ConcatenateRange của tôi (cảm ơn Jean về lời khuyên đặt tên!). Nó sẽ lấy một loạt các ô (bất kỳ chiều nào, bất kỳ hướng nào, v.v.) và hợp nhất chúng lại với nhau thành một chuỗi duy nhất. Là một tham số thứ ba tùy chọn, bạn có thể thêm một bộ tách (như dấu cách hoặc dấu phẩy được phân tách).
Trong trường hợp này, bạn sẽ viết cái này để sử dụng nó:
=ConcatenateRange(A1:A4)
Function ConcatenateRange(ByVal cell_range As range, _
Optional ByVal separator As String) As String
Dim newString As String
Dim cell As Variant
For Each cell in cell_range
If Len(cell) <> 0 Then
newString = newString & (separator & cell)
End if
Next
If Len(newString) <> 0 Then
newString = Right$(newString, (Len(newString) - Len(separator)))
End If
ConcatenateRange = newString
End Function
ConcatenateRange! Excel ngu ngốc CONCATENATEchức năng sẽ không chấp nhận một loạt như một đầu vào, chỉ có một danh sách các tế bào riêng lẻ như các đối số riêng biệt ...
Else newString = newString & (separator & Space(1))khi tôi cần giữ lại chiều rộng cố định trong chuỗi kết quả của mình.
Nếu bạn muốn làm điều này mà không cần VBA, bạn có thể thử các cách sau:
Ô B999 bây giờ sẽ chứa chuỗi văn bản nối mà bạn đang tìm kiếm.
Bên trong CONCATENATEbạn có thể sử dụng TRANSPOSEnếu bạn mở rộng nó ( F9) sau đó loại bỏ các {}dấu ngoặc nhọn xung quanh như đề xuất này
=CONCATENATE(TRANSPOSE(B2:B19))
Trở thành
=CONCATENATE("Oh ","combining ", "a " ...)
Bạn có thể cần thêm dấu phân tách của riêng mình vào cuối, giả sử tạo cột C và chuyển vị cột đó.
=B1&" "
=B2&" "
=B3&" "
Trong những trường hợp đơn giản, bạn có thể sử dụng phương pháp tiếp theo không yêu cầu bạn tạo một hàm hoặc sao chép mã vào một số ô:
Trong bất kỳ ô nào, hãy viết mã tiếp theo
=Transpose(A1:A9)
Trong đó A1: A9 là các ô bạn muốn hợp nhất.
F9Sau đó, ô sẽ chứa chuỗi:
={A1,A2,A3,A4,A5,A6,A7,A8,A9}
Nguồn: http://www.get-digital-help.com/2011/02/09/concatenate-a-cell-range-without-vba-in-excel/
Cập nhật: Một phần có thể không rõ ràng. Không rời khỏi ô có nghĩa là ô của bạn đang ở chế độ chỉnh sửa. Thay thế, bạn có thể nhấn F9 khi đang ở trong bảng điều khiển của trình chỉnh sửa ô (thông thường, bạn có thể tìm thấy nó phía trên bảng tính)
Sử dụng Joinchức năng đã có của VBA . Các hàm VBA không được hiển thị trong Excel, vì vậy tôi gói Jointrong một hàm do người dùng xác định để hiển thị chức năng của nó. Hình thức đơn giản nhất là:
Function JoinXL(arr As Variant, Optional delimiter As String = " ")
'arr must be a one-dimensional array.
JoinXL = Join(arr, delimiter)
End Function
Ví dụ sử dụng:
=JoinXL(TRANSPOSE(A1:A4)," ")
được nhập dưới dạng công thức mảng (sử dụng Ctrl- Shift- Enter).
Bây giờ, JoinXLchỉ chấp nhận mảng một chiều làm đầu vào. Trong Excel, phạm vi trả về mảng hai chiều. Trong ví dụ trên, TRANSPOSEchuyển đổi mảng hai chiều 4 × 1 thành mảng một chiều 4 phần tử (đây là hành vi được ghi lại TRANSPOSEkhi nó được cung cấp bằng mảng hai chiều một cột).
Đối với phạm vi ngang, bạn sẽ phải thực hiện gấp đôi TRANSPOSE:
=JoinXL(TRANSPOSE(TRANSPOSE(A1:D1)))
Bên trong TRANSPOSEchuyển đổi mảng 2 chiều 1 × 4 thành mảng hai chiều 4 × 1, mảng bên ngoài TRANSPOSEsau đó chuyển đổi thành mảng một chiều 4 phần tử được mong đợi.
Cách sử dụng TRANSPOSEnày là một cách nổi tiếng để chuyển đổi mảng 2D thành mảng 1D trong Excel, nhưng nó trông rất tệ. Một giải pháp thanh lịch hơn sẽ là ẩn điều này đi trong JoinXLhàm VBA.
Đối với những người có Excel 2016 (và tôi cho rằng các phiên bản tiếp theo), bây giờ có trực tiếp hàm CONCAT , hàm này sẽ thay thế hàm CONCATENATE .
Vì vậy, cách chính xác để làm điều đó trong Excel 2016 là:
=CONCAT(A1:A4)
sẽ tạo ra:
Tôi là con trai
Đối với người dùng phiên bản Excel cũ hơn, các câu trả lời khác có liên quan.
CONCATchức năng
Đối với Excel 2011 trên Mac thì khác. Tôi đã làm nó như một quy trình ba bước.
=B1. Đối với hàng tiếp theo đến hàng N, công thức là =Concatenate(",",A2). Bạn kết thúc với:QA , Sekuli , Thử nghiệm , Applitools , Kiểm tra trực quan , Tự động hóa Kiểm tra , Selen
=B1. Đối với tất cả các hàng khác đến N, công thức là =Concatenate(C1,B2). Và bạn nhận được:QA, Sekuli QA, Sekuli, Thử nghiệm QA, Sekuli, Thử nghiệm, Applitools QA, Sekuli, Kiểm tra, Applitools, Kiểm tra trực quan QA, Sekuli, Kiểm tra, Applitools, Kiểm tra trực quan, Tự động hóa kiểm tra QA, Sekuli, Kiểm tra, Applitools, Kiểm tra trực quan, Tự động hóa Kiểm tra, Selenium
Ô cuối cùng của danh sách sẽ là ô bạn muốn. Điều này tương thích với Excel trên Windows hoặc Mac.
=CONCATENATE(B1;",";A2). Sau đó, bạn phải kéo dấu chấm xuống ngay trong tế bào cho tất cả các hàng và giá trị cuối cùng sẽ là kết quả
Tôi sử dụng CONCATENATEphương pháp để lấy các giá trị của một cột và đặt dấu ngoặc kép xung quanh chúng với các cột ở giữa để nhanh chóng điền WHERE IN ()mệnh đề của một câu lệnh SQL.
Tôi luôn chỉ nhập =CONCATENATE("'",B2,"'",","), sau đó chọn và kéo nó xuống, tạo =CONCATENATE("'",B3,"'",","), =CONCATENATE("'",B4,"'",",")v.v. sau đó đánh dấu toàn bộ cột đó, sao chép dán vào trình soạn thảo văn bản thuần túy và dán lại nếu cần, do đó loại bỏ sự phân tách hàng. Nó hoạt động, nhưng một lần nữa, chỉ là thỏa thuận một lần, đây không phải là giải pháp tốt cho những người luôn cần điều này.
Tôi biết đây thực sự là một câu hỏi thực sự cũ, nhưng tôi đang cố gắng làm điều tương tự và tôi tình cờ phát hiện ra một công thức mới trong excel có tên "TEXTJOIN".
Đối với câu hỏi, công thức sau giải quyết vấn đề
=TEXTJOIN("",TRUE,(a1:a4))
Chữ ký của "TEXTJOIN" được giải thích là TEXTJOIN (dấu phân cách, ignore_empty, text1, [text2], [text3], ...)