nối chuổi bằng vba (1 người xem)

[cachabu]

em muốn nối 2 chuổi bằng code vba thay vì dùng dấu & bằng công thức thì em làm được rồi, nhưng em muốn biết nếu viết bằng code vba thì viết như thế nào

cám ơn

 

[ChanhTQ@]

Option Explicit
Sub Noi2Chuoi()
 Dim Sh As Worksheet, J As Long
 
 Sheet2.Select
 [D4].Resize(99).ClearContents
 Set Sh = ThisWorkbook.Worksheets("Sheet1")
 For J = 4 To 9
    With Sh.Cells(J + 1, "D")
        Cells(J, "D").Value = .Value & .Offset(, 1).Value
    End With
 Next J
End Sub

 

[Ba Tê]

em muốn nối 2 chuổi bằng code vba thay vì dùng dấu & bằng công thức thì em làm được rồi, nhưng em muốn biết nếu viết bằng code vba thì viết như thế nào

cám ơn

"Ké" thêm 1 cái mảng:

Public Sub GPE()
Dim sArr(), dArr(), I As Long
sArr = Sheet1.Range("D5:E8").Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr, 1)
    dArr(I, 1) = sArr(I, 1) & sArr(I, 2)
Next I
Sheet2.[D4].Resize(I - 1) = dArr
End Sub

 

[cachabu]

"Ké" thêm 1 cái mảng:

Public Sub GPE()
Dim sArr(), dArr(), I As Long
sArr = Sheet1.Range("D5:E8").Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr, 1)
    dArr(I, 1) = sArr(I, 1) & sArr(I, 2)
Next I
Sheet2.[D4].Resize(I - 1) = dArr
End Sub

dạ em cám ơn anh nhiều