Excel VBA-替换值

Question

我想用91H，92H，93H，94H，99H替换数字91、92、93、94、99。 但是，每次我第二次运行宏时，宏都会在数字中添加另一个H ，例如，看起来像91HH。 我找不到解决方案。 我不希望宏在数字中添加另一个H。 我希望宏仅将H添加到新值，而不添加到已经更改的值。

Columns("D").Replace What:="92", _
                        Replacement:="92H", _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        MatchCase:=False, _
                        SearchFormat:=False, _
                        ReplaceFormat:=False
Columns("D").Replace What:="93", _
                        Replacement:="93H", _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        MatchCase:=False, _
                        SearchFormat:=False, _
                        ReplaceFormat:=False

Columns("D").Replace What:="91", _
                        Replacement:="91H", _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        MatchCase:=False, _
                        SearchFormat:=False, _
                        ReplaceFormat:=False

Columns("D").Replace What:="94", _
                        Replacement:="94H", _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        MatchCase:=False, _
                        SearchFormat:=False, _
                        ReplaceFormat:=False

Columns("D").Replace What:="99", _
                        Replacement:="99H", _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        MatchCase:=False, _
                        SearchFormat:=False, _
                        ReplaceFormat:=False

我没有发布整个VBA代码，因为它有点长。

Answer 1

我认为有一种解决方法。 在宏之前添加代码，用91、92、93、94、99替换91H，92H，93H，94H，99H。新宏将执行以下操作：
答：“ 91H”：删除“ H”并添加“ H”，即不执行任何操作
B.“ 91”：不适合第一部分，“ H”将添加到第二部分

这应该适用于所看到的任何文本。

Answer 2

通常，您在重复很多代码。 应该避免这种情况。 一种方法是这样的：

Option Explicit

Sub ReplaceSomething(columnName As String, lookFor As String, replaceWith As String)

    Dim rngCol      As Range
    Dim rngCells    As Range

    If WorksheetFunction.CountA(Columns(columnName)) = 0 Then Exit Sub
    Set rngCol = Columns(columnName).SpecialCells(2)
    If rngCol Is Nothing Then Exit Sub

    For Each rngCells In rngCol
        If rngCells = lookFor Then
            rngCells = replaceWith
        End If
    Next rngCells

End Sub

Sub TestMe()

    ReplaceSomething "A", "H", "H1"
    ReplaceSomething "B", "H", "H1"
    ReplaceSomething "D", "H", "H1"

End Sub

因此，您可以将列名作为函数ReplaceSomething的参数，它将在列A，B和C中运行。