Lọc ký và ghép ký tự số trong chuỗi được tách ra (2 người xem)

[lehoa81]

Em có file như thế này, lần trước bác Quanghai có giúp em làm Visual rồi, nhưng format bên em có đôi chút thay đổi.

Em muốn nhặt các ký tự số trong chuỗi và ghép lại thành 1 chuỗi mới.

Em đã tự thêm Left và Right kết hợp với len mà vẫn không bao quát được hết các trường hợp nên em lên nhờ các bác giúp em ạ.

File nó như thế này. Em cảm ơn các bác nhiều!

 

[dhn46]

Bạn dùng hàm này thử xem

=RIGHT(SUBSTITUTE(B2,"-",""),FIND(" ",B2)-2)

 

[Quang_Hải]

Em có file như thế này, lần trước bác Quanghai có giúp em làm Visual rồi, nhưng format bên em có đôi chút thay đổi.

Em muốn nhặt các ký tự số trong chuỗi và ghép lại thành 1 chuỗi mới.

Em đã tự thêm Left và Right kết hợp với len mà vẫn không bao quát được hết các trường hợp nên em lên nhờ các bác giúp em ạ.

File nó như thế này. Em cảm ơn các bác nhiều!

Bạn thay code mới vào sẽ ok thôi. Nếu chưa được thì tính tiếp

Sub chuyen()
Dim dl, i, j, kq, k
With Sheet1
  dl = .Range(.[b3], .[b65536].End(3)).Resize(, 32).Value
End With
ReDim kq(1 To UBound(dl) * UBound(dl, 2), 1 To 4)
With CreateObject("vbscript.regexp")
   .Global = True
   .Pattern = "\D"
   For i = 2 To UBound(dl)
      If dl(i, 1) <> "" Then
         For j = 2 To UBound(dl, 2)
            If dl(i, j) <> "" Then
               k = k + 1
               kq(k, 1) = dl(i, 1)
               kq(k, 2) = dl(1, j)
               kq(k, 3) = dl(i, j)
               kq(k, 4) = .Replace(kq(k, 2), "")
            End If
         Next
      End If
   Next
End With
Sheet2.[a2:d10000].ClearContents
Sheet2.[a2].Resize(k, 4) = kq
End Sub

 

[ndu96081631]

Có 1 chuyện xin hỏi tác giả:
- Dữ liệu gốc là Tue 1-12, sau khi biến đổi sẽ trở thành 112
- Dữ liệu gốc là Tue 11-2, sau khi biến đổi sẽ trở thành 112
- 2 dữ liệu khác nhau nhưng kết quả lại giống nhau ---> Vậy làm sao phân biệt đây?

 

[bebo021999]

Có 1 chuyện xin hỏi tác giả:
- Dữ liệu gốc là Tue 1-12, sau khi biến đổi sẽ trở thành 112
- Dữ liệu gốc là Tue 11-2, sau khi biến đổi sẽ trở thành 112
- 2 dữ liệu khác nhau nhưng kết quả lại giống nhau ---> Vậy làm sao phân biệt đây?

Sư phụ có tin là có cách chứng minh trên thực tế không có sự trùng hợp như vậy: Các trường hợp đại loại như 11-2<=>1-12; 21-1<=>2-11 sẽ không trùng thứ, cụ thể là hiệu của chúng không chia hết cho 7?

 

[lehoa81]

@dhn46: Cảm ơn bạn. Công thức của bạn dùng được rồi.

Bạn thay code mới vào sẽ ok thôi. Nếu chưa được thì tính tiếp

@Bác Quanghai:

Yêu bác Quanghai lắm lắm.
Cảm ơn bác rất nhiều!

 

[lehoa81]

Có 1 chuyện xin hỏi tác giả:
- Dữ liệu gốc là Tue 1-12, sau khi biến đổi sẽ trở thành 112
- Dữ liệu gốc là Tue 11-2, sau khi biến đổi sẽ trở thành 112
- 2 dữ liệu khác nhau nhưng kết quả lại giống nhau ---> Vậy làm sao phân biệt đây?

Bac' phan tich dung roi a.

File tren la em lay vi du cho rat nhieu truong hop thoi a. Cho den bay gio, thuc te tren 1 bao cao thi ben em khong co du lieu thang 12 va thang 2 cung nhau. Ma thuong la 2 thang lien ke (thang 1 voi thang 2, thang 2 voi thang 3....) thoi ạ.

Ui, sao tu nhien ko go duoc tieng Viet co dau nhi? Amin dung xoa bai nay cua em nhe!

Em cam on bac!

 

[ndu96081631]

Sư phụ có tin là có cách chứng minh trên thực tế không có sự trùng hợp như vậy: Các trường hợp đại loại như 11-2<=>1-12; 21-1<=>2-11 sẽ không trùng thứ, cụ thể là hiệu của chúng không chia hết cho 7?

Thứ thì ăn nhậu gì ở đây? Tác giả cũng đâu có lấy mấy cái thứ ấy. Chính vì thế mà khi có vụ trùng xảy ra, chẳng biết cái nào là cái nào nữa