(Help)Cần bỏ những dòng chứa ký tự số (2 người xem)

[ngachkkt_dk]

Chào các anh chị và các bạn,
Nhờ các anh chị giúp em (mình) bỏ những dòng chứa ký tự số và thời gian, chỉ giữ lại dòng text như trong file đính kèm với ạ. Em loay hoay mãi mà k làm được. Thanks các anh chị.

 

[dhn46]

Tại B2 bạn dùng công thức

=IF(ISNUMBER(A1),1,"")

Sau đó filter lấy số 1 và xóa các hàng đó đi

 

[phulien1902]

Chào các anh chị và các bạn,
Nhờ các anh chị giúp em (mình) bỏ những dòng chứa ký tự số và thời gian, chỉ giữ lại dòng text như trong file đính kèm với ạ. Em loay hoay mãi mà k làm được. Thanks các anh chị.

Bạn thử với:

Sub abc()
    Dim i, LR
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To LR
        If Cells(i, 1) Like "*-->*" Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next
    Columns("A:A").SpecialCells(xlCellTypeConstants, 1).Delete
End Sub

 

[phulien1902]

Tại B2 bạn dùng công thức

=IF(ISNUMBER(A1),1,"")

Sau đó filter lấy số 1 và xóa các hàng đó đi

Công thức này mới loại được thời gian, chưa loại được số thì phải?

 

[PacificPR]

Em góp vui với
Công thức B1

=IF(ISNUMBER(VALUE(MID(A1;1;1)));"";A1)

Còn dùng VBA thì có cái Code này

Sub Laydulieu()
    Dim sArr, dArr, I As Long, K As Long
With Sheet1
    sArr = .Range("A1", .Range("A65535").End(3)).Value
    ReDim dArr(1 To UBound(sArr), 1 To 1)
    For I = 1 To UBound(sArr)
        If Not IsNumeric(Mid(sArr(I, 1), 1, 1)) Then
            K = K + 1
            dArr(K, 1) = sArr(I, 1)
        End If
    Next I
    .Range("C1").Resize(K, 1) = dArr
End With
End Sub

 

[dhn46]

Công thức này mới loại được thời gian, chưa loại được số thì phải?

Đúng rồi anh, vậy sửa lại 1 chút

=IF(OR(ISNUMBER(A1),ISNUMBER(A2)),1,"")

 

[ngachkkt_dk]

Tại B2 bạn dùng công thức

=IF(ISNUMBER(A1),1,"")

Sau đó filter lấy số 1 và xóa các hàng đó đi

Thanks anh, nhưng cú pháp này chỉ bỏ được mỗi số thôi, em muốn bỏ cả thời gian nữa

 

[ngachkkt_dk]

Bạn thử với:

Sub abc()
    Dim i, LR
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To LR
        If Cells(i, 1) Like "*-->*" Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next
    Columns("A:A").SpecialCells(xlCellTypeConstants, 1).Delete
End Sub

Thanks anh.
Em làm được rồi anh ạ

 

[ngachkkt_dk]

Em góp vui với
Công thức B1

=IF(ISNUMBER(VALUE(MID(A1;1;1)));"";A1)

Còn dùng VBA thì có cái Code này

Sub Laydulieu()
    Dim sArr, dArr, I As Long, K As Long
With Sheet1
    sArr = .Range("A1", .Range("A65535").End(3)).Value
    ReDim dArr(1 To UBound(sArr), 1 To 1)
    For I = 1 To UBound(sArr)
        If Not IsNumeric(Mid(sArr(I, 1), 1, 1)) Then
            K = K + 1
            dArr(K, 1) = sArr(I, 1)
        End If
    Next I
    .Range("C1").Resize(K, 1) = dArr
End With
End Sub

Thanks chị,
Phần code thì em chạy được rồi, còn phần công thức thì em chạy mà k được

 

[phulien1902]

Thanks chị,
Phần code thì em chạy được rồi, còn phần công thức thì em chạy mà k được

Tôi nghĩ bạn thay dấu ";" thành dấu "," là ổn.

 

[ngachkkt_dk]

Tôi nghĩ bạn thay dấu ";" thành dấu "," là ổn.

Thanks anh. Em làm đc rồi anh