Làm thế nào để trích xuất các chữ cái hoa hoặc các từ bắt đầu bằng chữ hoa từ chuỗi văn bản?
Nếu bạn có một danh sách các chuỗi văn bản, bây giờ, bạn chỉ muốn trích xuất tất cả các chữ cái viết hoa hoặc các từ bắt đầu bằng chữ cái in hoa từ các ô. Làm thế nào bạn có thể giải quyết nó trong Excel?
Trích xuất các chữ cái viết hoa từ các chuỗi văn bản với Hàm do Người dùng Xác định
Trích xuất các từ bắt đầu bằng chữ hoa từ chuỗi văn bản với Hàm do Người dùng Xác định
Trích xuất các chữ cái viết hoa từ các chuỗi văn bản với Hàm do Người dùng Xác định
Mã VBA sau có thể giúp bạn chỉ trích xuất các chữ cái viết hoa từ các ô, vui lòng thực hiện như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Chỉ trích xuất các chữ cái viết hoa từ chuỗi văn bản:
Hàm ExtractCap (Txt As String) As String 'Updateby Extendoffice
Application.Volatile Dim xRegEx As Object Set xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Đặt xRegEx = Không có gì End Function
3. Sau đó lưu mã và đóng mã này, quay lại trang tính, nhập công thức này: = EXTRACTCAP (A2) vào một ô trống nơi bạn muốn xuất kết quả, sau đó kéo chốt điền xuống các ô bạn muốn áp dụng công thức này và tất cả các chữ cái viết hoa đã được trích xuất cùng một lúc, xem ảnh chụp màn hình:
Trích xuất các từ bắt đầu bằng chữ hoa từ chuỗi văn bản với Hàm do Người dùng Xác định
Nếu bạn cần trích xuất các từ bắt đầu bằng chữ hoa từ chuỗi văn bản, mã VBA sau có thể giúp bạn.
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đun, sau đó sao chép và dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Trích xuất các từ bắt đầu bằng chữ hoa:
Hàm StrExtract (Str As String) As String 'Updateby Extendoffice
Ứng dụng. Biến thể Dim xStrList As Variant Dim xRet As String Dim I As Long If Len (Str) = 0 Then Exit Function xStrList = Split (Str, "") If UBound (xStrList)> = 0 Then For I = 0 To UBound ( xStrList) If xStrList (I) = StrConv (xStrList (I), vbProperCase) Then xRet = xRet & xStrList (I) & "" End If Next StrExtract = Left (xRet, Len (xRet) - 1) End If End Function
3. Và sau đó lưu mã và đóng cửa sổ mã, nhập công thức này: = StrExtract (A2) vào một ô trống bên cạnh dữ liệu của bạn, sau đó kéo chốt điền xuống các ô mà bạn muốn nhận kết quả và tất cả các từ bắt đầu bằng chữ hoa sẽ được trích xuất, xem ảnh chụp màn hình:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
