Sub a()
    Dim n, m As Integer
    n = Sheets(1).UsedRange.Rows.Count
    m = Sheets(1).UsedRange.Columns.Count
    For Each ran In Range(Cells(1, 1), Cells(n, m))
        If ran = "22" Then
            Sheets(1).Range(ran.Address) = "A"
            Sheets(2).Range(ran.Address) = "A"
        End If
    Next
End Sub
复制代码

Dim objExcel
Set objExcel=CreateObject("Excel.Application")
objExcel.DisplayAlerts=false
objExcel.visible=true
search="22"
subtitution="A"
col=1
row=1
Set objWorkBook=objExcel.WorkBooks.Open("C:\Users\yiy\Downloads\Dos\1\Test.xlsx")
do until objExcel.Workbooks(1).WorkSheets(1).Cells(row,col).value=""
  do until objExcel.Workbooks(1).WorkSheets(1).Cells(row,col).value=""
       if objExcel.Workbooks(1).WorkSheets(1).Cells(row,col).value=search then
         objExcel.Workbooks(1).WorkSheets(1).Cells(row,col).value=subtitution
         objExcel.Workbooks(1).WorkSheets(2).Cells(row,col).value=subtitution
       end if
    row=row+1
  loop
  col=col+1
  row=1
loop
objWorkBook.Save
objWorkBook.Close
objExcel.Quit
复制代码