Заменить метод для диапазона

Question

Диапазон соответствует указанному листу. lastRow является правильным. Почему это не работает?

.Range("H3:I" & lastRow - 1).Replace what:="SUM", replacement:="Subtotal", _ 
lookat:=xlPart, MatchCase:=True 

Answer 1

Поскольку вы пытаетесь изменить фактические формулы с заменой заявлением, это не будет работать, так как результат будет формулой слишком мало аргументов, с SUBTOTAL формулы.

Вы можете проверить это, попробовав его вручную. Вы также можете проверить это, заменив SUM на AVERAGE. В этом случае ваш код будет работать безупречно, так как синтаксис аргумента формулы идентичен.

Если вы действительно хотите повернуть SUM в SUBTOTAL, вам нужно будет отрегулировать разницу в синтаксисе в своем заявлении Replace или найти другой способ его решения.

Answer 2

Рассмотрим что-то вроде:

Sub qwertyx() 
     With ActiveSheet 
     lastRow = 10 
     For Each r In .Range("H3:I" & (lastRow - 1)) 
      r.Formula = Replace(r.Formula, "SUM(", "SUBTOTAL(9,") 
     Next r 
     End With 
End Sub