Я пытаюсь вставить динамическую c формулу для именованных переменных a и b. Формула будет содержать эту логику c: если a (определено ниже) пусто, то b (определено ниже), в противном случае a. Результаты должны быть введены в новый столбец с именем Client ID. Мне удалось создать новый столбец Client ID, но у меня возникли проблемы с формулой, в которой код останавливается, поскольку его необходимо отладить. Я пытался определить мои переменные и диапазоны по-разному, но все еще есть проблемы.
Любая помощь приветствуется. Спасибо!
Sub baSTEP1formulaINDEV()
'A column named Client ID already exists
Dim sht As Worksheet
Dim StartCell As Range
Dim LastR As Long
Dim LastC As Long
Set sht = Worksheets("Group Activity")
Set StartCell = Range("A1")
Dim a As Integer
a = Cells.Find(What:="*Client: Client / Contact ID*", After:=Range("A2"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Column
ActiveWindow.Activate
Dim b As Integer
b = Cells.Find(What:="*Case Participant Client ID*", After:=Range("A2"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Column
ActiveWindow.Activate
'Find Last Row and Column
LastR = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row
LastC = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column
Range(Selection).Formula = _
"=IF(ISBLANK(a),b,a)"
End Sub