dungnguyenminh
Thành viên mới

- Tham gia
- 21/3/19
- Bài viết
- 9
- Được thích
- 0
Sub Lay_Data()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim h As Integer
j = 9
h = 2
For k = 3 To 5
For i = 1 To 10
If Cells(k, i) = 1 Then
Cells(j, h) = Cells(2, i)
j = j + 1
End If
Next i
h = h + 2
j = 9
Next k
End Sub