VBA代碼可從多個spredsheets中提取最大數據

Question

該工作簿包含約50個具有唯一名稱的spredsheets。每個電子表格都有直到列「F」的數據。 我想將每個電子表格中列的「C」列中的電子表格名稱和最大數據拉到下一列，但我知道最大數據來自特定的電子表格。

Answer 1

怎麼樣這樣的事情：

Sub get_Max() 
Dim mainWS As Worksheet, ws As Worksheet 
Dim rng As Range, cel As Range 
Dim i% 

Set mainWS = Sheets("Sheet1") ' Change this to meet your criteria. This is where the data will go 

For i = Sheets.Count To 0 Step -1 
    If Worksheets(i).Name = mainWS.Name Then Exit For 
    ' Let's first list the sheet names in Column A of our mainWS 
    mainWS.Cells(i, 1).Value = Sheets(i).Name 
    ' Then get the max value from column C ('3'). 
    mainWS.Cells(i, 2).Value = WorksheetFunction.Max(Sheets(i).Range(Sheets(i).Columns(3), Sheets(i).Columns(3))) 
Next i 

End Sub