Найти и заменить формулу во всей книге на VBA, в зависимости от версии - PullRequest
0 голосов
/ 23 января 2020

В связи с недавним обновлением в Excel (версия 1912) мне пришлось написать сценарий VBA, который будет редактировать все формулы в книге, в зависимости от версии сборки Excel. Сценарий, который я написал, работает, но только для указанного столбца. Мой сценарий:

Sub Convert()
Dim Cell As Range
 For Each Cell In Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
  If Left(Cell.Value, 8) = "zFormula" Then
 If Application.Build > 12026 Then    
  Cell.Formula = "=" & Replace(Cell.Value, "zFormula", "")
 Else: Cell.Formula = "=" & Replace(Cell.Value, "@", "") & Replace(Cell.Value, "zFormula", "")    
 End If
Else
End If
 Next
End Sub

Мне нужен код для поиска по всей книге, и где бы он ни находил «zFormula» в начале ячейки, он должен затем выполнить приведенный выше код.

Пожалуйста, кто-нибудь может помочь мне изменить код для работы со всей книгой

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...