Delete dòng có điều kiện (1 người xem)

[winnies]

你好 您好

Hello! Hello!

你好吗

How are you?

我很好

I’m fine.

您好 您好

Hello! Hello!

麦苗 苏珊

Mai Miao! Susan!

你先说 女士优先嘛

Go ahead, ladies first.

Có cách nào delele các dòng tiếng anh nhanh chóng ko mọi người, vì dòng rất nhiều nên dùng thủ công rất mất thời gian. Mong cả nhà giúp đở

 

[CHAOQUAY]

你好 您好

Hello! Hello!

你好吗

How are you?

我很好

I’m fine.

您好 您好

Hello! Hello!

麦苗 苏珊

Mai Miao! Susan!

你先说 女士优先嘛

Go ahead, ladies first.

Có cách nào delele các dòng tiếng anh nhanh chóng ko mọi người, vì dòng rất nhiều nên dùng thủ công rất mất thời gian. Mong cả nhà giúp đở

Thử code này.
Dữ liệu bắt đầu từ A1, sheet1.

Sub Del_()
Dim i As Long
With CreateObject("VbScript.RegExp")
    .Pattern = "[a-zA-Z]+"
    For i = 12 To 1 Step -1
        If .test(Sheet1.Range("A" & i)) Then
            Sheet1.Range("A" & i).EntireRow.Delete
        End If
    Next i
End With
End Sub

 

[huuthang_bd]

你好 您好

Hello! Hello!

你好吗

How are you?

我很好

I’m fine.

您好 您好

Hello! Hello!

麦苗 苏珊

Mai Miao! Susan!

你先说 女士优先嘛

Go ahead, ladies first.

Có cách nào delele các dòng tiếng anh nhanh chóng ko mọi người, vì dòng rất nhiều nên dùng thủ công rất mất thời gian. Mong cả nhà giúp đở

B1=CODE(A1)
Hoặc
B1=SEARCH(LEFT(A1),"ABCDEFGHIJKLMNOPQRSTUVXYZ")
Lọc và xóa theo cột B

 

[VetMini]

Chỉ cần tìm dòng đầu tiên tiếng Anh từ dưới đếm lên. Các dòng còn lại thì chỉ là cách quãng một.

Mà do thớt lười chứ cái này record macro vào 1 phím tắt nào đó rồi cứ thế mà nhấn. Không thể mất thời gian hơn đăng lên hỏi và tải code về.

 

[winnies]

các bác có thể tạo 1 file excel bằng code VBA giúp em được không. Em không biết VBA ^^!

 

[SA_DQ]

các bác có thể tạo 1 file excel bằng code VBA giúp em được không. Em không biết VBA!

Bạn nên tạo 1 bài đăng mới hoàn toàn của bạn; Nhưng chuyện tạo 1 file bằng VBA là không nên, trong khi bạn có thể làm ra đứa con tinh thần của riêng mình!