[求助] 如何从另一张工作薄中自动筛选符合条件的数据到不同的工作薄中

liangyuehua

上传附件：
读取各柱反力.xlsm

文件中共有6个sheet表：
0.1【柱平面布置】：存放柱节点号

2.2【柱1底反力】：需要根据“0.1【柱平面布置】”中柱1对应的节点号从“2.X【柱反力总表】”读取对应的荷载数据
2.3【柱2底反力】：需要根据“0.1【柱平面布置】”中柱2对应的节点号从“2.X【柱反力总表】”读取对应的荷载数据
2.4【柱3底反力】：需要根据“0.1【柱平面布置】”中柱3对应的节点号从“2.X【柱反力总表】”读取对应的荷载数据
2.5【柱4底反力】：需要根据“0.1【柱平面布置】”中柱4对应的节点号从“2.X【柱反力总表】”读取对应的荷载数据

2.X【柱反力总表】：存放着所有柱所有荷载工况的反力数据


小弟刚开始接触vba，想了好多天还是没有好办法，跪求各位大侠伸出援助之手

shenghua8

很简单的一个问题，
被楼主描述得那么复杂。

你就不知道说简单点，让大家都看得懂？

一句话就说完：
根据第6张工作表“节点”列数据1、2、3、4，
分别高级筛选到第2、3、4、5张工作表里。

1. Sub 根据节点号筛选到不同的工作表()
   
2.     Sheets("2.2【柱1底反力】").Select
   
3.     Range("A4", Cells(Cells(Rows.Count, "H").End(xlUp).Row + 1, "H")).Delete
   
4.     Range("A5").Select
   
5.     Sheets("2.X【柱反力总表】").Range("A3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("0.1【柱平面布置】").Range("A1:A2"), CopyToRange:=Range("A3:H3"), Unique:=False
   
6.     Sheets("2.3【柱2底反力】").Select
   
7.     Range("A4", Cells(Cells(Rows.Count, "H").End(xlUp).Row + 1, "H")).Delete
   
8.     Range("A5").Select
   
9.     Sheets("2.X【柱反力总表】").Range("A3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("0.1【柱平面布置】").Range("B1:B2"), CopyToRange:=Range("A3:H3"), Unique:=False
   
10.     Sheets("2.4【柱3底反力】").Select
    
11.     Range("A4", Cells(Cells(Rows.Count, "H").End(xlUp).Row + 1, "H")).Delete
    
12.     Range("A5").Select
    
13.     Sheets("2.X【柱反力总表】").Range("A3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("0.1【柱平面布置】").Range("C1:C2"), CopyToRange:=Range("A3:H3"), Unique:=False
    
14.     Sheets("2.5【柱4底反力】").Select
    
15.     Range("A4", Cells(Cells(Rows.Count, "H").End(xlUp).Row + 1, "H")).Delete
    
16.     Range("A5").Select
    
17.     Sheets("2.X【柱反力总表】").Range("A3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("0.1【柱平面布置】").Range("D1:D2"), CopyToRange:=Range("A3:H3"), Unique:=False
    
18.     Sheets("0.1【柱平面布置】").Select
    
19. End Sub
    

复制代码

读取各柱反力.rar (88.49 KB, 下载次数: 32)

2015-10-12 10:02 上传

点击文件名下载附件

以后记住：
寻求帮助时，说人话，才会得到最快的回复。
否则，是自己给自己挖坑。

.

jzcjzcjzc

这个为什么要用VBA，很整齐很有规律的数据，用公式和函数可以直接提取的。

liangyuehua

非常感谢shenghua8的解答，受教了

liangyuehua

jzcjzcjzc 发表于 2015-10-12 21:17
这个为什么要用VBA，很整齐很有规律的数据，用公式和函数可以直接提取的。

请问这个怎么实现？用什么公式和函数，谢谢啦

liangyuehua

shenghua8 发表于 2015-10-12 10:05
很简单的一个问题，
被楼主描述得那么复杂。

还有一个问题：
本来有第7个表要调用已选好的表2、3、4、5中的数据，现在高级筛选后表7中的公式全变了

请问这个该怎么处理？运行宏前，可以在表7中用=直接调用表2中的所有数据，运行宏后，表7中的数据全变了

谢谢