宏来处理每个excel表vba

Question

下面的代码适用于名为“工具”的一个工作表，但当按钮移动到另一个工作表时却没有。无论工作表名称或工作表名称“工具”

，如何将其更改为工作方式

Toplevel

由于

Answer 1

如果要将范围传递给sub，则第一个if语句可能会出现问题。在Select rngRange之前，您必须在包含该范围的工作表上，因此请使用：

If rngRange Is Nothing Then
    Set rngRange = Application.Selection
Else
    rngRange.Parent.Activate
    rngRange.Select
End If

但总的来说，您根本不需要使用Select，请参阅：

Avoid using Select

您还需要确保每张工作表上的数据与您的命名方法一致。