Giúp nối chuổi giữa 2 ô. (1 người xem)

[maiemveanhnhe]

Giúp mình nối chuổi giũa 2 ô mà có dấu gạch ngang. Mình trân thành cảm ơn trước nhé!

 

[viehoai]

Giúp mình nối chuổi giũa 2 ô mà có dấu gạch ngang. Mình trân thành cảm ơn trước nhé!

Bạn nhânpj công thức: =B4&"-"&B5

 

[maiemveanhnhe]

Trước hết cảm ơn viehoai. Tuy nhiên có 1 vấn đề phát sinh mình nối trên khoảng 40 ô được không vậy viehoai. Nếu không được thì mình có cách nào khác nữa không viehoai? Chỉ dùng hàm công thức thôi đừng dùng vba nha! Cảm ơn

 

[viehoai]

Trước hết cảm ơn viehoai. Tuy nhiên có 1 vấn đề phát sinh mình nối trên khoảng 40 ô được không vậy viehoai. Nếu không được thì mình có cách nào khác nữa không viehoai? Chỉ dùng hàm công thức thôi đừng dùng vba nha! Cảm ơn

Bạn đưa File thử xem sao. Nhưng có vẽ bạn ngại VBA lắm sao?

 

[maiemveanhnhe]

Nối chuổi nhiều ô thành 1 ô

Giúp mình với. Chân thành cảm ơn.

 

[thanhphuong]

Sub Noi()
    Dim n As Long
    Dim Cll As String
    Dim Chuoi As String
    n = Sheet1.Range("B65000").End(xlUp).Row
    Chuoi = Cells(4, 2)
    For i = 5 To n
        Cll = Cells(i, 2)
        Chuoi = Chuoi & "-" & Cll
    Next
    Sheet1.Range("C6") = Chuoi
End Sub[

 

[Ba Tê]

Dùng công thức: không có can đảm,
Dùng Hàm tự tạo: xem thử sheet2
Có điều: Yêu cầu ngộ quá! Dữ liệu trong một ô (EX2003) có giới hạn, nếu quá sức "chịu đựng" nó sẽ cắt bỏ phần thừa, làm sao quản lý nó có đầy đủ hay bị cắt?

 

[maiemveanhnhe]

-Trước hết cảm ơn! các bạn. Mình thì không biết VBA. Nên rất ngại và muốn học thì không có thời gian để học. Vậy các bạn có thể giúp mình sử dụng hàm mà có can đảm được không, giống như bạn Ba tê đã nối sử dụng hàm mà không có can đảm. Vậy có thể tìm cách khác mà chính xác công việc, công phu 1 chút cũng được (hàm phụ). Cảm ơn mọi người quan tâm.

 

[Hai Lúa Miền Tây]

Sub Noi()
    Dim n As Long
    Dim Cll As String
    Dim Chuoi As String
    n = Sheet1.Range("B65000").End(xlUp).Row
    Chuoi = Cells(4, 2)
    For i = 5 To n
        Cll = Cells(i, 2)
        Chuoi = Chuoi & "-" & Cll
    Next
    Sheet1.Range("C6") = Chuoi
End Sub[

Không cần dùng vòng lặp, bạn vào trang sau tham khảo nhé.
http://www.giaiphapexcel.com/forum/...g-hàm-Join-để-nối-chuối-từ-các-cell-lại-không