excelVBA提取各SHEET的最大值和最小值将BOOK1中各

Question

如题所述

Answer 1

在Excel VBA中，可以编写一个宏来执行特定的任务，例如从多个工作表中提取特定的数据并汇总到“结果”工作表中。以下是一个示例代码，展示了如何实现这一功能。

首先，创建一个名为“结果”的工作表，用于存放汇总的数据。然后，编写一个名为“Sub 按钮1_单击()”的宏，该宏将在按钮点击时执行。在宏中，我们创建一个字典对象“myb”，用于存储每个唯一值及其对应的单元格引用。

接下来，我们遍历除“结果”工作表外的所有工作表。对于每个工作表，如果它包含数据（即非空单元格数量大于0），则继续处理。对于每个工作表的每一列（从A65536开始，向上查找最后一个非空单元格），我们检查该单元格的值是否已存在于字典中。如果不存在，则将对应的单元格引用添加到字典中；如果已存在，则将新的单元格引用与现有的引用合并。

完成所有工作表的遍历后，我们从字典中找到最大值和最小值对应的单元格引用，并将这些单元格的内容复制到“结果”工作表的指定位置。同时，将每个工作表的名称作为标题行写入“结果”工作表的第一列。

最后，清除字典对象以释放内存。这样，当您点击按钮时，该宏将自动从所有工作表中提取数据并汇总到“结果”工作表中。