Note: The other languages of the website are Google-translated. Back to English

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 ý kiến ​​hay3


mũi tên màu xanh bong bóng bên phải 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 Sub

3. 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.

doc tìm văn bản có gạch chân 1

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.

doc tìm văn bản có gạch chân 2

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.


mũi tên màu xanh bong bóng bên phải 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:

doc tìm văn bản có gạch chân 3

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:

doc tìm văn bản có gạch chân 4

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:

doc tìm văn bản có gạch chân 5
doc tìm văn bản có gạch chân 6

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:

doc tìm văn bản có gạch chân 7

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 để đóng nó.

doc tìm văn bản có gạch chân 8

Bây giờ tất cả các văn bản được gạch chân đã được chọn.

doc tìm văn bản có gạch chân 9

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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL