Làm cách nào để tìm tất cả văn bản được gạch chân trong một dải ô hoặc toàn bộ trang tính trong Excel?
Giả sử bạn có một loạt dữ liệu trong một trang tính và một số dữ liệu có gạch dưới, và bây giờ bạn muốn tìm ra những dữ liệu này với gạch dưới, làm cách nào bạn có thể nhanh chóng tìm ra chúng? Ở đây tôi giới thiệu một số thủ thuật để bạn nhanh chóng tìm ra văn bản được gạch chân trong một phạm vi hoặc toàn bộ trang tính trong Excel.
Tìm tất cả văn bản được gạch chân trong một trang tính với VBA
Tìm tất cả các văn bản được gạch chân trong một phạm vi hoặc trang tính với Kutools cho Excel 
Tìm tất cả văn bản được gạch chân trong một trang tính với VBA
Trong Excel, bạn không thể sử dụng chức năng Đi tới Đặc biệt để tìm các văn bản được gạch dưới, vì vậy tôi giới thiệu mã VBA để giúp bạn tìm tất cả các văn bản được gạch dưới trong một trang tính.
1. nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ và nhấp chuột Chèn > Mô-đun.
2. Trong popping Mô-đun cửa sổ, dán mã VBA bên dưới.
VBA: Tìm tất cả văn bản được gạch chân trong một trang tính.
Sub SearchForUnderline()
'Updateby20150910
Dim Rg As Range, Rg1 As Range
Dim I As Long
Dim xAddress As String, xAddress1 As String, xAddress2 As String
Dim Result As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg = Rg.SpecialCells(xlCellTypeConstants)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
If xAddress1 = "" Then
xAddress1 = Rg1.Address
Else
xAddress1 = xAddress1 & ", " & Rg1.Address
End If
Exit For
End If
Next
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
If xAddress2 = "" Then
xAddress2 = Rg1.Address
Else
xAddress2 = xAddress2 & ", " & Rg1.Address
End If
Exit For
End If
Next
Next
If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
If Result <> "" Then MsgBox Result
End Sub3. nhấp chuột chạy nút hoặc bấm F5 Chìa khóa. Và một hộp thoại bật ra để chọn một phạm vi để tìm văn bản được gạch chân.
4. nhấp chuột OK, sau đó một hộp thoại sẽ bật ra để cho bạn biết ô nào là văn bản gạch chân đơn và ô nào là văn bản gạch chân kép.
Nếu bạn chỉ muốn tìm một loại văn bản được gạch chân trong một phạm vi cụ thể, mã VBA này không thể giúp bạn, nhưng bạn có thể sử dụng công cụ tiện dụng dưới đây để giải quyết công việc này trong trường hợp này.
Tìm tất cả các văn bản được gạch chân trong một phạm vi hoặc trang tính với Kutools cho Excel
Nếu bạn có Kutools cho Excel được cài đặt, bạn có thể áp dụng Chọn ô có định dạng tiện ích để nhanh chóng tìm ra các văn bản được gạch dưới trong một loạt các trang tính.
| Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. |
Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:
1. Chọn một ô trống, sau đó nhập dữ liệu vào đó, chẳng hạn như A1, và nhấp Trang Chủ > Gạch chânvà chọn một loại gạch chân bạn cần. Xem ảnh chụp màn hình:
2. Sau đó, chọn phạm vi bạn muốn tìm các văn bản được gạch chân cụ thể và nhấp vào Kutools > Chọn > Chọn ô có định dạng. Xem ảnh chụp màn hình:
3. Và trong Chọn ô có định dạng thoại, bấm Chọn định dạng từ ô để chọn ô bạn định dạng có gạch chân ở bước 1. Xem ảnh chụp màn hình:
4. nhấp chuột OK, và trong Chọn ô có định dạng hộp thoại, kiểm tra Gạch chân chỉ có. Xem ảnh chụp màn hình:
5. nhấp chuột Ok, sau đó một hộp thoại bật ra để nhắc bạn có bao nhiêu văn bản gạch chân được chọn, hãy nhấp vào Có để đóng nó.
Bây giờ tất cả các văn bản được gạch chân đã được chọn.
Lời khuyên:
1. Nếu bạn muốn tìm tất cả văn bản được gạch chân trong toàn bộ trang tính, hãy nhấp vào góc bên trái của trang tính để chọn toàn bộ trang tính, sau đó áp dụng Chọn ô có định dạng tiện ích.
2. kiểm tra Bỏ qua các ô trống in Chọn ô có định dạng , nó sẽ bỏ qua các ô trống mặc dù các ô trống được định dạng bằng gạch dưới.
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!
