Массовая замена аргументов

[kzld]

На одном листе имеется масса формул, порядка 500 штук, вот таких
={СУММ(ЕСЛИ(('03'!E3:E490=821,4)*(' 03'!F3:F490=671);'03'!H3:H490))}
={СУММ(ЕСЛИ(('03'!E3:E996=821)*('03 '!F3:F996=655,1);'03'!H3:H996))}
={СУММ(ЕСЛИ(('03'!E3:E1000=845)*('0 3'!F3:F1000=203);'03'!H3:H1000))}

Это формулы массива. Вводить их надо Ctrl+Shift+Enter
Как видно, аргументы

E3:E490

у них не совпадают
Надо провести массовую замену аргументов и привести их все к виду

E3:E1000

Как это сделать "не ручками" а используя мощь Excel
Поддерживает ли Excel знак

*

[doober]

Сообщение от kzld

Поддерживает ли Excel знак *

Меня очень заинтересовало,почему возник этот вопрос у автора топика

Private Sub Zamena()

Dim n, m, nm As Integer
For nm = 1 To 100     ' Диапазон  замены  выбран A1:A100
Dim formmula As String
formmula = Range("a" & nm).FormulaLocal
For n = 1 To Len(formmula) - 2
If Mid(formmula, n, 3) = "E3:" Then
Dim ssl As String
ssl = ""
For m = n To Len(formmula) - 2
If Mid(formmula, m, 1) = "=" Then
Range("a" & nm).FormulaLocal = Replace(formmula, ssl, "E3:E1000")
GoTo 10
End If
ssl = ssl & Mid(formmula, m, 1)
Next: End If: Next
10
Next

End Sub

[kzld]

Сообщение от doober

Меня очень заинтересовало,почему возник этот вопрос у автора топика

	
	
For nm = 1 To 100     ' Диапазон  замены  выбран A1:A100

	
	

Вопросик, вопросик

[doober]

ВОзможно так

Private Sub Zamena1()
 Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

 Dim cell As Range
    Set ra = Range(("T50:AI25000"))
    
   For Each cell In ra.Cells
   Dim formmula As String
   formmula = cell.FormulaLocal
     For n = 1 To Len(formmula) - 2
If Mid(formmula, n, 2) = "E3" Then
Dim ssl As String
ssl = ""
For m = n To Len(formmula) - 2
If Mid(formmula, m, 1) = "=" Then
cell.FormulaLocal = Replace(formmula, ssl, "E3:E1000")

GoTo 10
End If
ssl = ssl & Mid(formmula, m, 1)
Next: End If
10
Next   
    Next cell
 Application.EnableEvents = True
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True
End Sub

[The_Prist]

Здравствуйте. Делаете следующим образом

1. Выделяете диапазон с формулами;
2. Ctrl+H: Найти - E3:E*=; Заменить на - E3:E1000=
3. параметры замены: Ячейка целиком - снят; Область поиска - формулы.

Повторяете процедуру над всеми необходимыми диапазонами в формулах.

[kzld]

Сообщение от The_Prist

Здравствуйте. Делаете следующим образом

1. Выделяете диапазон с формулами;
2. Ctrl+H: Найти - E3:E*=; Заменить на - E3:E1000=
3. параметры замены: Ячейка целиком - снят; Область поиска - формулы.

Повторяете процедуру над всеми необходимыми диапазонами в формулах.

Странно, с буквой E и F всё сработало.
А с буквой Hне желает

[The_Prist]

А H является именно Эйч или русская Эн? Должна быть Эйч(инглиш).

[kzld]

Сообщение от The_Prist

А H является именно Эйч или русская Эн? Должна быть Эйч(инглиш).

Именно английская. Заменил букву E заменил букву F , пытаюсь заменить букву H , всё это не меняя раскладки клавиатуры - и облом.
СООТВЕТСТВИЙ НЕ НАЙДЕНО.

[The_Prist]

Сообщение от kzld

Именно английская. Заменил букву E заменил букву F , пытаюсь заменить букву H , всё это не меняя раскладки клавиатуры - и облом.
СООТВЕТСТВИЙ НЕ НАЙДЕНО.

Либо у Вас там не Н, либо Вы где-то неверно задаете параметры. Если заменили остальные - значит ошибка в аргументе для замены или в параметрах замены(может установлено Ячейка целиком или не в формулах). Ищите у себя ошибку.