Потому, что во втором случае arr - массив диапазонов, а в первом - массив значений(у них нет свойства интерьер).

В первом случае тоже работает, если вместо arr(i) = rng написать  
Set arr(i) = rng  
Будет массив диапазонов.

Пример группового пожелтения чисел-констант:  
 
Sub ЖелтыеЧисла()  
 Dim Rng As Range  
 Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers)  
 Rng.Interior.Color = 65535  
End Sub  
 
Аналогично в диапазон можно в цикле собрать, например, с помощью Union ячейки по какому-либо критерию, а затем всем им чохом поменяыть формат.

> а можно как нибудь обратиться к сформированному массиву  
Никак. Даже если это не массив, а коллекция.  
Можно использовать такие приемы:  
1. По мере формирования массива диапазонов формировать диапазон, содержащий все    
элементы массива;  
2. Создать подпрограмму, которая будет устанавливать нужное свойство для всех элементов массива;  
3. Создать класс "массив диапазонов" и написать для него нужные свойства и методы.  
Ниже пример использования приемев 1,2.  
 
Sub test1()  
Dim rng As Range, rng1 As Range, rng2 As Range, arr, i&, BigRange As Range  
ReDim arr(2)  
For i = 0 To 2  
   Set rng = Range(Cells(i + 1, 1), Cells(i + 1, 2 * i + 1))  
   Set rng = Union(rng, Cells(i + 1, 2 * i + 3))  
   Set arr(i) = rng  
   If BigRange Is Nothing Then Set BigRange = rng Else Set BigRange = Union(BigRange, rng)  
Next i  
BigRange.Interior.Color = vbYellow  
ApplyToArr arr, "value", 20  
End Sub  
 
Sub ApplyToArr(arr, Command As String, Value)  
Dim x  
For Each x In arr  
   CallByName x, Command, VbLet, Value  
Next  
End Sub

потестил немного  
Sub test2()  
Dim rng As Range, rng1 As Range, i&, BigRange As Range  
For j = 0 To 9  
x = (j * 1000) + 1  
For i = 0 To 1000 Step 2  
Set rng = Range("A" & i + x)  
If BigRange Is Nothing Then Set BigRange = rng Else Set BigRange = Union(BigRange, rng)  
Next i  
BigRange.Interior.Color = vbYellow  
BigRange = 2  
Set BigRange = Nothing  
Next j  
End Sub  
Sub test22()  
For i = 0 To 10000 Step 2  
Range("A" & i + 1).Interior.Color = vbYellow  
Range("A" & i + 1) = 2  
Next i  
End Sub  
 
в первом случае с union медленно красит, но быстро вставляет значения ускорил за счет уменьшения цикла с union  
во втором быстро красит но медленно вставляет значения  
 
какие еще есть варианты  и мнения быстро раскрасить и присвоить значения?

{quote}{login=nilem}{date=04.11.2010 10:42}{thema=}{post}Вот, например:  
 
Sub test33()  
Dim rr As Range  
Set rr = Range("A1")  
rr.Value = 2: rr.Interior.Color = vbYellow  
Range(rr, rr.Offset(1)).AutoFill Range("A1:A10000"), xlFillCopy  
End Sub  
 
Правда, не уверен, что будет работать в 2003.{/post}{/quote}  
nilem спасибо, но это немного не то, Вы конечно сделали макрос под этот вариант вопроса, мне больше надо просто раскрасить и заполнить диапазон получаемый в результате проверки каких то условий и не обязательно в один столбец, т.е. мне нужна теория  
тем не менее все равно спасибо :)

{quote}{login=слэн}{date=05.11.2010 09:48}{thema=}{post}в обоих примерах от 4.11 20:01  
 
и красит и вставляет в одном и том же цикле - какая может быть разница по скорости?  
 
 
по теории:  
 
не надо в цикле делать лишнии операции..  
 
присвоив один раз set Set BigRange = range("a1")  (или range("a"&(j * 1000) + 1)  
 
вы из бавляетесь  от  
 
проверки If BigRange Is Nothing  
 
и Set BigRange = Nothing становится ненужным( его и заменяет выше приведенное выражение)  
 
 
ну и я советовал уже, но вы не прислушались..  
 
можно накапливать не с помощью юнион, а в строке:  
 
s=s & ","& range(..).address(0,0) ( или накапливать в массиве, потом объединять в строку с помощью join)  
 
а в конце with range(s)  
..  
end with{/post}{/quote}  
 
s=s & ","& range(..).address(0,0)  
 
Слэн я так делал (ограничение 255 символов по накоплению в строке затем вылетает в ошибку),  
без дополнительного цикла при больших количествах диапазонов очень медленно получается, поэтому и использовал второй цикл  
я для себя уже сделал вывод что красить надо прямо в цикле, а значения присваивать одним чохом если они одинаковые, если разные то через массив значений  
как то так.. :)