请教把多表中满足条件的数据合并在一起的方法

LangQueS · 发表于 2009-5-11 09:53

原帖由 szuki 于 2009-5-11 09:35 发表
呵呵，没看懂。。。。

学习ing

当修改A1单元时执行“筛选”宏：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A1]) Is Nothing Then
Call 筛选
End If
End Sub

“筛选”宏：
Sub 筛选()
Application.Calculation = xlCalculationManual    '手动重算
z = Sheets(1).Range("a65536").End(xlUp).Row    'A列最后可见单元的行号
Sheets(1).Range("a4:f" & z) = ""
For i = 2 To Sheets.Count
y = Sheets(i).Range("a65536").End(xlUp).Row    'A列最后可见单元的行号
For a = 2 To y
If Sheets(i).Range("a" & a) = Sheets(1).Range("a1").Value Then
x = Sheets(1).Range("a65536").End(xlUp).Row + 1    'A列最后可见单元的行号加1
Sheets(1).Range("a" & x & ":f" & x) = Sheets(i).Range("b" & a & ":g" & a).Value
End If
Next
Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

flj30 · 发表于 2009-7-29 11:50

看看表是这么简单,原来内容这么多啊.看不懂啊

excel_cainiao · 发表于 2009-7-29 14:13

下载下来看看，学习学习

whoup · 发表于 2009-8-4 09:26

很实用。刚好需要这个。先学习了

LangQueS · 发表于 2009-8-4 10:00

原帖由 flj30 于 2009-7-29 11:50 发表
看看表是这么简单,原来内容这么多啊.看不懂啊

我也不懂代码，是拼凑的。

[ 本帖最后由 LangQueS 于 2009-8-4 10:01 编辑 ]

wenqi · 发表于 2009-8-17 14:40

强悍！！！
学学
EXCEL太强大了

shayucom · 发表于 2010-4-11 22:43

高手.受教了

XIAOXIAOLI · 发表于 2010-6-14 20:34

谢谢了！非常感谢分享，太厉害了

fugb-2010 · 发表于 2010-7-6 06:46

初学VBA,请多多关照!

双手合十 · 发表于 2010-7-25 18:22

谢谢分享！

		自动登录	找回密码
密码			免费注册