要在Word表格中查找单元格中的特定字符串并向左移动x单元格的宏，请选中isnumeric，然后在同一列中的x单元格中向下设置排版

Sub FindAndMoveMacro()
    Dim searchString As String
    Dim moveCount As Integer
    Dim foundCell As Range
    
    searchString = "isnumeric" '要查找的字符串
    moveCount = x '向左移动的单元格数
    
    With ActiveDocument.Tables(1).Range '假设要操作的表格是文档中的第一个表格
        Set foundCell = .Find( _
            What:=searchString, _
            After:=.Cells(.Cells.Count), _
            LookIn:=wdLookInValues, _
            LookAt:=wdWhole, _
            SearchOrder:=wdByRows, _
            SearchDirection:=wdNext, _
            MatchCase:=False, _
            MatchWholeWord:=True _
        )
        
        While Not foundCell Is Nothing
            foundCell.MoveLeft Unit:=wdCell, Count:=moveCount
            Set foundCell = .FindNext(foundCell)
        Wend
    End With
End Sub