Xem file tôi không tìm được mối liên hệ nào giữa dữ liệu trước khi chuyển và sau khi chuyển cả
Public Function Chuyen(Vung1 As Range, Vung2 As Range) As String
Dim i As Long, Temp1(), Temp2(), Result
Temp1 = Vung1.Value: Temp2 = Vung2.Value
For i = 1 To UBound(Temp1, 2)
Result = Result & vbLf & Vung1(1, i) & ": " & Vung2(1, i)
Next
Result = Replace(Result, vbLf, "", , 1)
Chuyen = Result
End Function
Function JoinText(ByVal Delimiter As String, ByVal IgnoreBlanks As Boolean, 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
tmp = IIf(TypeName(Item) = "Error", "", Trim(CStr(Item)))
If IgnoreBlanks = False Or Len(tmp) Then
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=JoinText(CHAR(10),TRUE,$A$1:$H$1&": "&A2:H2)
