Tách dữ liệu 1 ô thành nhiều ô như file mẫu

[snst]

Mọi người giúp em tình huấn này với.

 

[leoheocon]

Mọi người giúp em tình huấn này với.

Bạn dùng CT này tại B2:

B2=--MID(SUBSTITUTE($A$2,",",REPT(" ",100)),1+(ROW(A1)-1)*100,100)

Fill xuống!!!!

 

[snst]

Bạn dùng CT này tại B2:

B2=--MID(SUBSTITUTE($A$2,",",REPT(" ",100)),1+(ROW(A1)-1)*100,100)

Fill xuống!!!!

Cảm ơn anh.
A2h nếu dữ liệu nó nhiều hàng thì sao anh. A3, A4, A5, A6.... làm đồng loạt luôn. Anh chỉ em với

 

[lenongree]

Bạn gửi file lên đi!!!

 

[Ba Tê]

Cảm ơn anh.
A2h nếu dữ liệu nó nhiều hàng thì sao anh. A3, A4, A5, A6.... làm đồng loạt luôn. Anh chỉ em với

Tặng bạn code này, nếu muốn công thức thì chờ các bạn khác.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, K As Long, N As Long, Tmp
sArr = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
ReDim dArr(1 To UBound(sArr) * 100, 1 To 1)
For I = 2 To UBound(sArr)
    Tmp = Split(sArr(I, 1), ",")
    For N = 0 To UBound(Tmp)
        K = K + 1
        dArr(K, 1) = Trim(Tmp(N))
    Next N
Next I
Range("B2").Resize(K) = dArr
End Sub

Thấy "Lão Ca" concogia "lấp ló" kìa.

 

[snst]

Đây anh. Anh xem giúp em dùng hàm nào với ạ

 

[snst]

Cảm ơn Anh Ba Tê nhưng VB em không biết sử dụng...huhuhu

 

[Ba Tê]

Đây anh. Anh xem giúp em dùng hàm nào với ạ

Từ bài 1 đến bài 6 là thay đổi kết quả rồi.

Cảm ơn Anh Ba Tê nhưng VB em không biết sử dụng...huhuhu

Bạn biết Enable Macros khi mở file ?
Nếu biết thì thêm động tác nhấn nút.

 

[snst]

Anh sửa lại code theo cái mới dc ko anh Tê...

 

[Ba Tê]

Anh sửa lại code theo cái mới dc ko anh Tê...

Đã gởi file trên bài #8, bạn xem lại bên trên.

 

[snst]

Từ bài 1 đến bài 6 là thay đổi kết quả rồi.



Bạn biết Enable Macros khi mở file ?
Nếu biết thì thêm động tác nhấn nút.

Cái sau này ko thấy nội dung code ta...

 

[Ba Tê]

Cái sau này ko thấy nội dung code ta...

1/ Bạn bấm nút GPE code có chạy không?
2/ Code nằm trong Module1.

 

[snst]

Cảm ơn anh Tê và các anh. em đã giải quyết xong vấn đề ạ. Chúc sức khỏe các anh.

 

[sealand]

Mình thấy dữ liệu bài này có thể viết code như sau cũng ổn và tốc độ cao:

Sub Test()
Dim Tm1
Tm1 = WorksheetFunction.Transpose(Sheet1.Range("A2:A" & Sheet1.Range("A65536").End(xlUp).Row))
Range("c2:C1000").ClearContents
Tm1 = Split(Join(Tm1, ","), ",")
Range("c2").Resize(UBound(Tm1)) = WorksheetFunction.Transpose(Tm1)
End Sub