如何根据指定条件，提取所有工作表中包含有条件数据的档案清单？

山菊花

zsj507 发表于 2019-11-9 22:42
版主，请问可以解决的吗？另可否设置成将提取后的数据清单全部默认为文本格式？

1、知道了是筛选的问题，要么用手工取消，要么用代码取消，自己动手。或者，修改下面两行代码：
            nRow = sh.Range("f65536").End(xlUp).Row
            Arr = sh.Range("a1:n" & nRow).Value
为：
            Arr = sh.UsedRange.Value
            nRow = UBound(Arr)
但这也不是适用所有情况。

2、将结果页设置为文本格式就可以（如最后一栏，已经给你设置好），代码中将变量声明Brr()改为Brr$()。