Xin hàm lấy giá trị dòng cuối của các cột và nối lại

[hiénlinh197]

Nhờ các bạn trên diễn đàn viết giúp hàm như file đính kèm.

 

[snow25]

Nhờ các bạn trên diễn đàn viết giúp hàm như file đính kèm.

Bạn xem nhé.

Function gopdulieu(ParamArray mang()) As String
     Dim T, arr, i As Long, j As Integer, s As String
     For Each T In mang
         If T.Count = 1 Then
            ReDim arr(1 To 1, 1 To 1): arr(1, 1) = T.Value
         Else
           arr = T.Value
         End If
         For j = 1 To UBound(arr, 2)
             For i = UBound(arr, 1) To 1 Step -1
                 If Len(arr(i, j)) > 0 Then
                    s = s & arr(i, j)
                    Exit For
                 End If
             Next i
        Next j
    Next
       gopdulieu = s
End Function

=gopdulieu(C3:G12,J3:N12)

 

[hiénlinh197]

Bạn xem nhé.

Function gopdulieu(ParamArray mang()) As String
     Dim T, arr, i As Long, j As Integer, s As String
     For Each T In mang
         If T.Count = 1 Then
            ReDim arr(1 To 1, 1 To 1): arr(1, 1) = T.Value
         Else
           arr = T.Value
         End If
         For j = 1 To UBound(arr, 2)
             For i = UBound(arr, 1) To 1 Step -1
                 If Len(arr(i, j)) > 0 Then
                    s = s & arr(i, j)
                    Exit For
                 End If
             Next i
        Next j
    Next
       gopdulieu = s
End Function

=gopdulieu(C3:G12,J3:N12)

Cảm ơn bạn công thức đã đúng
Bạn Thêm cho mình là các dữ liệu nối với nhau bằng dấu ";" với nhé
dạng như này:
=gopdulieu(Dấu phân cách; C3:G12; J3:N12)
Chúc bạn vui vẻ nhé @snow25

 

[snow25]

Cảm ơn bạn công thức đã đúng
Bạn Thêm cho mình là các dữ liệu nối với nhau bằng dấu ";" với nhé
dạng như này:
=gopdulieu(Dấu phân cách; C3:G12; J3:N12)
Chúc bạn vui vẻ nhé @snow25

Đây nhé bạn.

Function gopdulieu(ByVal dauphancach As String, ParamArray mang()) As String
     Dim T, arr, i As Long, j As Integer, s As String
     For Each T In mang
         If T.Count = 1 Then
            ReDim arr(1 To 1, 1 To 1): arr(1, 1) = T.Value
         Else
           arr = T.Value
         End If
         For j = 1 To UBound(arr, 2)
             For i = UBound(arr, 1) To 1 Step -1
                 If Len(arr(i, j)) > 0 Then
                    If Len(s) = 0 Then s = arr(i, j) Else s = s & dauphancach & arr(i, j)
                    Exit For
                 End If
             Next i
        Next j
    Next
       gopdulieu = s
End Function

 

[hiénlinh197]

Đây nhé bạn.

Function gopdulieu(ByVal dauphancach As String, ParamArray mang()) As String
     Dim T, arr, i As Long, j As Integer, s As String
     For Each T In mang
         If T.Count = 1 Then
            ReDim arr(1 To 1, 1 To 1): arr(1, 1) = T.Value
         Else
           arr = T.Value
         End If
         For j = 1 To UBound(arr, 2)
             For i = UBound(arr, 1) To 1 Step -1
                 If Len(arr(i, j)) > 0 Then
                    If Len(s) = 0 Then s = arr(i, j) Else s = s & dauphancach & arr(i, j)
                    Exit For
                 End If
             Next i
        Next j
    Next
       gopdulieu = s
End Function

Cảm ơn bạn @snow25 nhiều nhiều bạn nhé
Công thức linh hoạt lắm rồi bạn @snow25
Chúc bạn buổi tối vui nhé!