【用VBA】删除A列以“4”或“8”或“9”开头的整行

jsfc

dgenson 发表于 2019-9-9 12:48
Sub te()
Dim arr
arr = Sheet1.Range("a2").CurrentRegion

谢谢老师！

yylucke

大灰狼1976 发表于 2019-9-9 11:15
RAR附件打不开，根据你的说明写了个代码。

思路清奇，学习了！

yylucke

大灰狼1976 发表于 2019-9-9 11:15
RAR附件打不开，根据你的说明写了个代码。

思路清奇，学习了！

yylucke

大灰狼1976 发表于 2019-9-9 11:15
RAR附件打不开，根据你的说明写了个代码。

思路清奇，学习了！

yylucke

大灰狼1976 发表于 2019-9-9 11:15
RAR附件打不开，根据你的说明写了个代码。

思路清奇，学习了！

andfor828

方法太多了，留个脚印

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, m
  arr = [a2].CurrentRegion
  For i = 1 To UBound(arr, 1)
    If InStr("489", Left(arr(i, 1), 1)) = 0 Then
      m = m + 1
      For j = 1 To UBound(arr, 2)
        arr(m, j) = arr(i, j)
      Next
    End If
  Next
  [a2].CurrentRegion.ClearContents
  If m > 0 Then [a2].Resize(m, UBound(arr, 2)) = arr
End Sub

xiangbaoan

Option Explicit
Sub test()
Dim cn As Object, rs As Object, sq$
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO';Data Source=" & ThisWorkbook.FullName
sq = "SELECT * FROM [$a2:e" & Cells(Rows.Count, 1).End(xlUp).Row & "] WHERE LEFT(f1,1) NOT IN('4','8','9')"
rs.Open sq, cn, 1, 3
[a2].CopyFromRecordset rs
Range(Cells(rs.RecordCount + 2, 1), Cells(Rows.Count, 5)).ClearContents
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

everbest2015

请参考我的代码