VBA:循环遍历变量的字符串数组，如果值匹配，则删除行
VBA:循环遍历变量的字符串数组，如果值匹配，则删除行
提问于 2017-02-15 21:41:20
我有多个文本变量(水果)，当它们出现在R列时，我需要删除整行。我得到了以下代码，但由于我有15个"Fruit“变量(将来可能需要添加更多变量)，我想知道如何才能使它成为一个带有循环的单个子例程。我尝试了很多方法，但都以惨败告终。是否可能使用包含所有名称的字符串数组？
提前谢谢你，
Sub Fix1()
Dim Fruit As String
Fruit = "Apple"
Do
On Error GoTo ByeBye
Range("R:R").Find(Fruit).EntireRow.Delete
Loop
ByeBye:
Exit Sub
End Sub
Sub Fix2()
Dim Fruit As String
Fruit = "Orange"
Do
On Error GoTo ByeBye
Range("R:R").Find(Fruit).EntireRow.Delete
Loop
ByeBye:
Exit Sub
End Sub回答 2
Stack Overflow用户
回答已采纳
发布于 2017-02-15 21:47:21
您可以使用AutoFiter()
Sub FixAll()
Dim Fruits As Variant
Fruits = Array("Apple", "Banana", "Pear") '<--| list your fruits
With Range("R:R") '<--| reference your range
.AutoFilter Field:=1, Criteria1:=Fruits, Operator:=xlFilterValues '<--| filter referenced column with 'Fruits'" content
If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete '<--| if any cell found other than header one then delete its corresponding row
End With
ActiveSheet.AutoFilterMode = False
End SubStack Overflow用户
发布于 2017-02-15 22:30:58
如果不需要删除第一行：
Dim r As Range
Set r = ActiveSheet.UsedRange
r.AutoFilter 19 - r.Column, Array("Apple", "Orange"), xlFilterValues
r.Offset(1).Delete xlShiftUp ' deletes the non-filtered rows
r.AutoFilter ' hide the filter页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42251018
复制相关文章
相似问题
腾讯云开发者
