[Giúp đỡ] cách lấy dữ liệu từ sheet này sang sheet khác với điều kiện cho trước (2 người xem)

[loving10886]

Mình muốn nhờ các bạn giúp mình cách lấy dự liệu tự động từ sheet 1 sang sheet 2 với điều kiện ví dụ như:
Ô A1 của sheet 2 sẽ hiển thị dữ liệu của ô A1 của sheet 1; Ô A2 của sheet 2 sẽ hiển thị dữ liệu của ô A7 của sheet 1 (cách nhau 5 ô), Ô A3 của sheet 2 sẽ hiển thị dữ liệu của ô A12 của sheet 1...
Cảm ơn mọi người nhé!

 

[Hoang2013]

Nếu từ [A1] đến [A7] bạn cho là cách nhau 5 ô; Thì từ [A7] đến [A12] chỉ cách nhau 4 ô thôi.

Chắc bạn không muốn vậy, fải không?

 

[loving10886]

Nếu từ [A1] đến [A7] bạn cho là cách nhau 5 ô; Thì từ [A7] đến [A12] chỉ cách nhau 4 ô thôi.

Chắc bạn không muốn vậy, fải không?

Mình nhầm bạn ạ! ý mình là mình có sheet 1 với giá trị các ô từ A1 đến A60 rồi chẳng hạn nhưng mình chỉ muốn hiển thị một số giá trị trong sheet 1 vào sheet 2. Ví dụ như bên Sheet 2 mình sẽ có ô A1 tương ứng với A1 sheet 1; A2 sheets 2 tương ứng với A6 sheet 1; A3 sheet 2 tương ứng với A11 sheet 1... tức là cách nhau một khoảng ô là 5 ô í

 

[Hoang2013]

Sub CopyToSheet()
 Dim Rws As Long, J As Long

 Rws = Sheet1.[A1].End(xlDown).Row
 Sheet2.Columns("A:a").ClearContents
 For J = 1 To Rws Step 5
    If J > Rws Then Exit Sub
    Sheet2.[A65500].End(xlUp).Offset(1).Value = Sheet1.Cells(J, "A").Value
 Next J
End Sub