[已解决]如何将各个工作表的日期放入数组中求出最大日期

ls

如何将各个工作表的日期放入数组中求出最大日期
msgbox 输出结果
复件 存货与开票.rar (187.27 KB, 下载次数: 58)

2013-3-4 09:13 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

duyanzhang

2013-3-4 10:10

Sub MaxDate()
    Dim lastcell As Range
    Dim x, y As Date
    Dim arr() As Date
    Dim M As Integer
    M = Worksheets.Count
    ReDim arr(2 To M)
    For i = 2 To M
        Worksheets(i).Activate
        Set lastcell = Worksheets(i).Cells(Rows.Count, 3).End(xlUp)
        x = lastcell.Value
        y = Application.WorksheetFunction.Max(Worksheets(i).Range([c2], lastcell))
        arr(i) = y
    Next
    Worksheets(1).Range("a1").Resize(M - 1) = Application.Transpose(arr())
    y = WorksheetFunction.Max(Worksheets(1).Range("a1").Resize(M - 1))
    MsgBox y
End Sub

跳转到最佳答案楼层

duyanzhang

都研究生了，这个问题还问？
不就是求出所有工作表中C列日期中的最大值么？

duyanzhang

Sub MaxDate()
    Dim lastcell As Range
    Dim x, y As Date
    Dim arr() As Date
    Dim M As Integer
    M = Worksheets.Count
    ReDim arr(2 To M)
    For i = 2 To M
        Worksheets(i).Activate
        Set lastcell = Worksheets(i).Cells(Rows.Count, 3).End(xlUp)
        x = lastcell.Value
        y = Application.WorksheetFunction.Max(Worksheets(i).Range([c2], lastcell))
        arr(i) = y
    Next
    Worksheets(1).Range("a1").Resize(M - 1) = Application.Transpose(arr())
    y = WorksheetFunction.Max(Worksheets(1).Range("a1").Resize(M - 1))
    MsgBox y
End Sub

liuguansky

1. Sub Justtest()
   
2.     Dim A(), Sh As Worksheet, K&, i&, j&, B()
   
3.     ReDim A(1 To Worksheets.Count - 1)
   
4.     ReDim B(1 To UBound(A))
   
5.     For Each Sh In Worksheets
   
6.         With Sh
   
7.             If .Name <> "目录" Then
   
8.                 K = K + 1
   
9.                 If Len(.[c2]) Then
   
10.                     A(K) = .Range(.[c2], .[c1].End(4)).Value
    
11.                 End If
    
12.             End If
    
13.         End With
    
14.     Next
    
15.     For i = 1 To UBound(A)
    
16.         B(i) = Application.Max(A(i))
    
17.     Next i
    
18.     MsgBox Format(Application.Max(B), "yyyy-mm-dd hh:mm:ss")
    
19. End Sub

复制代码

这样？

ls

liuguansky 发表于 2013-3-6 08:59
这样？

    For i = 1 To UBound(A)
        B(i) = Application.Max(A(i))
    Next i


好象有问题

最终结果应该是2013-2-27

duyanzhang

ls 发表于 2013-3-6 21:08
For i = 1 To UBound(A)
        B(i) = Application.Max(A(i))
    Next i

我的代码呢？行么？