Ghép nối kết quả trong VBA

[duynhatgpe]

Xin chào GPE thân mến

Hôm nay mình muốn được giải đáp trong bài viết code VBA này
Mình có số liệu từng quý và muốn ghép nối lại như trong bài có kết quả cho ra cột K,mình muốn chỉ cho ra kết quả cột k bằng VBA thôi khi có được số liệu , mình có tim hiểu code Join nhưng chưa hiểu cho lắm .


Rất cám ơn và chúc các anh chị trong diễn đàn luôn mạnh khỏe và hạnh phúc !

 

[phulien1902]

Xin chào GPE thân mến

Hôm nay mình muốn được giải đáp trong bài viết code VBA này
Mình có số liệu từng quý và muốn ghép nối lại như trong bài có kết quả cho ra cột K,mình muốn chỉ cho ra kết quả cột k bằng VBA thôi khi có được số liệu , mình có tim hiểu code Join nhưng chưa hiểu cho lắm .


Rất cám ơn và chúc các anh chị trong diễn đàn luôn mạnh khỏe và hạnh phúc !

Bài toán của bạn có thể dùng 1 trong 2 Code sau:

Dim LR&, i&
    LR = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 1 To LR
        Cells(i, 11).Value = Cells(i, 3).Value & Cells(i, 4).Value & Cells(i, 5).Value & Cells(i, 6).Value & Cells(i, 7).Value & Cells(i, 8).Value & Cells(i, 9).Value
    Next i

 Dim i&, k&, b, DL
    With Sheet1
        DL = .Range("C1:I12")
        ReDim b(1 To UBound(DL), 1 To UBound(DL, 2))
        For i = 1 To UBound(DL, 1)
            k = k + 1
            b(k, 1) = Join(Array(DL(i, 1), DL(i, 2), DL(i, 3), DL(i, 4), DL(i, 5), DL(i, 6), DL(i, 7)), "")
        Next i
        .Range("L1").Resize(k, UBound(DL, 2)) = b
    End With

 

[thnghiachau]

Xin chào GPE thân mến

Hôm nay mình muốn được giải đáp trong bài viết code VBA này
Mình có số liệu từng quý và muốn ghép nối lại như trong bài có kết quả cho ra cột K,mình muốn chỉ cho ra kết quả cột k bằng VBA thôi khi có được số liệu , mình có tim hiểu code Join nhưng chưa hiểu cho lắm .


Rất cám ơn và chúc các anh chị trong diễn đàn luôn mạnh khỏe và hạnh phúc !

Sub JoinJoinJoin()
Dim arr, i
For i = 5 To 12
    With Application.WorksheetFunction
        Range("K" & i).Value = Join(.Transpose(.Transpose(Range("C" & i & ":" & "I" & i))), "")
    End With
Next i
End Sub

gọn vậy cho khỏe nhá

 

[phulien1902]

Xin chào GPE thân mến

Hôm nay mình muốn được giải đáp trong bài viết code VBA này
Mình có số liệu từng quý và muốn ghép nối lại như trong bài có kết quả cho ra cột K,mình muốn chỉ cho ra kết quả cột k bằng VBA thôi khi có được số liệu , mình có tim hiểu code Join nhưng chưa hiểu cho lắm .


Rất cám ơn và chúc các anh chị trong diễn đàn luôn mạnh khỏe và hạnh phúc !

Nếu dùng Google Sheets thì câu lệnh là:

 =join("",C5:I5)

 

[Ducbinh2021]

Sub JoinJoinJoin()
Dim arr, i
For i = 5 To 12
    With Application.WorksheetFunction
        Range("K" & i).Value = Join(.Transpose(.Transpose(Range("C" & i & ":" & "I" & i))), "")
    End With
Next i
End Sub

gọn vậy cho khỏe nhá

Đọ Ngắn

Sub Abc()
 Range("K5:k12") = "=CONCATENATE(RC[-8],RC[-7],RC[-6],RC[-5],RC[-4],RC[-3],RC[-2])"
Range("K5:k12").Value = Range("K5:k12").Value
End Sub

 

[huuthang_bd]

Dùng mảng với 2 For lồng nhau là cách làm hiệu quả nhất.