tranvoluong
Thành viên mới
- Tham gia
- 9/4/11
- Bài viết
- 23
- Được thích
- 2
Thân chào anh em,
Lần trước em có nhờ anh em giúp đỡ tách chuỗi lấy code hàng trong file https://www.giaiphapexcel.com/forum...ng-trong-chuỗi&p=751019&highlight=#post751019
Lần này cũng tương tự, em xử lý được tới khúc đưa tất cả code hàng về phía cuối rồi nhưng lúc dùng (replace * khoảng trắng để lấy code hàng thì không được) > nó xóa hết trơn luôn không để lại cái code cho mình, thử lấy đoạn code của anh @doatmehon rồi không ăn thua
Không biết vì lý do gì, file này được chuyển từ excel thành spreadsheet, rồi từ speadsheet thành excel (không biết có bị lỗi định dạng gì không)
Mong anh em giúp đỡ, em xin chân thành cám ơn trước.
Lần trước em có nhờ anh em giúp đỡ tách chuỗi lấy code hàng trong file https://www.giaiphapexcel.com/forum...ng-trong-chuỗi&p=751019&highlight=#post751019
Lần này cũng tương tự, em xử lý được tới khúc đưa tất cả code hàng về phía cuối rồi nhưng lúc dùng (replace * khoảng trắng để lấy code hàng thì không được) > nó xóa hết trơn luôn không để lại cái code cho mình, thử lấy đoạn code của anh @doatmehon rồi không ăn thua
Mã:
Function Rut(s As String) As StringWith CreateObject("VBScript.RegExp")
.Pattern = "([A-Z]{0,10}[0-9]{1,10}[-|/|.]?[A-Z]{0,10}[-|/|.]?[A-Z]{0,10}[0-9]{0,10}[-|/|.]?[0-9]{0,10}[A-Z]{0,10}[-|/|.]?[A-Z]{0,10})$"
If .Test(s) Then Rut = .Execute(s)(0).SubMatches(0)
End With
End FunctionKhông biết vì lý do gì, file này được chuyển từ excel thành spreadsheet, rồi từ speadsheet thành excel (không biết có bị lỗi định dạng gì không)
Mong anh em giúp đỡ, em xin chân thành cám ơn trước.
Lần chỉnh sửa cuối:
