Đính kèm file cho nhiều dữ liệu thêm đi bạn, để lường được hết trường hợp
Vâng anh nhé, e thêm file vào r ạ. Mong anh giúp đỡ ạ
Vâng anh ạ, e có gửi kèm file ý. Có nhiều trường hợp hơn ạ
Cảm ơn anh ạ, e có sửa thành file "VK 1" rồi ạ
Cảm ơn anh ạ, e có sửa thành file "VK 1" rồi ạ
Dạ, em cảm ơn. E có sửa file "VK" thành "VK 1" rồi ạ. Anh xem lại giúp e ạ
Quá thiếu tính nhất quán trong các mã số và yêu cầu vẫn còn mơ hồ, cụ thể:
Khoai nữa thì đem về nhà luộc ăn luôn đêTí nữa chủ thớt lại lên bảo là cái phần sau của dữ liệu nó khoai hơn lấy không được.thế là cái biểu thức chính quy lại phải đổi
Vâng ý ạ, bên e có quá nhiều mã mà nhân viên nhập liệu lại nhập mỗi loại 1 kiểu giờ lọc ra số phát ốm anh ạ. Anh giúp lọc ra mấy trường hợp e gửi như file "VK 1" được ko ạ. E cảm ơn!
Chốt lọc ra kết quả như file "VK 1" ạChốt bác ơi, đoán nữa đau đầu lắm
Mã:\d{1,}\s*-\s*\d{1,}|\d{3,}
Dạ, ra các dãy số lần lượt là 138-148, 198- 216, 238 - 256, 212,158 ạ
Thì mít và sầu riêng cao hơn khoại một bậc (ngwoif Bắc có lẽ không biết ăn sầu riêng và hột của nó)Luyện "chân khí" thì dùng hạt mít luộc mới hiệu quả chứ anh.
Dạ, e cảm ơn ạ!Chốt bác ơi, đoán nữa đau đầu lắm
Mã:\d{1,}\s*-\s*\d{1,}|\d{3,}
Bạn thử code này, =tach(A2)
Function tach(ByVal str As String) As String
Static reg As Object
If reg Is Nothing Then Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "\d+(?:\s*-?\s*)\d+"
If reg.test(str) Then tach = reg.Execute(str)(0)
End FunctionĐã sữa lại,tôi quên mất tưởng đang dùng Dim
....................
Option Explicit
Sub tach()
Dim Nguon
Dim tam
Dim i, j, k
Dim kq
Nguon = Sheet1.Range("A2:A5")
k = UBound(Nguon)
ReDim kq(1 To k, 1 To 1)
For i = 1 To k
tam = Split(Nguon(i, 1))
For j = UBound(tam) To 0 Step -1
If IsNumeric(Right(tam(j), 1)) Then
kq(i, 1) = tam(j)
Exit For
End If
Next j
For j = 1 To Len(kq(i, 1))
If IsNumeric(Mid(kq(i, 1), j, 1)) Then
kq(i, 1) = Mid(kq(i, 1), j, Len(kq(i, 1)))
Exit For
End If
Next j
Next i
Sheet1.Range("D2").Resize(k, 1) = kq
End SubĐã sửa lần 2If Not reg Is Nothing
Chưa đúng kìa
!!!!Dạ, em cảm ơn anh nhé
Dạ, em cảm ơn anh nhé
Dựng reg liên tục thì tốn ram hay chậm tốc độ thế bác Befaint?
- Khai báo dạng Static thì biến lưu trữ trên bộ nhớ cho tới khi thoát ứng dụng/ hoặc chương trình lăn ra ngỏm.
Sub TachSo()
Dim KQ As String, Nguon As String, c3 As String
Dim i As Long, iR As Long
Dim SArr, DArr
SArr = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
ReDim DArr(1 To UBound(SArr), 1 To 1)
For iR = 1 To UBound(SArr)
For i = 1 To Len(SArr(iR, 1)) - 2
c3 = Mid(SArr(iR, 1), i, 3)
If IsNumeric(c3) And IsNumeric(Left(c3, 1)) Then
KQ = KQ & c3
If i > 2 Then
If Mid(SArr(iR, 1), i - 1, 1) = "-" Or Mid(SArr(iR, 1), i - 2, 2) = "- " Then
KQ = Left(KQ, 3) & "-" & Right(KQ, 3)
End If
End If
i = i + 3
End If
Next
DArr(iR, 1) = KQ
KQ = ""
Next
Range("C1").Resize(UBound(SArr), 1).Value = DArr
End Sub
D, e cảm ơn anh nhé
Dạ, hi. E cảm ơn anh nhé
Cảm ơn gì bạn?
Vâng ạ, e sẽ rút kinh nghiệm ạ
Thử :
=MID(SUBSTITUTE(TRIM(RIGHT(A2,LEN(A2)-SEARCH("Bill",A2)-3))," ",REPT(" ",100)),1,100)Cám ơn cao thủ đã giúp đỡ em
