Числовые индексы строк и колонок очень удобны при обращении к ячейке по значению счетчика цикла. Например, следующий код перебирает все ячейки диапазона А1:D10 на листе Sheet1. Если какая-нибудь ячейка содержит значение 0.01, оно заменяется нулем.

Sub RoundToZero()
     For rwIndex = 1 to 4
          For colIndex = 1 to 10
               If Worksheets("Sheet1").Cells(rwIndex, colIndex) < .01 Then
                    Worksheets("Sheet1").Cells(rwIndex, colIndex).Value = 0
               End If
          Next colIndex
     Next rwIndex
End Sub

Следующий пример иллюстрирует простой и быстрый способ вывода на экран группы элементов в виде многоколоночного списка. Программа создает новый лист и присваивает ссылку на него объектной переменной newSheet. Затем создает список всех имен в активной книге и отображает связанные с ними формулы.

Sub ListNames()
     Set newSheet = Worksheets.Add
     i = 1
     For Each nm In ActiveWorkbook.Names
          newSheet.Cells(i, 1).Value = nm.Name
          newSheet.Cells (i, 2).Value = " ' " & nm.RefersTo
          i = i + 1
     Next nm
     newSheet.Columns("A:B") .AutoFit
End Sub