Nếu biết xài code thì dùng thử code này
Function NoiChuoi(vung As Range)
Dim cell As Range, tam
For Each cell In vung
If cell <> "" Then
tam = tam & "," & cell
End If
Next
NoiChuoi = Replace(tam, ",", "", 1, 1)
End FunctionMình cảm ơn bạn nhiều.
Dùng như bạn nói thì không đươc nên mình mới hỏi xem có cách khác không vì nếu dùng như vậy gặp phải một ô trắng thì nó sẽ sinh ra 2 dấu phảy(,) ngay. mà ở đây chỉ có 1 dấu thôi. Bạn thấy có đúng không? chính vì vậy mình mới hỏi.
Thử gửi file đó lên đây xem nào!
nếu bạn dùng nhờ công thức mà chỉ dùng cho tex không dùng cho số để cộng trừ nhân chia, bạn thêm vào đầu công thức 1 hàm if(Ô lấy giá trị="","",Công thức của bạn)
Thêm 1 cách cho bạn tham khảo Addins: Nối các ô với nhau thành chuỗi, trong chuỗi các ô được cách nhau = dấu phẩy
Nếu bạn thích dùng công thức thì bạn có thể tham khảo
=SUBSTITUTE(TRIM(SUBSTITUTE(CONCATENATE(A1,",",B1,",",C1,",",D1,",",E1,",",F1,","),","," "))," ",",")
Vâng nếu dùng 1 Substitute thì là như thế này ạ
=SUBSTITUTE(TRIM(CONCATENATE(A1," ",B1," ",C1," ",D1," ",E1," ",F1," "))," ",",")- Vâng, nếu có trường hợp cụ thể thì có thể tùy biến phải không thầy. Cách bài #10 đã chỉ ra sự tùy biến, nối các phần tử bằng Concatenate với phần phân cách là "^" chẳng hạn, Substitute để chuyển các ký tự cần bảo lưu sang 1 ký tự khác (ví dụ: chuỗi gồm nhiều từ thì có thể chuyển dấu cách" " sang #, $....v,v..), sau đó chuyển phần nối giữa các cell thành dấu cách => Substitute dấu cách thành dấu phẩy => Substitute 1 lần nữa các ký tự đặc biệt nói trên (#,$...) thành dấu cách.
Dạ em chào anh ạ, hôm nay em có tìm được code này của anh để nối chuỗi nhân tiện áp dụng cho việc báo cáo hoá đơn xoá của em. Nhưng em muốn hỏi thêm 1 chút là nếu em muốn định dạng "Cell" trong code có dạng "0000000" thì em có thể viết như nào ạ. E vẫn chưa tìm ra được cách. Chân thành cảm ơn anh!
Em gửi anh file cũ của em, e chèn vào nhưng k thấy thay đổi gì cả hay do em làm sai bước nào?. E cảm ơn!
