[已解决]请高手帮忙提取除了指定工作表内的其他数据

qiongmei

我附件上有一工作簿，我想实现的功能是除了“个人休假”和“界面”工作表外，其他的表格中的b2列及d3的数据会对应出现在界面工作表的e列和f列，现在界面的e列和f列就是我希望得到的结果。除了“个人休假”和“界面”工作表外其他的表格的名称都是不固定的，再次谢谢高手们的帮忙。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-12 00:42

1. Sub 读取休假数据()
   
2. Dim wjh%
   
3.     For wjh = 3 To Sheets.Count
   
4.             With Sheets("界面").Range("E65536").End(xlUp)
   
5.             .Offset(1, 0) = Sheets(wjh).Range("B2")
   
6.             .Offset(1, 1) = Sheets(wjh).Range("D3").Value
   
7.            End With
   
8.     Next
   
9. End Sub
   

复制代码

1. Sub 读取休假数据()
   
2. Dim sh As Object
   
3.     For Each sh In Sheets
   
4.         If InStr("界面,个人休假", sh.Name) = 0 Then
   
5.             With Sheets("界面").Range("E65536").End(xlUp)
   
6.             .Offset(1, 0) = sh.Range("B2")
   
7.             .Offset(1, 1) = sh.Range("D3").Value
   
8.            End With
   
9.         End If
   
10.     Next
    
11. End Sub
    

复制代码

历遍全部工作表，就以上两种方法，你自己按要求选用！

跳转到最佳答案楼层

mxg825

1. Sub 读取休假数据()
   
2. Dim wjh%
   
3.     For wjh = 3 To Sheets.Count
   
4.             With Sheets("界面").Range("E65536").End(xlUp)
   
5.             .Offset(1, 0) = Sheets(wjh).Range("B2")
   
6.             .Offset(1, 1) = Sheets(wjh).Range("D3").Value
   
7.            End With
   
8.     Next
   
9. End Sub
   

复制代码

1. Sub 读取休假数据()
   
2. Dim sh As Object
   
3.     For Each sh In Sheets
   
4.         If InStr("界面,个人休假", sh.Name) = 0 Then
   
5.             With Sheets("界面").Range("E65536").End(xlUp)
   
6.             .Offset(1, 0) = sh.Range("B2")
   
7.             .Offset(1, 1) = sh.Range("D3").Value
   
8.            End With
   
9.         End If
   
10.     Next
    
11. End Sub
    

复制代码

历遍全部工作表，就以上两种方法，你自己按要求选用！