Невозможно объединить переменные с формулой R1C1

Question

В настоящее время у меня возникают проблемы при попытке заставить формулу R1C1 работать при использовании переменных.

Example = Range("O4").End(xlDown).End(xlDown).End(xlDown).End(xlDown).End(xlDown).Offset(5, 0).Address

Range(TableDaysStart).FormulaR1C1 = "=" & Example

Ошибка приложения определена / определена объект.Несмотря на то, что это такой простой пример объединения, он не сработает.Так что же пошло не так?

Забавно, это сработает

Range(TableDaysStart).Formula = "=" & Example

Кто-нибудь знает почему?Я чувствую, что это связано с тем, как я определяю свои переменные.

Answer 1

Вы извлекаете адрес ячейки в формате xlA1 (например, $ D $ 2), но пытаетесь использовать его, как если бы он был в формате xlR1C1 (например, R2C4).

Вы можете запросить адрес в xlR1C1 ииспользуйте его как xlR1C1 в .FormulaR1C1, как это,

dim example as string

Example = Range("O4").End(xlDown).End(xlDown).End(xlDown).End(xlDown).End(xlDown).Offset(5, 0).Address(referencestyle:=xlR1C1)
Range(TableDaysStart).FormulaR1C1 = "=" & Example

Или вы можете запросить адрес в стиле xlA1 (по умолчанию) и использовать его как xlA1 в .Formula, как это.

dim example as string

Example = Range("O4").End(xlDown).End(xlDown).End(xlDown).End(xlDown).End(xlDown).Offset(5, 0).Address(referencestyle:=xlR1C1)
Range(TableDaysStart).Formula = "=" & Example

Свойство Range.Address Свойство Range.Formula Свойство Range.FormulaR1C1