Nhờ các ban viet dum cai Macro lấy số trong chuỗ (1 người xem)

[ximuoicm]

[TABLE="width: 500"]
[TR]
[TD]chuỗi[/TD]
[TD]KQ1[/TD]
[TD]KQ2[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(300);CLN(900)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]300[/TD]
[TD]900[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(3000);CLN(9000)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]3000[/TD]
[TD]9000[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(300);CLN(9000)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]300[/TD]
[TD]9000[/TD]
[/TR]
[/TABLE]

 

[be_09]

[TABLE="width: 500"]
[TR]
[TD]chuỗi[/TD]
[TD]KQ1[/TD]
[TD]KQ2[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(300);CLN(900)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]300[/TD]
[TD]900[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(3000);CLN(9000)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]3000[/TD]
[TD]9000[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(300);CLN(9000)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]300[/TD]
[TD]9000[/TD]
[/TR]
[/TABLE]

Trong khi chờ các thành viên có giải pháp khác, bạn thử dùng File TÁCH SỐ:

Cách thực hiện:

- Copy dữ liệu cần tách vào cột A (bắt đầu từ Ạ5), sau đó nhấn nút Tách dữ liệu và xem kết quả.
- Sử dụng hàm tại D5 =Tachso(A5), do tôi mới sử dụng hàm đến dòng 13, để có tất cả các kết quả, bạn vào D5 chỉ việc Fill ngang và Fill xuống, xong.

 

[SA_DQ]

/(/hìn cái tiêu đề bạn viết thấy mà ghét ghê!

Bye

 

[HungQuoc49]

[TABLE="width: 500"]
[TR]
[TD]chuỗi[/TD]
[TD]KQ1[/TD]
[TD]KQ2[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(300);CLN(900)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]300[/TD]
[TD]900[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(3000);CLN(9000)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]3000[/TD]
[TD]9000[/TD]
[/TR]
[TR]
[TD][TABLE="width: 274"]
[TR]
[TD="width: 274, align: left"]ONT(300);CLN(9000)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD]300[/TD]
[TD]9000[/TD]
[/TR]
[/TABLE]

Thêm một hàm tự tạo

Public Function Tach(DL As String, STT)
Dim i As Long, Tam

Tam = Replace(Replace(DL, "(", " "), ")", " ")
Tam = Split(Application.Trim(Tam), " ")

For i = 0 To UBound(Tam)
If IsNumeric(Tam(i)) = False Then Tam(i) = ""
Next i
Tam = Split(Application.Trim(Join(Tam, " ")), " ")

If STT - 1 > UBound(Tam) Then
MsgBox "Khong Phu Hop": Tach = "": Exit Function
Else
Tach = Val(Tam(STT - 1))
End If

End Function

Cú pháp: =Tach(Chuỗi cần tách, vị trí số cần tìm)

 

[xuan.nguyen82]

Nhiều cách giải bài quá rồi, nhưng em cũng thử thêm cách này xem sao nhé.

Nhập công thức Xuân(ô cần tách dữ liệu, số thứ mấy trong chuỗi)
C1=xuan($A1;1) kết quả là số 300
D1=xuan($A1;2) là số thứ hai trong chuỗi (900)

(Nhưng lần sau gửi bài nhớ viết cái tiêu đề cho nó rõ ràng em nhé, có dấu tiếng Việt và đầy đủ ký tự)

 

[ximuoicm]

Cám ơn mọi người đã giúp đỡ. do lần đầu tiên lên diền đàn nên còn nhiều thiếu sót. cách của 2 bạn Nguyễn Xuân và QuỐC Hùng điều dùng được.