Весьма часто возникает необходимость обратиться к диапазону ячеек, который отстоит от другого диапазона на определеннее число строк и колонок. Свойство Offset объекта Range принимает аргументы RowOffset и ColumnOffset и возвращает новый диапазон. В следующем примере программа определяет тип данных в каждой ячейке из диапазона A1 : A10 и перечисляет эти типы в колонке, расположенной справа от исходных ячеек:

Sub ScanColumn()
     For Each с In Worksheets("Sheet1").Range("A1 :A10").Cells
          If Application.lsText(c.Value) Then
               c.0ffset(0, 1).Formula = "Text"
          Elself Application.lsNumber(c.Value) Then
               c.0ffset(0, 1).Formula = "Number"
          Elself Application.IsLogical(c.Value) Then
               c.0ffset(0, 1).Formula = "Boolean"
          Elself Application.lsError(c.Value) Then
               c.0ffset(0, 1).Formula = "Error"
          Elself с .Value = "" Then
               c.0ffset(0, 1).Formula = "(blank cell)"
          End if
     End c
End Sub

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997