Office中国论坛/Access中国论坛

标题: 请问如何将筛选结果自动复制到其他位置？ [打印本页]

作者: 尘心 时间: 2005-5-9 00:07
标题: 请问如何将筛选结果自动复制到其他位置？
有一个关于统计的表格,筛选后如何将筛选结果自动复制到其他位置而不用手工复制?高级筛选里面有此项功能,请问如何使用,恳请各位高手不吝赐教,谢谢!

作者: 情比金坚 时间: 2005-5-10 03:53

以下是引用尘心在2005-5-8 16:07:24的发言：
有一个关于统计的表格,筛选后如何将筛选结果自动复制到其他位置而不用手工复制?高级筛选里面有此项功能,请问如何使用,恳请各位高手不吝赐教,谢谢!

高手也高不过微软团队啊？！

作者: 尘心 时间: 2005-5-11 16:41
谢谢版主的回复,看来暂时只能用手工复制了。各位大侠,请再帮我看看,这个问题困扰我好长时间了,一直找不到解决的办法，就此谢过了！

作者: geneliu 时间: 2005-5-13 02:33
标题: 我来帮一帮，也一起学习一下！
[attach]10417[/attach]
这里有一个参考文件，从别的地方找来的。可以实现你说的功能，其实也是我这些天一直泡在这里所期待的——你我同病相怜呐[em01]

我也刚开始学习VBA，[em04]所以其中的代码分析了两天才看出一点端倪，还不是很了解每一步的具体作用，而且还有好多语法不太明白[em06] [em06] [em04] [em04]。

希望在此抛砖引玉，有待高手来作分析解答。

期待中……

作者: dengyf 时间: 2005-5-15 00:26
我发一段代码给你，只能一排数据，参考一下吧

Sub 自动保存()

Dim icount As Integer
icount = Sheets("保存").[A1].CurrentRegion.Rows.Count
Sheets("输入").Select
Range("$2

2").Select
Selection.Copy
Sheets("保存").Activate
Rows(icount + 1).Select
ActiveSheet.Paste
Sheets("输入").Select
Application.CutCopyMode = False
MsgBox "记录保存成功,请继续!", vbOKOnly, "确定"

End Sub

作者: shanui 时间: 2005-5-20 04:47
[attach]10550[/attach]

只要把光标移到“复制到”框中，然后单击复制到的第一个单元格即可。

作者: 尘心 时间: 2005-5-21 01:14

以下是引用shanui在2005-5-19 20:47:00的发言：

只要把光标移到“复制到”框中，然后单击复制到的第一个单元格即可。

非常感谢！我就是想用这个方法来达到自动复制的目的，可不知道怎么用，谢谢shanui的帮助，我再回去试一下。

作者: wtusever 时间: 2005-5-24 01:54
用高级筛选

作者: 尘心 时间: 2005-5-24 17:46

以下是引用wtusever在2005-5-23 17:54:00的发言：

用高级筛选

我就是这个意思，只是先前＂高级筛选＂不太会用．

作者: 尘心 时间: 2005-5-24 17:47

以下是引用dengyf在2005-5-14 16:26:00的发言：

我发一段代码给你，只能一排数据，参考一下吧

Sub 自动保存()

Dim icount As Integer

icount = Sheets("保存").[A1].CurrentRegion.Rows.Count

Sheets("输入").Select

Range("$22").Select

Selection.Copy

Sheets("保存").Activate

Rows(icount + 1).Select

ActiveSheet.Paste

Sheets("输入").Select

Application.CutCopyMode = False

MsgBox "记录保存成功,请继续!", vbOKOnly, "确定"

End Sub

谢谢你发的代码，我去试一下．

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)