Nhờ xóa giúp tự động các dòng chứa toàn số trong word (2 người xem)

[trungvdb]

Em tải sub trên Youtube, kết quả như hình dưới, nay em muốn xóa tất cả các dòng màu vàng (có chứa toàn các số như dưới hình) thì có làm được không ah? Mong các bác giúp cho.

 

[ndu96081631]

Em tải sub trên Youtube, kết quả như hình dưới, nay em muốn xóa tất cả các dòng màu vàng (có chứa toàn các số như dưới hình) thì có làm được không ah? Mong các bác giúp cho.
View attachment 194588

Dán vào Excel làm cho dễ bạn à. (có thể filter)
Mà xóa hết số để làm gì nhỉ? Sub chạy được là nhờ có mấy con số đó mà

 

[trungvdb]

Dạ em xóa để ghép các chữ lại in ra giấy cho cháu tham khảo so với đoạn MP3 gốc thày ah.

 

[trungvdb]

Dán vào Excel làm cho dễ bạn à. (có thể filter)
Mà xóa hết số để làm gì nhỉ? Sub chạy được là nhờ có mấy con số đó mà

Oh, thế mà em không nghĩ ra, em cảm ơn thày ah

 

[be_09]

Em tải sub trên Youtube, kết quả như hình dưới, nay em muốn xóa tất cả các dòng màu vàng (có chứa toàn các số như dưới hình) thì có làm được không ah? Mong các bác giúp cho.

Nó có 1 quy luật, chỉ cần copy và Paste vào Excel, chọn B2:B5 Fill xuống, Filter chọn A và xóa dòng.

 

[phulien1902]

Nó có 1 quy luật, chỉ cần copy và Paste vào Excel, chọn B2:B5 Fill xuống, Filter chọn A và xóa dòng.

Có thể xóa thế này:

Sub abc()
    Dim LR As Long, i As Long
    With Sheets(1)
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = LR To 2 Step -1
            If (.Range("A" & i).Value) Like "*" & "-->" & "*" Or IsNumeric(.Range("A" & i).Value) Then .Rows(i).Delete
        Next
    End With
End Sub