Nối chuỗi nhiều ô trong 1 cột ? (2 người xem)

[vtv6]

A1: text1
A2: text2
A3: text3
....
An: textn

Mình muốn B1: text1,text2,text3,...,textn
Nếu để nối 1 vài ô thì mình thường dùng A1&","&A2&","&A3 nhưng với nhiều ô hơn thì xem ra cách này khó khăn quá.
Các bác giúp em với !

 

[vanle33]

A1: text1
A2: text2
A3: text3
....
An: textn

Mình muốn B1: text1,text2,text3,...,textn
Nếu để nối 1 vài ô thì mình thường dùng A1&","&A2&","&A3 nhưng với nhiều ô hơn thì xem ra cách này khó khăn quá.
Các bác giúp em với !

Bạn tham khảo CONCATENATE (text1,text2,...)
Bài #4 của link http://www.giaiphapexcel.com/forum/showthread.php?54752-D%C3%B9ng-d%E1%BA%A5u-n%E1%BB%91i-text-v%C3%A0-h%C3%A0m-IF-nh%C6%B0-th%E1%BA%BF-n%C3%A0o-cho-hi%E1%BB%87u-qu%E1%BA%A3-trong-tr%C6%B0%E1%BB%9Dng-h%E1%BB%A3p-sau

 

[Quang_Hải]

Dùng UDF nhé

Function noi(vung As Range)
Dim i, kq
   For i = 1 To vung.Rows.Count
      If vung(i, 1) <> "" Then
         kq = kq & vung(i, 1)
      End If
   Next i
noi = kq
End Function

Copy code vào 1 module
tại B1 = noi(A1:A1000)

 

[ndu96081631]

Dùng UDF nhé

Function noi(vung As Range)
Dim i, kq
   For i = 1 To vung.Rows.Count
      If vung(i, 1) <> "" Then
         kq = kq & vung(i, 1)
      End If
   Next i
noi = kq
End Function

Copy code vào 1 module
tại B1 = noi(A1:A1000)

Viết thành UDF thì phải tính đến trường hợp vùng là 1 cột nhiều dòng hoặc 1 dòng nhiều cột chứ (thậm chí là vùng nhiều dòng nhiều cột cũng tính luôn)
Tốt hơn nữa ta tính luôn đối số của hàm cũng có thể là 1 mảng (1 chiều hoặc 2 chiều tùy ý)
Ngoài ra, hàm này thiếu dấu phân cách nha

 

[Quang_Hải]

Viết thành UDF thì phải tính đến trường hợp vùng là 1 cột nhiều dòng hoặc 1 dòng nhiều cột chứ (thậm chí là vùng nhiều dòng nhiều cột cũng tính luôn)
Tốt hơn nữa ta tính luôn đối số của hàm cũng có thể là 1 mảng (1 chiều hoặc 2 chiều tùy ý)
Ngoài ra, hàm này thiếu dấu phân cách nha

Nếu anh làm nghề bác sĩ thì anh đóng cửa là cái chắc, trị bệnh 1 lần khỏi bệnh thì bệnh nhân đi mất hết