Ďalšou možnosťou je prejsť bunky pomocou cyklu For Each, napr:
For Each aCell in Range("T10:T1010")
barva = aCell.Font.Color
hodnota = aCell.Value
...
Next aCell
Ďalšou možnosťou je prejsť bunky pomocou cyklu For Each, napr:
For Each aCell in Range("T10:T1010")
barva = aCell.Font.Color
hodnota = aCell.Value
...
Next aCell