Tách số sau dấu phẩy

[Vũ Tuấn Tùng]

Em chào toàn thể anh chị em trên diễn đàn GPE!
Em có file cần tách dữ liệu sau dấu phẩy của sheet1 và dữ liệu tách chuyển sang sheet2


em ví dụ kết quả mong muốn như ảnh dưới đây:

Rất mong mọi người giúp em đoạn code để thao tác nhanh hơn ạ.
Em xin chân thành cảm ơn mọi người ạ.

 

[Hoàng Tuấn 868]

Em chào toàn thể anh chị em trên diễn đàn GPE!
Em có file cần tách dữ liệu sau dấu phẩy của sheet1 và dữ liệu tách chuyển sang sheet2
View attachment 272018

em ví dụ kết quả mong muốn như ảnh dưới đây:
View attachment 272019
Rất mong mọi người giúp em đoạn code để thao tác nhanh hơn ạ.
Em xin chân thành cảm ơn mọi người ạ.

Cái này công thức cũng được mà, nếu đồng ý thì thực hiện thôi. Viết code chưa xong công thức đã có kết quả.

 

[BuiQuangThuan]

Em chào toàn thể anh chị em trên diễn đàn GPE!
Em có file cần tách dữ liệu sau dấu phẩy của sheet1 và dữ liệu tách chuyển sang sheet2


em ví dụ kết quả mong muốn như ảnh dưới đây:

Rất mong mọi người giúp em đoạn code để thao tác nhanh hơn ạ.
Em xin chân thành cảm ơn mọi người ạ.

Thử dùng chức năng text to colum đi cho nhanh

 

[VetMini]

Cái này công thức cũng được mà, nếu đồng ý thì thực hiện thôi. Viết code chưa xong công thức đã có kết quả.

Công thức kéo lâu lắm. Trừ phi bạn kéo giùm luôn.

Thử dùng chức năng text to colum đi cho nhanh

Chức năng ấy học sao nhanh bằng code bấm một phát.

 

[Hoàng Tuấn 868]

Công thức kéo lâu lắm. Kéo giùm luôn.

Em thấy kết quả mẫu còn đang sai đó anh à.

 

[Vũ Tuấn Tùng]

Em thấy kết quả mẫu còn đang sai đó anh à.

anh thấy sai chỗ nào ạ.

Bài đã được tự động gộp: 9/2/22

Cái này công thức cũng được mà, nếu đồng ý thì thực hiện thôi. Viết code chưa xong công thức đã có kết quả.

nếu mà khoảng gần 20 nghìn dòng thì dung lượng file chắc lớn lắm ạ

 

[CHAOQUAY]

Em chào toàn thể anh chị em trên diễn đàn GPE!
Em có file cần tách dữ liệu sau dấu phẩy của sheet1 và dữ liệu tách chuyển sang sheet2


em ví dụ kết quả mong muốn như ảnh dưới đây:

Rất mong mọi người giúp em đoạn code để thao tác nhanh hơn ạ.
Em xin chân thành cảm ơn mọi người ạ.

Chạy thử xem sao

Option Explicit

Sub tach()
Dim Nguon
Dim Kq
Dim i, j, k
Nguon = Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown))
ReDim Kq(1 To UBound(Nguon), 1 To 100) As String
For i = 1 To UBound(Nguon)
    k = 1
    For Each j In Split(Nguon(i, 1), ",")
        Kq(i, k) = j
        k = k + 1
    Next j
Next i
With Sheet2
    .UsedRange.Clear
    .Range("A2").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .UsedRange.Columns.AutoFit
End With
End Sub

 

[Vũ Tuấn Tùng]

Chạy thử xem sao

Option Explicit

Sub tach()
Dim Nguon
Dim Kq
Dim i, j, k
Nguon = Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown))
ReDim Kq(1 To UBound(Nguon), 1 To 100) As String
For i = 1 To UBound(Nguon)
    k = 1
    For Each j In Split(Nguon(i, 1), ",")
        Kq(i, k) = j
        k = k + 1
    Next j
Next i
With Sheet2
    .UsedRange.Clear
    .Range("A2").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .UsedRange.Columns.AutoFit
End With
End Sub

em cảm ơn anh rất nhiều

 

[VetMini]

@Hoàng Tuấn 868, @BuiQuangThuan:
Thấy chưa, đã nói thời buổi đói bài này vòi code là nhanh và hiệu quả nhất.

 

[batman1]

@Hoàng Tuấn 868, @BuiQuangThuan:
Thấy chưa, đã nói thời buổi đói bài này vòi code là nhanh và hiệu quả nhất.

Thời buổi buồn muốn chết người ta đưa cho đồ chơi mà còn bĩu môi, làm bộ, thì ngồi đó mà than nhé. Đồ chơi có người hớt tay trên rồi, cắn răng chịu khó đợi nhé.

 

[VetMini]

Thời buổi buồn muốn chết người ta đưa cho đồ chơi mà còn bĩu môi, làm bộ, thì ngồi đó mà than nhé. Đồ chơi có người hớt tay trên rồi, cắn răng chịu khó đợi nhé.

Đồ này thuộc loại trống bỏi (*1), cỡ mình mà chơi thiên hạ chửi cho thúi đầu.
Tôi sinh ra trong gia đình đông con. Từ nhỏ đã quen với chuyện "có người hớt tay trên".
Tôi cũng vốn không thuộc dạng "con nhà giàu, đẹp trai, học giỏi". Từ lúc mới lớn đã quen với chuyện "cắn răng chịu khó đợi" (bồ).

(*1) trống bỏi: cái trống nhỏ, có cái cán cầm tay, hai bên hong trống cột hai sợi dây với viên gỗ nhỏ như bi. Con nít chơi lắc trống, hai viên bi vung vẩy, đánh vào mặt trống. Từ đó sinh ra thành ngữ "già còn chơi trống bỏi" (gần nghĩa và kín đáo hơn "trâu già ham gặm cỏ non")
Ngày xưa, thợ nhuộm rong đi khắp ngõ xóm rao hàng cũng dùng cái trống như vậy.

 

[batman1]

Đồ này thuộc loại trống bỏi (*1), cỡ mình mà chơi thiên hạ chửi cho thúi đầu
(*1) trống bỏi: cái trống nhỏ, có cái cán cầm tay, hai bên hong trống cột hai sợi dây với viên gỗ nhỏ như bi. Con nít chơi lắc trống, hai viên bi vung vẩy, đánh vào mặt trống. Từ đó sinh ra thành ngữ "già còn chơi trống bỏi" (gần nghĩa và kín đáo hơn "trâu già ham gặm cỏ non")

Cỏ non thì trâu nào chả ham gặm hở bác kia. Không ham mới lạ, mới không bình thường. Miễn là cỏ đừng non quá mà vác vạ vào thân. Còn "non nhưng đủ già" thì kệ người ta đi. Bọn nào cười là nó đang GATO đấy nhé.