Excel VBA代码，用于查找多张图纸上循环范围内的最大值和最小值

帮助任何人

我已经尝试了很多很多代码，但似乎没有任何效果。我可以使用什么VBA代码

数据详细信息：在我50张工作表的每N列上，我都有百分比格式的数据。我需要在我的50张工作表中找到这些数字的最小值和最大值，并将值返回到我的首页

---

我是VBA的新手，我似乎无法理解。任何建议都将不胜感激

为什么不使用公式呢？

---

=MAX（Sheet1！N:N，Sheet2！N:N，Sheet3！N:N）等…

看起来您有一个包含多个列的庞大数据集，其中列的总数及其位置是动态的，并且从不保持不变

我们可以假定您有列标题吗？如果是这样，假设您的标题位于第1行，从A列开始，数据从A2开始，您可以在每张工作表的顶部执行此操作，以获得百分比列的最大值：

=MAX(INDEX($A$2:$Z$1000, , MATCH("YOUR HEADER NAME HERE WHERE %s ARE", $A$1:$Z$1,0)))

如果需要在所有工作表上执行此操作，并将其放在一页的顶部，则可以使用vba脚本在所有工作表中执行循环：

Sub WorksheetLoop()

         ' Declare Current as a worksheet object variable.
         Dim Current As Worksheet

         ' Loop through all of the worksheets in the active workbook.
         For Each Current In Worksheets

            ' Insert your code here.
            ' This line displays the worksheet name in a message box.
            MsgBox Current.Name
         Next

      End Sub

---

Application.Min

和

Application.Max

。您是如何在所有工作表上循环它的？我使用了它，但每当我让它在工作表之间循环时，它就不会对该工作簿中的每个ws起作用了。工作表。您希望每个工作表的最小值/最大值，还是将所有工作表都考虑在一起？嗨，BigBen！我正在寻找考虑所有数据表的最小/最大值。我正在使用此代码，但由于某种原因，它似乎不起作用。“将ws作为工作表”为该工作簿中的每个ws.Worksheets“Max=WorksheetFunction.Max（ws.Range（“N:N”））“下一个wsWell您需要一个三维公式，对吗

=MAX（Sheet1:Sheet50！N:N）

。我需要一个VBA脚本