Có một công thức Excel để xác định các ký tự đặc biệt trong một ô không?

Chúng tôi có khoảng 3500 tài liệu có tên tệp cần được xóa thủ công để xóa các ký tự đặc biệt như dấu ngoặc, dấu hai chấm, dấu chấm phẩy, dấu phẩy, v.v.

Tôi có một tệp văn bản mà tôi đã chuyển vào excel và tôi đang cố gắng tạo một cột gắn cờ tên tệp để sửa đổi nếu nó bao gồm các ký tự đặc biệt. Công thức mã giả sẽ là

=IF (cellname contains [^a-zA-z_-0-9], then "1", else "0")

để gắn cờ hàng nếu nó chứa bất kỳ ký tự nào ngoài AZ, 0-9, - hoặc _, bất kể trường hợp nào.

Bất cứ ai biết một cái gì đó có thể làm việc cho tôi? Tôi ngần ngại viết mã và iftuyên bố lớn nếu có gì đó nhanh chóng và dễ dàng.

Không có mã? Nhưng nó quá ngắn, dễ dàng và đẹp và ... :(

Mẫu RegEx của bạn [^A-Za-z0-9_-]được sử dụng để xóa tất cả các ký tự đặc biệt trong tất cả các ô.

Sub RegExReplace()

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True

    RegEx.Pattern = "[^A-Za-z0-9_-]"
    For Each objCell In ActiveSheet.UsedRange.Cells
        objCell.Value = RegEx.Replace(objCell.Value, "")
    Next

End Sub

Biên tập

Điều này gần đến mức tôi có thể nhận được câu hỏi ban đầu của bạn.

Mã thứ hai là một hàm do người dùng định nghĩa =RegExCheck(A1,"[^A-Za-z0-9_-]")với 2 đối số. Đầu tiên là tế bào để kiểm tra. Cái thứ hai là mẫu RegEx để kiểm tra. Nếu mẫu khớp với bất kỳ ký tự nào trong ô của bạn, nó sẽ trả về 1 nếu không là 0.

Bạn có thể sử dụng nó giống như bất kỳ công thức Excel bình thường nào khác nếu lần đầu tiên bạn mở trình soạn thảo VBA bằng ALT+ F11, chèn một mô-đun mới (!) Và dán mã bên dưới.

Function RegExCheck(objCell As Range, strPattern As String)

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = strPattern

    If RegEx.Replace(objCell.Value, "") = objCell.Value Then
        RegExCheck = 0
    Else
        RegExCheck = 1
    End If

End Function

Đối với người dùng mới sử dụng RegEx, tôi sẽ giải thích mô hình của bạn: [^A-Za-z0-9_-]

[] stands for a group of expressions
^ is a logical NOT
[^ ] Combine them to get a group of signs which should not be included
A-Z matches every character from A to Z (upper case)
a-z matches every character from a to z (lower case)
0-9 matches every digit
_ matches a _
- matches a - (This sign breaks your pattern if it's at the wrong position)

Sử dụng một cái gì đó tương tự như mã của nixda, đây là hàm do người dùng xác định sẽ trả về 1 nếu ô có các ký tự đặc biệt.

Public Function IsSpecial(s As String) As Long
    Dim L As Long, LL As Long
    Dim sCh As String
    IsSpecial = 0
    For L = 1 To Len(s)
        sCh = Mid(s, L, 1)
        If sCh Like "[0-9a-zA-Z]" Or sCh = "_" Then
        Else
            IsSpecial = 1
            Exit Function
        End If
    Next L
End Function

Hàm do người dùng xác định (UDF) rất dễ cài đặt và sử dụng:

1. ALT-F11 xuất hiện cửa sổ VBE
2. ALT-I ALT-M mở ra một mô-đun mới
3. dán nội dung vào và đóng cửa sổ VBE

Nếu bạn lưu sổ làm việc, UDF sẽ được lưu cùng với nó. Nếu bạn đang sử dụng phiên bản Excel sau đó sau 2003, bạn phải lưu tệp dưới dạng .xlsm chứ không phải .xlsx

Để xóa UDF:

1. đưa lên cửa sổ VBE như trên
2. xóa mã ra
3. đóng cửa sổ VBE

Để sử dụng UDF từ Excel:

= Đặc biệt (A1)

Để tìm hiểu thêm về macro nói chung, xem:

http://www.mvps.org/dmcritchie/excel/getstarted.htmlm

và

http://msdn.microsoft.com/en-us/l Library / e814735 (v = office.14) .aspx

và

http://www.cpearson.com/excel/WritingFiancesInVBA.aspx

để biết chi tiết về UDF

Macro phải được kích hoạt để làm việc này !

Đây là một giải pháp định dạng có điều kiện sẽ gắn cờ các bản ghi với các ký tự đặc biệt.

Chỉ cần áp dụng quy tắc định dạng có điều kiện mới cho dữ liệu của bạn sử dụng công thức (cực kỳ dài) bên dưới, đây A1là bản ghi đầu tiên trong cột tên tệp:

=SUMPRODUCT((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<48)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<>45))+SUMPRODUCT((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>57)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<65))+SUMPRODUCT((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>90)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<97)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<>95))+SUMPRODUCT((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>122)*1)

Công thức này kiểm tra từng ký tự của từng tên tệp và xác định xem mã ASCII của nó có nằm ngoài các giá trị ký tự được phép hay không. Thật không may, các mã ký tự được phép không phải là tất cả liền kề nhau, vì vậy đó là lý do tại sao công thức phải sử dụng tổng của SUMPRODUCTs. Công thức trả về số lượng ký tự xấu có. Bất kỳ ô nào trả về giá trị lớn hơn 0 đều được gắn cờ.

Thí dụ:

Tôi đã sử dụng một cách tiếp cận khác nhau để tìm các nhân vật đặc biệt. Tôi đã tạo các cột mới cho mỗi ký tự được phép và sau đó sử dụng một công thức như thế này để đếm số lần ký tự được phép trong mỗi mục nhập hàng (Z2):

AA2=LEN($Z2)-LEN(SUBSTITUTE($Z2,AA$1,""))
AB2=LEN($Z2)-LEN(SUBSTITUTE($Z2,AB$1,""))
...

Sau đó, tôi tổng hợp số lượng ký tự được phép trong mỗi hàng và sau đó so sánh nó với tổng độ dài của mục hàng.

BE2=LEN(Z2)
BF2=SUM(AA2:BC2)-BE2

Và cuối cùng, tôi đã sắp xếp trên cột cuối cùng (BF2) để tìm các giá trị âm, điều này dẫn tôi đến các cột cần điều chỉnh.