我正在嘗試通過 VBA 洗掉第 13 列的單元格中數字低于整數 5 的 Excel 行。該代碼只是按搜索條件過濾行，然后洗掉不需要的行。
'1. Apply Filter
ws.Range("A5:O202").AutoFilter Field:=13, Criteria1:="<5"
'2. Delete Rows
Application.DisplayAlerts = False
ws.Range("A5:O202").SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
'3. Clear Filter
On Error Resume Next
ws.ShowAllData
On Error GoTo 0
為了讓它繼續，我的代碼指定了一個靜態范圍以容納最多 202 行的不同表長度，但是我可以更改它以使范圍在第 13 列中發現的第一個空單元格之前設定為一個嗎？
uj5u.com熱心網友回復：
Sub t()
Dim t As Long
Dim ws As Worksheet
Set ws = ActiveSheet
t = 1
Do Until IsEmpty(ws.Cells(t, 13))
If ws.Cells(t, 13) < 5 Then
ws.Rows(t).Delete
Else
t = t 1
End If
Loop
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/479527.html
上一篇：復制-如果特定范圍為空而另一個不是（VBA），則粘貼在行范圍上方
下一篇：VB-如何初始化字符陣列？