查询内容复制保存到新表，请高手指教，谢谢！

4809172

现在“查询”里已经有代码 在同表中显示查询结果  
该如何该代码 实现要把“周六户外活动日记账” 相同活动时间的条目通过窗体 查询出并复制到“费用记录查询”中
------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()

With Sheets("周六户外活动日记账")
ActiveWindow.DisplayGridlines = False     '▼▼工作表隐藏网格线
Set frng = .Range("c:c").Find(TextBox1.Text, , , xlWhole)         '集frng =。范围（“：”），发现（textbox1.text文本，，xlwhole实例）  此4行不能重复保存
    If frng Is Nothing Then                             '如果不frng是没有然后
           MsgBox "以保存"                                 '本以保存”
           Exit Sub
    End If
End With

ends = Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格
Range("k5:s65536").Clear '清除之前所有的筛选结果

For Each Rng In Range("c5:c" & ends)   '对("a5:a" & ends到最后一个有内容的单元格)做一个循环
     M = M + 1
     If Rng Like TextBox1.Value Then   '如果条件成立，那么
        Range("a" & M + 4 & ":i" & M + 4).Copy Range("k" & K + 4) '将记录复制到另一个区域
    End If

Next
End Sub

roych

给几个建议吧：
1、尽量加上工作表名。否则会因为打开不同的工作表而导致不同的区域被操作，如下：
Range("k5:s65536").Clear
如果打开的是A工作表，那么删除的就是A表的数据；如果打开的是B表，则B表数据被删除。
2、如果没记错的话，copy之后，应该还有一个paste的。写法大概是：
selection.Copy
range("A1").active'建议加上这个，先激活单元格再粘贴。不激活是否能够粘贴则不太清楚。
range("A1").paste
3、如果表格规整写，可以用ADO来完成筛选的工作。但你的表头有合并单元格（最右边那两列）……

glloin

粗略看了下， 个人感觉没必要用find 来搜索   用for    +数组    like 对比文本    textbox1.text 里面的值可以写模糊值   

glloin

第二部分不因该循环单元格对象   因该先讲单元格对象的值给数组   只用读取一次对象

glloin

可将条件成立的数据写在入字典或者另一数组中  最后在一次将这些值赋值给“另一个区域”