vba - 如何绕过 VBA 批量替换功能的 255 个字符限制？

Question

Sub MultiFindNReplace()
    'Update 20140722
    Dim Rng As Range
    Dim InputRng As Range, ReplaceRng As Range
    xTitleId = "KutoolsforExcel"

    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
    Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)

    Application.ScreenUpdating = False

    For Each Rng In ReplaceRng.Columns(1).Cells
        InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
    Next

    Application.ScreenUpdating = True
End Sub

资源:
Extend Office - How To Find And Replace Multiple Values At Once In Excel?

数据类型:
Using the Excel Application.InputBox method

我试图替换 Type:=8与 Type:=2用于文本而不是范围，但它不起作用。请帮助我通过 255 个字符的限制。

示例数据:
Google Spreadsheet

Answer 1

我不是 100% 清楚您拥有哪些数据以及您正在尝试做什么，但我认为如果您使用以下方法，您将获得更大的成功:

MSDN : Replace Function (VBA)

...代替:

办公室支持: Range.Replace Method (Excel)

第二个基本上是一个工作表功能，因此受到第一个没有的各种限制。

您的代码应该只需要稍作改动即可适应 Replace功能。