Чтобы решить проблему неабсолютного адреса в Excel VBA, вы можете использовать несколько методов. Вот несколько примеров кода:

1. Использование свойства «Адрес» объекта Range:

   Dim rng As Range
   Set rng = Range("A1") ' Replace "A1" with your desired cell address
   Dim absoluteAddress As String
   absoluteAddress = rng.Address(True, True)

   В этом примере свойство Addressобъекта Rangeиспользуется с аргументами True, чтобы указать, что адрес должен быть абсолютным. форма.

2. Использование свойства «Адрес» объекта «Ячейки»:

   Dim absoluteAddress As String
   absoluteAddress = Cells(1, 1).Address(True, True)

   В этом примере свойство Addressобъекта Cellsиспользуется с аргументами True, чтобы указать, что адрес должен быть абсолютным. форма. Свойство Cellsпринимает номера строк и столбцов в качестве аргументов.

3. Использование свойства «Адрес» объекта ActiveCell:

   Dim absoluteAddress As String
   absoluteAddress = ActiveCell.Address(True, True)

   В этом примере свойство Addressобъекта ActiveCellиспользуется с аргументами True, чтобы указать, что адрес должен быть абсолютным. форма. ActiveCellотносится к выбранной в данный момент ячейке.

Это всего лишь несколько примеров того, как можно получить абсолютный адрес ячейки в Excel VBA. Вы можете настроить код в соответствии со своими потребностями.