Ошибка 1004 по формуле

Question

Когда я запускаю этот код, я постоянно получаю сообщение об ошибке 1004

with activecell
.Formula = "=CONCATENATE(" & ActiveCell.Offset(0, -2).Address & "," _
& ":" & "," & ActiveCell.Offset(0, -1).Address & ")"
end with

Кто-нибудь имеет представление о том, где проблема возникает сама по себе?

Answer 1

Вы хотите

"=CONCATENATE(" & ActiveCell.Offset(0, -2).Address & ","":""," & ActiveCell.Offset(0, -1).Address & ")"

Поскольку ваша текущая формула оценивается как (с выбранным F4)

=CONCATENATE($D$4,:,$E$4)

Что неверно, следовательно, ошибка.

Попробуйте

Option Explicit
Public Sub test()
    With ActiveCell
        .Formula = "=CONCATENATE(" & .Offset(0, -2).Address & ","":""," & .Offset(0, -1).Address & ")"
    End With
End Sub

Имеет формулу, которая оценивается как

=CONCATENATE($D$4,":",$E$4)

Это добавляет недостающие "", окружающие :