Code tách số trong 1 chuỗi ra 3 cột

[Ducbinh2021]

Em xin chào diễn đàn. Em hiện tại làm kế toán cho cửa hàng bán tôn lạnh. Em có file báo giá mà khách hàng gửi các chuổi ( Số tấm X dài X Ngang ) nối lại 1 ô . bây giờ em phải làm sao để tách ra 3 cột. Em xin cảm ơn ạ
Em xin gửi hình ảnh minh họa như thế này



Em gửi file đính kèm. rất mong mọi người bỏ ít thời gian giúp em. Em cảm ơn ạ

 

[Hoàng Tuấn 868]

Em gửi file đính kèm. rất mong mọi người bỏ ít thời gian giúp em. Em cảm ơn ạ

Mình dùng hàm, bạn xem thử.

 

[Ducbinh2021]

Bạn xem thử.

Quá hay luôn ạ. cảm ơn anh nhiều. Mà file mình nhiều dòng lắm tới 3000 mã hàng. này mình chạy công thức xong file nặng chạy không nỗi luôn. bạn có thể nào viết sub để mình gắn vào nút bấm cho nó nhẹ không

 

[Hoàng Tuấn 868]

Quá hay luôn ạ. cảm ơn anh nhiều. Mà file mình nhiều dòng lắm tới 3000 mã hàng. này mình chạy công thức xong file nặng chạy không nỗi luôn. bạn có thể nào viết sub để mình gắn vào nút bấm cho nó nhẹ không

Mình chạy 5000 mã vẫn vô tư bạn ạ.

 

[Ba Tê]

Quá hay luôn ạ. cảm ơn anh nhiều. Mà file mình nhiều dòng lắm tới 3000 mã hàng. này mình chạy công thức xong file nặng chạy không nỗi luôn. bạn có thể nào viết sub để mình gắn vào nút bấm cho nó nhẹ không

Muốn Sub thì thử cái này:

Option Explicit
Option Compare Text

Public Sub s_Gpe()
Dim sArr(), dArr(), Tmp, I As Long, J As Long, R As Long, CoL As Long
    sArr = Range("B4", Range("B10000").End(xlUp)).Value
    R = UBound(sArr)
ReDim dArr(1 To R, 1 To 3)
    For I = 1 To R
        If InStr(sArr(I, 1), "x") Then
            Tmp = Split(sArr(I, 1), "x")
            CoL = 0
            For J = LBound(Tmp) To UBound(Tmp)
                CoL = CoL + 1
                dArr(I, CoL) = Val(Trim(Tmp(J)))
            Next J
        End If
    Next I
Range("H4:J4").Resize(R) = dArr
End Sub

 

[ndu96081631]

Em xin chào diễn đàn. Em hiện tại làm kế toán cho cửa hàng bán tôn lạnh. Em có file báo giá mà khách hàng gửi các chuổi ( Số tấm X dài X Ngang ) nối lại 1 ô . bây giờ em phải làm sao để tách ra 3 cột. Em xin cảm ơn ạ
Em xin gửi hình ảnh minh họa như thế này

View attachment 242732

Em gửi file đính kèm. rất mong mọi người bỏ ít thời gian giúp em. Em cảm ơn ạ

Sao bạn không dùng Text to Columns?
Hoặc code dựa trên Text to Columns chỉ có nhiêu đây

Sub Test()
  Range("B4:B10000").TextToColumns Range("C4"), xlDelimited, , , , , , , , "X"
End Sub

Bẫy lỗi đầy đủ hơn thì vầy:

Sub Test()
  On Error GoTo ErrHandler
  Application.DisplayAlerts = False
  Range("B4:B10000").TextToColumns Range("C4"), xlDelimited, , , , , , , , "X"
  Application.DisplayAlerts = True
  Exit Sub
ErrHandler:   MsgBox Err.Description
End Sub

 

[be_09]

Em xin chào diễn đàn. Em hiện tại làm kế toán cho cửa hàng bán tôn lạnh. Em có file báo giá mà khách hàng gửi các chuổi ( Số tấm X dài X Ngang ) nối lại 1 ô . bây giờ em phải làm sao để tách ra 3 cột. Em xin cảm ơn ạ
Em xin gửi hình ảnh minh họa như thế này
Em gửi file đính kèm. rất mong mọi người bỏ ít thời gian giúp em. Em cảm ơn ạ

Thử cách khác cũng dùng Text to Columns.
Code xóa dữ liệu cột D: F trước khi tách.