Nhờ cộng đồng giúp: Xóa bỏ các số không cần thiết và đổi qua số điện thoại mới

[Dana123]

Chào cộng động Excel. Mình có 1 file cần xóa bỏ các số không cần thiết có dạng ( 052xxxxxx, 0511.xxx.xxx và 17/11 hoặc 17.11 ), bỏ số 9 ở đầu số điện thoại, và đôỉ sang số điện thoại mới.
Nhờ cộng đồng xem có triển khai được không ạ. Vì đăng bài lần đầu nên có gì sai sót mong được bỏ qua. Cảm ơn

 

[Maika8008]

Chào cộng động Excel. Mình có 1 file cần xóa bỏ các số không cần thiết có dạng ( 052xxxxxx, 0511.xxx.xxx và 17/11 hoặc 17.11 ), bỏ số 9 ở đầu số điện thoại, và đôỉ sang số điện thoại mới.
Nhờ cộng đồng xem có triển khai được không ạ. Vì đăng bài lần đầu nên có gì sai sót mong được bỏ qua. Cảm ơn
View attachment 247297

Bạn tìm và lập 1 bảng chuyển đổi đầu số điện thoại cũ -> mới đưa lên đây

 

[htin1997]

Thử Text to Columns rồi xử lí thử đi bác

 

[Dana123]

Bạn tìm và lập 1 bảng chuyển đổi đầu số điện thoại cũ -> mới đưa lên đây

Mình tìm được 1 bài trên mạng đây ạ

 

[Nhattanktnn]

Mình tìm được 1 bài trên mạng đây ạ

Hiện tại mình hỗ trợ được bạn mấy mục đầu, mục thứ 3 là xóa số công ty và ngày thì chờ các bác khác xem tiếp nhé:

Option Explicit
Function ChuyenDoi(Rng As Range) As String
If Rng.Rows.Count * Rng.Columns.Count > 1 Then
    MsgBox "Chon mot o"
    Exit Function
End If
Dim Regx As Object, Tmp As String, BangTra(), Res As String
Dim I As Long
BangTra = Sheets("BangTra").Range("B2:C22").Value
Set Regx = CreateObject("VBScript.Regexp")
With Regx
    .Global = True
    .Pattern = "(9)([0-9]{10,11})"
    Tmp = .Replace(Rng, "$2")
End With
For I = 1 To UBound(BangTra, 1)
    With Regx
        .Global = True
        .Pattern = "(" & BangTra(I, 1) & ")([0-9]{7})"
        Debug.Print .Pattern
        Tmp = .Replace(Tmp, BangTra(I, 2) & "$2")
        Debug.Print Tmp
    End With
Next
ChuyenDoi = Tmp
End Function

 

[Maika8008]

Mình tìm được 1 bài trên mạng đây ạ

Muốn "triển khai" như chữ của bạn dùng thì những việc mà bạn làm được, bạn phải làm chứ không ai làm thay. Chẳng hạn:
- Bảng đầu số 11 số chuyển sang 10 số (chỉ cần 2 cột: thứ nhất là đầu 11 số, thứ hai là đầu 10 số được chuyển sang)
- Bảng các số điện thoại bàn mà bạn muốn xóa bỏ khỏi phần kết quả. Ở 2 dòng dữ liệu ví dụ, tôi thấy bạn muốn bỏ đầu số 0511. Tuy nhiên có dòng 0236 (đầu số mới của 0511), 0510 hoặc 0235 thì sao? Người giúp bạn đâu phải đi đoán mò hoặc làm thay công việc của bạn!?

Thêm nữa gần 1 tháng sau mới thấy bạn quay lại trả lời vào chủ đề. Chứng tỏ bạn cũng chẳng quan tâm lắm.

 

[befaint]

If Rng.Rows.Count * Rng.Columns.Count > 1 Then
MsgBox "Chon mot o"
Exit Function
End If

Chỗ này dùng Rng.Cells.Count là được rồi mà.

 

[Nhattanktnn]

Chỗ này dùng Rng.Cells.Count là được rồi mà.

Nghĩ được cái gì lúc đó là "bụp" ngay á bác! Cảm ơn bác chỉ bảo

 

[Dana123]

Hiện tại mình hỗ trợ được bạn mấy mục đầu, mục thứ 3 là xóa số công ty và ngày thì chờ các bác khác xem tiếp nhé:

Option Explicit
Function ChuyenDoi(Rng As Range) As String
If Rng.Rows.Count * Rng.Columns.Count > 1 Then
    MsgBox "Chon mot o"
    Exit Function
End If
Dim Regx As Object, Tmp As String, BangTra(), Res As String
Dim I As Long
BangTra = Sheets("BangTra").Range("B2:C22").Value
Set Regx = CreateObject("VBScript.Regexp")
With Regx
    .Global = True
    .Pattern = "(9)([0-9]{10,11})"
    Tmp = .Replace(Rng, "$2")
End With
For I = 1 To UBound(BangTra, 1)
    With Regx
        .Global = True
        .Pattern = "(" & BangTra(I, 1) & ")([0-9]{7})"
        Debug.Print .Pattern
        Tmp = .Replace(Tmp, BangTra(I, 2) & "$2")
        Debug.Print Tmp
    End With
Next
ChuyenDoi = Tmp
End Function

Cảm ơn bạn rất nhiều

Bài đã được tự động gộp: 7/11/20

Muốn "triển khai" như chữ của bạn dùng thì những việc mà bạn làm được, bạn phải làm chứ không ai làm thay. Chẳng hạn:
- Bảng đầu số 11 số chuyển sang 10 số (chỉ cần 2 cột: thứ nhất là đầu 11 số, thứ hai là đầu 10 số được chuyển sang)
- Bảng các số điện thoại bàn mà bạn muốn xóa bỏ khỏi phần kết quả. Ở 2 dòng dữ liệu ví dụ, tôi thấy bạn muốn bỏ đầu số 0511. Tuy nhiên có dòng 0236 (đầu số mới của 0511), 0510 hoặc 0235 thì sao? Người giúp bạn đâu phải đi đoán mò hoặc làm thay công việc của bạn!?

Thêm nữa gần 1 tháng sau mới thấy bạn quay lại trả lời vào chủ đề. Chứng tỏ bạn cũng chẳng quan tâm lắm.

Cảm ơn bạn. Mới cưới vợ nên giờ mới vào xem ạ

Bài đã được tự động gộp: 7/11/20

Cảm ơn bạn rất nhiều

Bài đã được tự động gộp: 7/11/20

Cảm ơn bạn. Mới cưới vợ nên giờ mới vào xem ạ

Cảm ơn bạn đã góp ý. Mình muốn xóa bỏ các số điện thoại bàn cùng các ngày nhập 17/11 và 16.11 ... luôn ạ