Nhờ giúp đỡ code copy có điều kiện

[Shaa]

Các bác ơi, em đang muốn copy dữ liệu sang các cột bên cạnh mà chưa biết làm thế nào
các bác xem giúp em với nhé
em có gửi kèm file dữ liệu và cả ảnh ạ

 

[CHAOQUAY]

Các bác ơi, em đang muốn copy dữ liệu sang các cột bên cạnh mà chưa biết làm thế nào
các bác xem giúp em với nhé
em có gửi kèm file dữ liệu và cả ảnh ạ

Kết quả sẽ điền trực tiếp luôn vào bảng hay là thế nào bạn?

 

[Shaa]

Kết quả sẽ điền trực tiếp luôn vào bảng hay là thế nào bạn?

vâng bác, điền trực tiếp vào ạ

 

[CHAOQUAY]

vâng bác, điền trực tiếp vào ạ

Thử xem sao

Option Explicit

Sub xxx()
Dim str1
Dim rws, cls
Dim i, j, k

With Sheet1
    rws = .Range("J" & Rows.Count).End(xlUp).Row
    cls = 10
    For i = 5 To rws
        If .Range("A" & i) <> "" Then str1 = .Range("A" & i)
        For j = 3 To cls Step 3
            If .Cells(i, j) <> "" Then
                .Cells(i, j - 1) = str1
            End If
        Next j
    Next i
    
    .Range("A4").Resize(rws - 3, cls).Columns.AutoFit
End With

End Sub

 

[Shaa]

Thử xem sao

Option Explicit

Sub xxx()
Dim str1
Dim rws, cls
Dim i, j, k

With Sheet1
    rws = .Range("J" & Rows.Count).End(xlUp).Row
    cls = 10
    For i = 5 To rws
        If .Range("A" & i) <> "" Then str1 = .Range("A" & i)
        For j = 3 To cls Step 3
            If .Cells(i, j) <> "" Then
                .Cells(i, j - 1) = str1
            End If
        Next j
    Next i
   
    .Range("A4").Resize(rws - 3, cls).Columns.AutoFit
End With

End Sub

kết quả đúng rồi bác ạ, em cảm ơn bác nhiều ạ