select列Z:Zreplace公式,但也replace列Q中的公式:Q为什么?

小计两列然后使用查找replace列Z也replace列Q中的公式。我怎样才能限制它只有列Z? 我试图使用select可见的单元格,但它仍然改变列Q.

Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(17, 26) _ , Replace:=True, PageBreaks:=False, SummaryBelowData:=True Columns("Z:Z").Select Selection.SpecialCells(xlCellTypeVisible).Select Cells.Replace What:="SUBTOTAL(9", Replacement:="SUBTOTAL(1", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("A1").Select 

Cells.Replace是指活动工作表中的所有单元格。 使用Columns("Z").Replace