用于循环活动单元格的参考问题

我想结合以下2个子循环通过一个范围，采取表4活动单元格中的值和'包含'自动filter中的表“数据库”中的值。

这是一个参考问题，因为自动过滤线是错误的。

这里是代码：

选项显式

Sub Test2() Dim searchedvalue As Range Sheets("4").Select Range("A2").Select 'Set Do loop to stop when an empty cell is reached. Do Until IsEmpty(ActiveCell) Call FILTER1 ActiveCell.Offset(1, 0).Select Loop End Sub Sub FILTER1() Dim searchedvalue As Range Set searchedvalue = Sheets("4").ActiveCell.Selection Sheets("Database").Range("q2").AutoFilter Field:=17, Criteria1:="=*" & searchedvalue.Value & "*", Operator:=xlAnd End Sub 

我有最后一行“对象不支持这个属性或方法”的错误。 正在过滤的单元格的值是顺序向下移动到A列中的一个范围，即“4”

Answer 1

做得很好，使用Option Explicit但是使用Select方法和ActiveCell遇到问题。 相反，使用Rangevariables，如下所示：

 Sub Test2() Dim targetCell As Range Set targetCell = ThisWorkbook.Sheets("4").Range("A2") 'Set Do loop to stop when an empty cell is reached. Do Until IsEmpty(targetCell) Call FILTER1(targetCell) Set targetCell = targetCell.Offset(RowOffset:=1) Loop End Sub Sub FILTER1(ByRef searchedCell As Range) ThisWorkbook.Sheets("Database").Range("q2").AutoFilter Field:=17, Criteria1:="=*" & searchedCell.Value & "*", Operator:=xlAnd End Sub 

据推测，你有一些其他的代码，在自动FILTER1应用后的数据与FILTER1中的数据？