如何将此VBA转换为可立即使用的插件？

Question

我想将以下VBA转换为excel中的加载项。它基本上使用工作表2中的表来修改sheet1的内容。该表有两列，一列用于“要替换的单词”，另一列用于单词“替换为”。

这是不熟悉编程的用户使用这就是为什么我需要它作为excel上的就绪图标。 代码：

Sub Substitutions()

    Dim rngData     As Range
    Dim rngLookup   As Range
    Dim Lookup      As Range

    With Sheets("Sheet1")
        Set rngData = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
    End With

    With Sheets("Sheet2")
        Set rngLookup = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
    End With

    For Each Lookup In rngLookup
        If Lookup.Value <> "" Then
            rngData.Replace What:=Lookup.Value, _
                            Replacement:=Lookup.Offset(0, 1).Value, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False
        End If
    Next Lookup

End Sub

Answer 1

修复代码以使用正确的工作簿和工作表后，需要更改ThisWorkbook的 IsAddin 。然后从VBE保存到.xlam文件。您应该签署宏并让其他人信任您的自签名数字证书，然后在他们的计算机上手动添加Addin。您还应该在功能区中添加一个按钮，否则无法判断您的Addin是否已启用。