Hỏi về Split trong excel 2k7 (1 người xem)

[duynguyen3889]

Chào cả nhà,

Em có bài toán thế này, mong mọi người giúp đỡ

Cột A của e có dữ liệu
dòng 1: 1/EA,10/BX,100/CT
dòng 2: 1/EA,5/BX
dòng 3: 5/BX,100/PK

E muốn viết macro khi chạy hàm ở cột B thì sẽ trả cho e như sau:
Dòng 1: 1,10,100
Dòng 2: 1,5
Dòng 3: 5,100

Cột C trả về:
Dòng 1: EA,BX,CT
Dòng 2: EA,BX
Dòng 3: BX,PK.

Thanks mọi người

 

[ndu96081631]

Chào cả nhà,

Em có bài toán thế này, mong mọi người giúp đỡ

Cột A của e có dữ liệu
dòng 1: 1/EA,10/BX,100/CT
dòng 2: 1/EA,5/BX
dòng 3: 5/BX,100/PK

E muốn viết macro khi chạy hàm ở cột B thì sẽ trả cho e như sau:
Dòng 1: 1,10,100
Dòng 2: 1,5
Dòng 3: 5,100

Cột C trả về:
Dòng 1: EA,BX,CT
Dòng 2: EA,BX
Dòng 3: BX,PK.

Thanks mọi người

Cho code dưới đây vào 1 module

Function ExtractStr(ByVal Text As String, ExtType As Boolean) As String
  Dim tmp As String
  On Error Resume Next
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = IIf(ExtType, "[^0-9]", "[^a-zA-Z]")
    tmp = .Replace(Text, " ")
  End With
  ExtractStr = Replace(WorksheetFunction.Trim(tmp), " ", ", ")
End Function

Trở về bảng tính, gõ vào cell B1 công thức:

=ExtractStr($A1,TRUE)

Gõ vào cell C1 công thức

=ExtractStr($A1,FALSE)

Kéo fill B1:C1 xuống

 

[duynguyen3889]

Em cám ơn thầy rất nhiều. Thầy có thể giải thích cho e hàm thầy viết được ko ạ? e mới tập tành VBA, nên coi chưa hiểu gì cả. Có cách nào đọc code đơn giản hơn ko thầy? Cám ơn thầy

 

[ndu96081631]

Em cám ơn thầy rất nhiều. Thầy có thể giải thích cho e hàm thầy viết được ko ạ? e mới tập tành VBA, nên coi chưa hiểu gì cả. Có cách nào đọc code đơn giản hơn ko thầy? Cám ơn thầy

Thật ra thì bạn có thể dùng For.. Next, Replace để loại bỏ những thứ không cần thiết và lấy cái mình cần
Ở đây thì thằng em VBScript.RegExp nó chuyên xử lý mấy vụ này nên dùng vào là nhanh gọn nhất
Bạn có thể tìm trên diễn đàn những bài viết liền quan như:
http://www.giaiphapexcel.com/forum/showthread.php?16983-Tách-số-không-dùng-vòng-lặp
http://www.giaiphapexcel.com/forum/showthread.php?69985-Thử-nghiệm-VBScript-RegExp
vân vân