Fatal编程技术网
  • vba/
  • VBA在筛选数据后停止运行，但没有错误消息

VBA在筛选数据后停止运行，但没有错误消息

vba excel

VBA在筛选数据后停止运行，但没有错误消息,vba,excel,advanced-filter,Vba,Excel,Advanced Filter,我正在尝试使用高级筛选器筛选数据，然后将可见单元格复制到工作簿中的单独工作表中： Dim S_ALR, OUTPUTS, INPUTS As Worksheet Set S_ALR = ActiveWorkbook.Sheets("S_ALR_87012357") Set OUTPUTS = ActiveWorkbook.Worksheets("OUTPUTS") 'clear data Worksheets("OUTPUTS").Range("A:AK").ClearContents 'c

我正在尝试使用高级筛选器筛选数据，然后将可见单元格复制到工作簿中的单独工作表中：

Dim S_ALR, OUTPUTS, INPUTS As Worksheet
Set S_ALR = ActiveWorkbook.Sheets("S_ALR_87012357")
Set OUTPUTS = ActiveWorkbook.Worksheets("OUTPUTS")

'clear data
Worksheets("OUTPUTS").Range("A:AK").ClearContents

'copy Outputs from S_ALR_87012357 to OUTPUTS tab

S_ALR.Range("A:AK").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Sheets("FILTERS").Range("A3:B9"), Unique:=False
S_ALR.Range("A:AK").SpecialCells(xlCellTypeVisible).Copy
OUTPUTS.Cells(1, 1).PasteSpecial
但是，过滤数据后，宏停止，且没有错误消息

我已经注释掉了过滤器并运行了宏&其余的代码工作正常。我还尝试将CopyToRange放入过滤器中，将copy/pass合并到过滤器本身中，但这也不起作用

我对这一点还不熟悉，所以可能是我遗漏了一些简单的东西，但我完全被难住了！
请帮忙。

你说的“停止”是什么意思？就这么结束了吗？您可以通过使用F8单步执行代码并检查相关的可变值来找到答案。更多信息：来自Chip Pearson。宏是否真的停止执行，还是无法执行复制/粘贴操作？调试您的代码或在筛选器后打印“我还活着”语句，并检查即时窗口中的输出工作簿中是否有任何其他事件代码（例如
工作表\u计算
事件）或者在条件格式中使用任何自定义项？在该子函数/函数中的任何位置都有
On Error Resume Next
语句吗？