急急急

196391689

将前四个表的内容按照要求筛选到第5个表中
要求单元格的颜色和前四个表的颜色一样
内容要全部显示不能重复的就不显示了
请直接给我代码，解压的文件我好像下不了谢谢了

无聊的疯子

回复 196391689 的帖子

一样的问题为啥了开2个帖子呢?

这个帖子里的要求也没说明是啥啊??

还是专心搞好一个帖子吧!!

laosanjie

没看懂楼主的要求？
其中“要求单元格的颜色和前四个表的颜色一样”，但前四个表的颜色就有不一样的！？

196391689

前面单元格的颜色什么样子晒优选过去颜色是一样的比如A2为黄色则筛选过去在sheet1中显示的记录颜色也是黄色

fjmxwrs

1. Private Sub CommandButton1_Click()
   
2. Dim R&, x&
   
3. Sheets(5).Range("A1:E65536").ClearContents
   
4. For x = 1 To 4
   
5. With Sheets(5)
   
6. R = Sheets(x).Range("A65536").End(xlUp).Row
   
7. Sheets(x).Range("A1:E" & R).Copy .Range("E65536").End(xlUp).Offset(1)
   
8. End With
   
9. Next x
   
10. End Sub

复制代码

11111.rar (12.91 KB, 下载次数: 0)

2011-6-7 22:30 上传

点击文件名下载附件

你就是把四个表合成一个表是吧？

fjmxwrs

1. Private Sub CommandButton1_Click()
   
2. Dim R&, x&
   
3. Sheets(5).Range("A1:E65536").ClearContents
   
4. For x = 1 To 4
   
5. With Sheets(x)
   
6. R = .Range("A65536").End(xlUp).Row
   
7. If x = 1 Then
   
8. .Range("A1:E" & R).Copy Sheets(5).Range("E1")
   
9. Else
   
10. .Range("A1:E" & R).Copy Sheets(5).Range("E65536").End(xlUp).Offset(1)
    
11. End If
    
12. End With
    
13. Next x
    
14. End Sub

复制代码

11111.rar (13.04 KB, 下载次数: 0)

2011-6-7 22:35 上传

点击文件名下载附件

前面的结果是从第二行开始写入的，这个写到第一行开始。

搁浅2008

回复 196391689 的帖子

11111.rar (12.49 KB, 下载次数: 1)

2011-6-7 22:36 上传

点击文件名下载附件

搁浅2008

如果在同一个表 可以用union 不在同一表不可以的 我用的字典 估计你抄代码也会错