表格一旦有筛选，无法运行出正确的结果

Cila

请问各位高手一个问题，我有个简单的宏（见附件）在H列从N列寻找出相应的名字（相当于VLOOKUP），在整个表没有筛选的情况一切正常，但是一旦有筛选了，出来的数字就不对了，并且隐藏行里的数据不在更新，请问有什么办法能在有筛选的情况下，依然可以给出相应的数值呢？我需要的全部的，包括隐藏行所对应的数字。



我试过做循环，可以达到我的要求，但是一旦数据量加大，运算时间太慢，而且电脑极容易死机。

huang1314wei

你这代码设计的，如果按照你这样写，不如直接用vlookup函数解决

Cila

这只是一个测试用的例子，其实我要做的要比这个复杂的多，VLOOKUP只是其中的一小部分。。这个帅选后就出错的问题，无论公式是复杂还是简单都同样存在。

huang1314wei

Cila 发表于 2015-12-3 17:13
这只是一个测试用的例子，其实我要做的要比这个复杂的多，VLOOKUP只是其中的一小部分。。这个帅选后就出错 ...

你既然知道在筛选模式会影响公式填充，那问题就好办了，填充之前显示所有数据就行了

Sub Macro1()


   
With Range("H2:H16")

.ClearContents

If Sheet1.FilterMode Then Sheet1.ShowAllData  '如果表格在筛选模式，则显示所有数据

.Value = Application.WorksheetFunction.VLookup(Range("A2:A16"), Columns("M:n"), 2, 0)

End With

End Sub

Cila

huang1314wei 发表于 2015-12-3 17:28
你既然知道在筛选模式会影响公式填充，那问题就好办了，填充之前显示所有数据就行了

Sub Macro1()

谢谢你的建议，这点也我也想过，只是我的原表需要一直保持着筛选，难道我需要记录每一个筛选的内容？运行完了之后再筛选一下？

仁岩

我也遇到相同的问题，也没有发现解决的办法；宏有优势，有缺陷的宏，也很可怕，渴望高人搭救........