[已解决]帮忙改一句代码，就是高级筛选结果到其他工作表

xiaokev9

代码如下：

Sub test()
Dim database As Range
Dim criteria_range As Range
Dim extract_field As Range
Set database = Sheets("票据库").Range("A1").CurrentRegion
Set criteria_range = Range("A1", Cells(1, Range("iv1").End(xlToLeft).Column)).CurrentRegion
Set extract_field = Range("a8", Cells(8, Range("IV8").End(xlToLeft).Column))
extract_field.CurrentRegion.Offset(1, 0).Clear
database.AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=criteria_range, CopyToRange:=extract_field, Unique:=False
End Sub

主要是改Set extract_field = Range("a8", Cells(8, Range("IV8").End(xlToLeft).Column))

目前筛选结果是筛选到条件所在工作表的 A8单元格开始。
要改成筛选结果到到其他工作表的A1单元格开始，求帮助。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-24 11:20

Set extract_field = worksheets(”工作表名称"）.Range("a1")
没有附件，就没有做测试了。

跳转到最佳答案楼层

hwc2ycy

指定工作表前缀就行了。

hwc2ycy

Set extract_field = worksheets(”工作表名称"）.Range("a1")
没有附件，就没有做测试了。

xiaokev9

hwc2ycy 发表于 2014-11-24 11:20
Set extract_field = worksheets(”工作表名称"）.Range("a1")
没有附件，就没有做测试了。

日，附件上传不上去，我改成 Set extract_field = Worksheets("筛选结果").Range("a1")以后，结果只有A列有数据，别的都没有

xiaokev9

hwc2ycy 发表于 2014-11-24 11:20
Set extract_field = worksheets(”工作表名称"）.Range("a1")
没有附件，就没有做测试了。

我改成  Set extract_field = Worksheets("筛选结果").Range("a1:s1") 以后，显示正常，但是筛选结果不对。。

xiaokev9

hwc2ycy 发表于 2014-11-24 11:20
Set extract_field = worksheets(”工作表名称"）.Range("a1")
没有附件，就没有做测试了。

附件上传不了，如图，下面是筛选的结果，但是明显跟条件对不上，例如20-21行，票面金额就不符合条件，不晓得是哪个地方的问题。

xiaokev9

已解决，谢谢