Câu hỏi về Hàm concatenate

[tieuthubuongbinh]

Mình cần nối nhiều cell thành 1 chuỗi kí tự nên dùng concatenate và mất nhiều thời gian để click từng cell

vd: a1 A,
a2 B,
a3 C,
a4 =concatenate(a1,a2,a3)

mình cần chuỗi A,B,C,

nhưng vì rất nhiều dòng cần nối và giá trị ở các cell là từ công thức nên có khi sẽ hiện N/A, khi đó a4 = N/A nên mắc công phải sửa CT lại (chưa kể vì click từng cell nên có khi sót)

nhờ các bác giúp giùm cách nào xử lý được yêu cầu này ạ

 

[comet_1701]

Mình cần nối nhiều cell thành 1 chuỗi kí tự nên dùng concatenate và mất nhiều thời gian để click từng cell

vd: a1 A,
a2 B,
a3 C,
a4 =concatenate(a1,a2,a3)

mình cần chuỗi A,B,C,

nhưng vì rất nhiều dòng cần nối và giá trị ở các cell là từ công thức nên có khi sẽ hiện N/A, khi đó a4 = N/A nên mắc công phải sửa CT lại (chưa kể vì click từng cell nên có khi sót)

nhờ các bác giúp giùm cách nào xử lý được yêu cầu này ạ

Sao bạn không đưa file giả lập nên để mọi người dễ hình dung file và có công thức tổng quát cho bài của bạn
Có thể file dài nhưng đưa file giả lập và số liệu gần chuẩn thì dễ xem hơn
Bạn tham khảo bài này của Thầy ndu xem
http://www.giaiphapexcel.com/forum/...uỗi-trong-chuỗi-các-ô-được-cách-nhau-dấu-phẩy

 

[ndu96081631]

Bạn tham khảo bài này của Thầy ndu xem
http://www.giaiphapexcel.com/forum/...uỗi-trong-chuỗi-các-ô-được-cách-nhau-dấu-phẩy

Code đó cũng xưa rồi, bây giờ cập nhật mới nó thế này:

Function JoinText(ByVal Delimiter As String, ParamArray Arrays()) As String
  Dim aTmp, Arr(), Item, tmp As String
  Dim i As Long, n As Long
  'On Error Resume Next
  For i = LBound(Arrays) To UBound(Arrays)
    aTmp = Arrays(i)
    If Not IsArray(aTmp) Then aTmp = Array(aTmp)
    For Each Item In aTmp
      If TypeName(Item) <> "Error" Then
        tmp = CStr(Item)
        n = n + 1
        ReDim Preserve Arr(1 To n)
        Arr(n) = tmp
      End If
    Next
  Next
  If n Then JoinText = Join(Arr, Delimiter)
End Function

-------------------------
Nếu tác giả biết áp dụng thì tốt, còn không thì cứ đưa file lên đây

 

[comet_1701]

Mình cần nối nhiều cell thành 1 chuỗi kí tự nên dùng concatenate và mất nhiều thời gian để click từng cell

vd: a1 A,
a2 B,
a3 C,
a4 =concatenate(a1,a2,a3)

mình cần chuỗi A,B,C,

nhưng vì rất nhiều dòng cần nối và giá trị ở các cell là từ công thức nên có khi sẽ hiện N/A, khi đó a4 = N/A nên mắc công phải sửa CT lại (chưa kể vì click từng cell nên có khi sót)

nhờ các bác giúp giùm cách nào xử lý được yêu cầu này ạ

Thầy ndu đã gợi ý thế roài,còn chần chờ gì nữa mà không đưa file lên bạn

 

[vanle33]

Mình cần nối nhiều cell thành 1 chuỗi kí tự nên dùng concatenate và mất nhiều thời gian để click từng cell

vd: a1 A,
a2 B,
a3 C,
a4 =concatenate(a1,a2,a3)

mình cần chuỗi A,B,C,

nhưng vì rất nhiều dòng cần nối và giá trị ở các cell là từ công thức nên có khi sẽ hiện N/A, khi đó a4 = N/A nên mắc công phải sửa CT lại (chưa kể vì click từng cell nên có khi sót)

nhờ các bác giúp giùm cách nào xử lý được yêu cầu này ạ

Dùng code bài #3 với cú pháp =JoinText(A1;A2;A3)
Có thể nối nhiều nhiều hơn nữa các dữ liệu ở 3 cell trên!

 

[comet_1701]

Mình cần nối nhiều cell thành 1 chuỗi kí tự nên dùng concatenate và mất nhiều thời gian để click từng cell

vd: a1 A,
a2 B,
a3 C,
a4 =concatenate(a1,a2,a3)

mình cần chuỗi A,B,C,

nhưng vì rất nhiều dòng cần nối và giá trị ở các cell là từ công thức nên có khi sẽ hiện N/A, khi đó a4 = N/A nên mắc công phải sửa CT lại (chưa kể vì click từng cell nên có khi sót)

nhờ các bác giúp giùm cách nào xử lý được yêu cầu này ạ

=+JoinText(",",MID(A1:A5,FIND(" ",A1:A5),2)) (Nếu cần lấy chuỗi A,B,C)
Kết thúc công thức ctrl+shift+enter
Code thì bài #3 nhé

 

[ndu96081631]

=+JoinText(",",MID(A1:A5,FIND(" ",A1:A5),2)) (Nếu cần lấy chuỗi A,B,C)
Kết thúc công thức ctrl+shift+enter
Code thì bài #3 nhé

Mình nghĩ rất có thể tác giả chỉ cần nối chuỗi đơn giản thế này thôi:

=JoinText("",A1:A10)

 

[tieuthubuongbinh]

Mình nghĩ rất có thể tác giả chỉ cần nối chuỗi đơn giản thế này thôi:

=JoinText("",A1:A10)

Dạ đúng ạ đơn giản vậy thôi nhưng em lại ko biết tí gì về VBA

File đây ạ - ô vàng

Nhân tiện cho em hỏi về subtotal sao trả kq khác product ạ (ô xanh lá)

Và conditional format, em chỉ muốn bold+red cho giá trị max mà lại thành hết vùng

Có phải vì em dùng CT có chứa {} ở sheet đầu cột R nên file chạy chậm và hiện processor... khi save/đổi hàm

cám ơn các bác rất rất nhiều ạ