[已解决]VBA指定文档显示内容，帮忙！

xhuang

HI，各位好！

       VBA指定文档显示内容，帮忙！

excel中有N个文档，只想让指定的文档数据汇总到一个表格里，其它不显示。

详细如附件。（已经部份VBA数据）

book.zip (214.45 KB, 下载次数: 4)

2014-11-19 14:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-19 15:29

book.rar (201.21 KB, 下载次数: 14)

2014-11-19 15:32 上传

点击文件名下载附件

楼主试试

1. Sub demo()
   
2.     Dim ar, br(1 To 60000, 1 To 22), arr
   
3.     arr = Array("A", "B", "C", "D", "E", "F", "G", "H")
   
4.     a = Cells(Rows.Count, 6).End(3).Row
   
5.     For x = 1 To Sheets.Count
   
6.         b = 0
   
7.         For y = 0 To UBound(arr)
   
8.             If Sheets(x).Name = arr(y) Then b = b + 1
   
9.         Next
   
10.         If b = 1 Then
    
11.             m = Sheets(x).Cells(Rows.Count, 1).End(3).Row
    
12.             If m > 4 Then
    
13.                 ar = Sheets(x).Range("A4:V" & m)
    
14.                 For i = 1 To UBound(ar)
    
15.                     n = n + 1
    
16.                     For j = 1 To UBound(ar, 2)
    
17.                         br(n, j) = ar(i, j)
    
18.                     Next
    
19.                 Next
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     Sheet1.Columns("f:g").NumberFormatLocal = "@"
    
24.     Sheet1.Range("f6").Resize(a, 22).ClearContents
    
25.     Sheet1.Range("f6").Resize(n, 22) = br
    
26. End Sub

复制代码

跳转到最佳答案楼层

爱疯

Sub demo()
    Dim ar, br(1 To 60000, 1 To 22)
    For x = 2 To Sheets.Count
    If Sheets(x).Name Like "?" Then
            m = Sheets(x).Cells(Rows.Count, 1).End(3).Row
            If m > 4 Then
                ar = Sheets(x).Range("A4:V" & m)
                For i = 1 To UBound(ar)
                    n = n + 1
                    For j = 1 To UBound(ar, 2)
                        br(n, j) = ar(i, j)
                    Next
                Next
            End If
        End If
    Next
    Sheet1.Columns("f:g").NumberFormatLocal = "@"
    Sheet1.Range("f6").Resize(n, 22) = br
End Sub

xhuang

爱疯 发表于 2014-11-19 14:44
Sub demo()
    Dim ar, br(1 To 60000, 1 To 22)
    For x = 2 To Sheets.Count

版主您好！

   If Sheets(x).Name Like "?" Then

   我将“？”输入成“A". 只显示“A"，的值，如果要将其它也显示出来，如何增加。

   因为，a,b,c,d...只是代码，到时会改成中文名称或其它名称等。

   帮忙，谢谢！

qh8600

book.rar (201.21 KB, 下载次数: 14)

2014-11-19 15:32 上传

点击文件名下载附件

楼主试试

1. Sub demo()
   
2.     Dim ar, br(1 To 60000, 1 To 22), arr
   
3.     arr = Array("A", "B", "C", "D", "E", "F", "G", "H")
   
4.     a = Cells(Rows.Count, 6).End(3).Row
   
5.     For x = 1 To Sheets.Count
   
6.         b = 0
   
7.         For y = 0 To UBound(arr)
   
8.             If Sheets(x).Name = arr(y) Then b = b + 1
   
9.         Next
   
10.         If b = 1 Then
    
11.             m = Sheets(x).Cells(Rows.Count, 1).End(3).Row
    
12.             If m > 4 Then
    
13.                 ar = Sheets(x).Range("A4:V" & m)
    
14.                 For i = 1 To UBound(ar)
    
15.                     n = n + 1
    
16.                     For j = 1 To UBound(ar, 2)
    
17.                         br(n, j) = ar(i, j)
    
18.                     Next
    
19.                 Next
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     Sheet1.Columns("f:g").NumberFormatLocal = "@"
    
24.     Sheet1.Range("f6").Resize(a, 22).ClearContents
    
25.     Sheet1.Range("f6").Resize(n, 22) = br
    
26. End Sub

复制代码