★使用有效性信息配合引用数据★

高兴001

我的做法是：下载附件排座位，保存到桌面，解压，打开文件，运行宏，点击“高级筛选”按钮，出现

[ 本帖最后由 高兴001 于 2011-5-14 22:28 编辑 ]

LangQueS

1楼的这个附件在我这里正常……如果没发生任何修改……以前在某单位盗版软件出现过类似现象。

LangQueS

以前的解决方法：

Sub 标准高级筛选()
On Error GoTo 1    '如果提示错误，就转移到1位置
'数据库
a1 = Sheets("数据库").Rows(1).Find("*", , xlValues, , , 2).Column   '数据库第1行最后列号
a = Split(Cells(1, a1).Address, "$")(1)     '转为最后列标

'复制目的位置
b1 = Range("a1:a50").Find("行号").Row      '在查找指定文本返回行号
b2 = Rows(b1).Find("*", , xlValues, , , 2).Column   '“行号”所在行(标题行)最后列号
b = Split(Cells(1, b2).Address, "$")(1)     '转为最后列标

'条件区
c1 = Rows(1).Find("*", , xlValues, , , 2).Column   '第1行最后列号
c = Split(Cells(1, c1).Address, "$")(1)     '转为最后列标

'高级筛选  (从第1行到筛选标题行上2行是条件行)
    Sheets("数据库").Range("a:" & a).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:" & c & b1 - 2), CopyToRange:=Range("A" & b1 & ":" & b & b1), Unique:= _
        False
GoTo 2
1:     '以下是为出现错误而设置的内容
Call 清除筛选结果
2:
    Cells.Find(What:="*", LookAt:=xlPart, MatchByte:=False).Activate '查找不匹配且不区分全角和半角
End Sub

高兴001

首先谢谢你的回复，让您费心了。我的台式机子是自己装的excel，我把软件转移到我的笔记本上后，功能正常！

[ 本帖最后由 高兴001 于 2011-5-15 20:15 编辑 ]

cnwall

有好东西就得收藏

freeman2011

正在下载学习中，先谢谢了！

wkslq

学习了，收藏以后好用。

bluexuemei

强大,学习了!

highthin

谢谢LZ分享,学习了

卓善之家

谢谢楼主分享，第一次下载学习中