Xin giúp đỡ về chuyển hàng thành cột theo điều kiện của cột (1 người xem)

[tuoigiyeuem]

Mình muốn dùng code VBA để chuyển dữ liệu hàng sang dữ liệu cột.
( File đính kèm: http://www.mediafire.com/download/0znkdtsak27z9fa/Tam+Gia.xls )
Mong mọi người giúp

 

[tuoigiyeuem]

Mình tìm trên diễn đàn có đoạn code tương tự, nhưng trình độ em có hạn nên không sửa được. Mọi người giúp mình với .

Public Sub chuyen()
Dim i, j, a As Integer
Range("B2").Select
a = 0
b = 1
For i = 1 To 5 ' Chay tung cot
For j = 1 To 100 ' Chay tung hang
If Selection.Cells(j, i) > 0 Then
Selection.Cells(b, 7 + a) = Selection.Cells(j, i)
If a = 11 Then
a = 0
b = b + 1
Else
a = a + 1
End If
Else
Exit For 'thoat vong lap doi voi j
End If
Next j
Next i
Range("B1").Select
End Sub

 

[phucbugis]

Mình muốn dùng code VBA để chuyển dữ liệu hàng sang dữ liệu cột.
( File đính kèm: http://www.mediafire.com/download/0znkdtsak27z9fa/Tam+Gia.xls )
Mong mọi người giúp

số liệu sheet du (2) của bạn bố trí kiểu vậy ---> VBA cũng bó tay thôi.

muốn chuyển số liệu sang vùng E:N thì tối thiểu cột A,B,C phải có dạng sau:

 

[tuoigiyeuem]

Chắc bạn chưa hiểu ý mình rồi. Ý mình là đưa những thông tin ở cột A, B, C vào các trường Chủ hộ , NS, CMND, ...theo một hàng như ở vùng mình tô màu.