lethanhxuan1988
Thành viên chính thức


- Tham gia
- 20/7/18
- Bài viết
- 64
- Được thích
- 7
Thử:Nhờ các bác các anh chị ở đây giúp đỡ xem excel có chức năng này không. File em đính kèm ạ !
từ cột A tách 1 phần dữ liệu sang cột B,C,E,F...
và dữ liệu này lọc chữ T đi cảm ơn anh chị ạ
View attachment 202608
Sub ABC()
Dim a, b, i&, j&, NC&, NR&, k&
Range("A2:A35").SpecialCells(xlCellTypeConstants, 1).Copy Range("O2")
a = Range("O2").CurrentRegion
NR = 10: NC = UBound(a, 1) / NR + 1
ReDim b(1 To NR, 1 To NC)
For i = 1 To NC
For j = 1 To NR
k = k + 1
If k <= UBound(a, 1) Then
b(j, i) = a(k, 1)
End If
Next j
Next i
Range("F2").Resize(NR, NC).Value = b
Range("O2").CurrentRegion.ClearContents
End Sub
Bạn xem file(Mình ráp code của Anh @phulien1902 vào)Mình nhìn ko biết làm thế nào. Mình gửi file dữ liệu bạn làm hộ được không ạ.