Tách ký tự từ chuỗi

[hongthuy92bn]

Chào mn , Mình là thành viên mới trong diễn đàn . Mình muốn nhờ các bạn giúp mình vấn đề này ạ , Mình cảm ơn trước
Mình làm kế toán kho ; và công việc của mình là nhập xuất hàng hóa . Mình muốn lập trên VBA . Mọi người giúp đỡ mình với .

Hàng về , mình sẽ scan liên tục 50 tem ; dữ liệu mình muốn có là đoạn đã tách . Mình cảm ơn

 

[huuthang_bd]

Mình muốn lập trên VBA

Mình chỉ biết dùng công thức. Nếu bạn suy nghĩ lại thì báo mình nhé.

 

[hongthuy92bn]

bạn chia sẻ cho mình với

 

[xuongrongdat]

Chào mn , Mình là thành viên mới trong diễn đàn . Mình muốn nhờ các bạn giúp mình vấn đề này ạ , Mình cảm ơn trước
Mình làm kế toán kho ; và công việc của mình là nhập xuất hàng hóa . Mình muốn lập trên VBA . Mọi người giúp đỡ mình với .

Hàng về , mình sẽ scan liên tục 50 tem ; dữ liệu mình muốn có là đoạn đã tách . Mình cảm ơn

View attachment 242861

Bạn gửi file có dữ liệu 100 dòng đi. Mọi người xem giúp cho.
Anh Thắng nói bạn sài công thức được hôn kìa?

 

[befaint]

Dùng hàm mờ nờ lèo cái xong.

=mo_no($A3)

'copy sang phải

 

[Nhattanktnn]

Chào mn , Mình là thành viên mới trong diễn đàn . Mình muốn nhờ các bạn giúp mình vấn đề này ạ , Mình cảm ơn trước
Mình làm kế toán kho ; và công việc của mình là nhập xuất hàng hóa . Mình muốn lập trên VBA . Mọi người giúp đỡ mình với .

Hàng về , mình sẽ scan liên tục 50 tem ; dữ liệu mình muốn có là đoạn đã tách . Mình cảm ơn

View attachment 242861

=Trim(mid(substitute(chuoi,",",Rept(" ",100)),(COLUMN(A1)-1)*100+1,100))
Đoán vậy

 

[ndu96081631]

Chào mn , Mình là thành viên mới trong diễn đàn . Mình muốn nhờ các bạn giúp mình vấn đề này ạ , Mình cảm ơn trước
Mình làm kế toán kho ; và công việc của mình là nhập xuất hàng hóa . Mình muốn lập trên VBA . Mọi người giúp đỡ mình với .

Hàng về , mình sẽ scan liên tục 50 tem ; dữ liệu mình muốn có là đoạn đã tách . Mình cảm ơn

View attachment 242861

Bạn có thể dùng công cụ Text to Columns để tách trong nháy mắt

 

[hongthuy92bn]

đây là file gốc của mình . Mn xử lý dữ liêu giúp m với . Thanks

Bài đã được tự động gộp: 11/8/20

Bạn có thể dùng công cụ Text to Columns để tách trong nháy mắt

thế thì nc gì hả ban . hihi

 

[be_09]

đây là file gốc của mình . Mn xử lý dữ liêu giúp m với . Thanks

Bài đã được tự động gộp: 11/8/20

thế thì nc gì hả ban . hihi

File bạn chỉ có đúng một quy luật nên sử dụng công cụ có sẳn là Text to Columns để tách chưa đầy 1 phút.

 

[ho van luong]

đây là file gốc của mình . Mn xử lý dữ liêu giúp m với . Thanks

Bài đã được tự động gộp: 11/8/20

thế thì nc gì hả ban . hihi

Text to Columns in Excel

To separate the contents of one Excel cell into separate columns, you can use the 'Convert Text to Columns Wizard'. For example, when you want to separate a list of full names into last and first names.

www.excel-easy.com

 

[hongthuy92bn]

File bạn chỉ có đúng một quy luật nên sử dụng công cụ có sẳn là Text to Columns để tách chưa đầy 1 phút.

View attachment 242867

Text to Columns này thì phải mất công 1 ng xử lý dữ liệu nữa à . M muốn khi scan tem mà , tự tách ra cơ .

 

[huuthang_bd]

Công thức cho ô C3

=TRIM(MID(SUBSTITUTE($B3,",",REPT(" ",100)),(COLUMN(A1)-1)*100+1,100))

Copy cho dòng 3, sau đó thêm *1 ở cuối công thức E3 và H3, định dạng ngày tháng cho H3
Kéo công thức dòng 3 xuống các dòng còn lại

 

[phulien1902]

đây là file gốc của mình . Mn xử lý dữ liêu giúp m với . Thanks

Bài đã được tự động gộp: 11/8/20

thế thì nc gì hả ban . hihi

Bạn thử:

  Sheet1.Range("B3:B42").TextToColumns Destination:=Range("C3"), Comma:=True

 

[be_09]

Text to Columns này thì phải mất công 1 ng xử lý dữ liệu nữa à . M muốn khi scan tem mà , tự tách ra cơ .

Sợ mất công 1 ng xử lý thì sử dụng Worksheet_Change, nếu cột B bạn thay đổi bất kỳ thứ gì thì nó tự động tách ra.

 

[Maika8008]

Text to Columns này thì phải mất công 1 ng xử lý dữ liệu nữa à . M muốn khi scan tem mà , tự tách ra cơ .

Bạn chép sub này vào module của sheet cần tách

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, a As Long, cl As Range

    If Range("B" & Rows.Count).End(xlUp).Row = 2 Then Exit Sub
   
    If Not Intersect(Target, Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then

        For Each cl In Target
            arr = Split(cl.Value, ",")
            a = UBound(arr)
            arr(a) = DateValue(arr(a))
            cl.Offset(, 1).Resize(1, a + 1) = arr
        Next

    End If

End Sub