Function NoiChuoi(ByVal RangeInOneRow As Range) As String
Dim Cls As Range
For Each Cls In RangeInOneRow
NoiChuoi = NoiChuoi & Cls
Next
End Function
=A1:A100=A1:A100&","Function NoiChuoi(ByVal RangeInOneRow As Range, Optional Delimiter As String) As String
Dim Cls As Range
For Each Cls In RangeInOneRow
NoiChuoi = NoiChuoi & Cls & Delimiter
Next
NoiChuoi = Left(NoiChuoi, Len(NoiChuoi) - 1)
End Function={1;2;3;4;5;6;7;"a";"b";"c";"d";"e";"f";"f";"d";"a"}
Báo lỗi có thể do bạn dùng dấu "," để phân cách tham số. Để sửa thì bạn bỏ dấu = đi, bấm enter, chọn ô kết quả, bấm Ctrl-H để thay thế các dấu ; thành , sau đó thêm dấu = đằng trước.
Ngắn gọn nhưng cũng phải chính xác nữa chứ anh! Với dữ liệu trên một cột (A1:A10) thì OK, nhưng với dữ liệu trên hàng (A1:G1) thì kết quả là #VALUE! đấy nhé!
Function ConcStr(ByVal rg As Range) As String
[COLOR=#008000]' concatenates all strings within a range. Column priority (one row after another)
' ues comma as delimiter
[/COLOR]Const DELIM = ","
Dim rw As Variant
ConcStr = ""
If rg.Columns.Count > 1 Then [COLOR=#008000]' range có nhiều hơn 1 cột[/COLOR]
For Each rw In rg.Rows
ConcStr = ConcStr & IIf(Len(ConcStr), DELIM, "") _
& Join(Application.Transpose(Application.Transpose(rw)), DELIM)
Next rw
Else [COLOR=#008000]' range chỉ có 1 cột[/COLOR]
If rg.Rows.Count > 1 Then [COLOR=#008000]' cột có nhiều hơn 1 dòng[/COLOR]
ConcStr = Join(Application.Transpose(rg), DELIM)
Else [COLOR=#008000]' đơn độc 1 cell[/COLOR]
ConcStr = rg.Cells(1, 1)
End If
End If
End FunctionSao "phức tạp vụ" vậy bạn, ở bài #2 đã giải quyết được mọi vấn đề rồi!
Function NoiChuoi(ParamArray AllRange()) As String
Dim ArrItm, Itm
For Each ArrItm In AllRange
If Not IsArray(ArrItm) Then
ArrItm = Array(ArrItm)
End If
For Each Itm In ArrItm
NoiChuoi = NoiChuoi & Itm
Next
Next
End Function
Bài này chưa chuẩn( trường hợp nối text) đang bị thiếu dấu cách khi nối các cell với nhau.
bạn cho dòng Noichuoi = ... vào trong cụm If cls.value <> "" then thôi
Code này dùng cho vùng chọn là 1 cột nhiều dòng, hoặc 1 dòng nhiều cột nhé
Option Explicit
Private Function noichuoi(ByVal rng As Range)
With Application
If rng.Columns.Count > 1 And rng.Rows.Count > 1 Then
noichuoi = "Chon lai vung 1 dong hoac 1 cot!"
Exit Function
ElseIf rng.Columns.Count > 1 Then
noichuoi = Join(.Transpose(.Transpose(rng.Value)), "") ' vung co 1 dong nhieu cot
Else
noichuoi = Join(.Transpose(rng.Value), "") ' vung co 1 cot nhieu dong
End If
End With
End Function
