em có số liệu theo hàng và muốn tách số đó theo cột. Mong a/e GPE giúp cho.
Cảm ơn GPE!
Nếu chịu dùng VBA thì thử Sub này xem:em có số liệu theo hàng và muốn tách số đó theo cột. Mong a/e GPE giúp cho.
Cảm ơn GPE!
Public Sub Tach()
Dim Sarr(), Darr(), I As Long, J As Long, K As Long, L As Long, Tem As Variant, N As Long, X As Long
Sarr = Range([B1], [B65000].End(xlUp)).Resize(, 5)
ReDim Darr(1 To 65536, 1 To UBound(Sarr, 2))
For I = 1 To UBound(Sarr, 1)
K = 0
For J = 1 To 5
Tem = Sarr(I, J): L = Len(Tem)
For N = 1 To L
K = K + 1: Darr(K, I) = Mid(Tem, N, 1)
Next N
Next J
If K > X Then X = K
Next I
If X Then [H1].Resize(X, I - 1).Value = Darr
End Sub
em có bài toán này cũng tách số 2 số cuối nhưng lần này hàng với hàng. hàng 1 xuống hãng và tiếp tục hàng 2 hoặc 3 xuống hàng 5 hoặc 6.file em gửi kèm mô tả.
=RIGHT(B1,2)



Hết tách rồi lại muốn ghép số ---> Đông chí này làm nghề quay xổ số ahthanks bác và ae GPE!!!

Hết tách rồi lại muốn ghép số ---> Đông chí này làm nghề quay xổ số ah
http://www.giaiphapexcel.com/forum/showthread.php?79454-Ghép-số-lặp-trên-VBA
Rất cảm ơn sụ nhắc nhở chân thành cảm ơn các bạn và ae forum GPE quan tâm !!!Chắc vậy,Hoặc là ứng dụng lạ,Vậy hãy dành thời gian hữu ích hơn