Xét điều kiện cho từng cột. Trong từng cột xét đk cho mỗi dòng

[TamPhuc]

Xin chào,
Tình hình là vậy,

Em muốn xét điều kiện cho cột A,C,F,I.... cho tới hết. Mổi cột cách nhau 2 đơn vị. Ví dụ, A cách C 2 đơn vị, cũng như C cách F 2 đơn vị,...
Em muốn viết đoạn code như sau:

Nếu A1 <> 0 thì

Set subrange = Range("A1:A600")
For Each cell In subrange
i = i + 1
If Range("A2").Cells(i + 1, 1).Value <> 0 Then
Range("A2").Cells(i + 1, 1).Copy Range("B2").Cells(i + 1, 1)
End If
Next

Tức là nếu A1 <> 0 thì nó sẽ xét đk từng dòng trong cột A (từ A3--> A600). Xong cột A rồi.
Nhưng bây giờ làm sao cho nó xét tiếp đến cột C,F,I,... cho đến hết.

Cám ơn nhiều,
Chúc vui.

 

[voda]

Bạn thử nghiên cứu đoạn code sau:

Option Explicit
Sub Copy_data()
Dim j As Long, i As Long
Dim subrange As Range, cell As Range
Dim Arr()
Arr = Array("A", "C", "F", "I")
  For j = 0 To 3
     If Range(Arr(j) & "1") <> 0 Then
       i = 1
       Set subrange = Range(Arr(j) & "1:" & Arr(j) & "600")
           For Each cell In subrange
               i = i + 1
               If cell.Value <> 0 Then
                   cell.Copy cell.Offset(0, 1)
               End If
            Next
      End If
  Next
End Sub