excel - 在所有匹配的单元格之后将文本插入到 Excel 单元格中

Question

我在excel中有以下问题。我想在所有匹配单元格右侧的单元格中插入文本“1234”。所以，假设要匹配的模式是“abcd”，excel看起来像

我想要的是

主要困难是有数百个匹配的单元格。有没有自动填写的功能？

标签： excel

Answer 1

如评论中所述，您需要 VBA 来执行此操作。假设您要在所有工作表上执行，此代码应该可以工作。如果要指定工作表名称，请取出ws循环set ws = Sheets("theName")等等。

如果性能是一个问题，请查找如何加速代码或考虑研究一些数组。

Sub updateCellsToTheRight()
Const zTango As String = "abcd" 'case sensative
Const zHighlight As String = "1234"

Dim ws As Worksheet, aCell As Range
For Each ws In ThisWorkbook.Worksheets
    For Each aCell In ws.UsedRange.Cells
        If aCell.Value = zTango Then aCell.Offset(0, 1).Value = zHighlight
        
    Next aCell
Next ws

End Sub