Ситуация следующая есть метод который получает двумерный массив для задания Value2. Трудящимся понадобилось что бы одна из строк была курсивом. В общем хотелось бы узнать есть ли какие либо управляющие символы у Excel'я для задания параметров шрифта. Например при создании колонтитула можно указать так
.RightFooter = "&""Arial CYR,курсив""&8стр&P из &N"
Вариант самому сделать какую либо управляющую последовательность с последующим анализом и заданием для нужных ячеек свойств не предлагать хочется знать имеется ли такая возможность у Excel или нет.

Жаль.

2 White Owl. Я это все прекрасно понимаю. Хотелось свалить массив и не лазить по ячейкам, особенно через ActiveCell это же тормоза будет вызывать стараюсь группу ячеек за раз обрабатывать поэтому и возник этот вопрос

2 White Owl. Вы внимательней читайте вопрос.
МНЕ НАДО ДЛЯ ГРУППЫ ЯЧЕЕК ЗАДАТЬ ТЕКСТ ТАК ЧТО БЫ НАПРИМЕР В КАЖДОЙ ЯЧЕЙКЕ БЫЛО НАПРИМЕР 2 СЛОВА ОДНО СЛОВО ДОЛЖНО ИМЕТЬ СВОЙ FONT(Size, FontName, Bold,Italic) ДРУГОЕ СЛОВО ДРУГОЙ FONT(Size, FontName, Bold,Italic) НЕ ОБРАЩАЯСЬ К КАЖДОЙ ЯЧЕЙКЕ И НЕ ТРОГАЯ CHARACTERS.

Вы видимо меня опять с кем-то попутали. Как ламеру объясняете и опять приводите второй раз тормозной пример.

автор
for each c in ActiveSheet.Range("B4:E23")
if c.Value>100 then
c.Font.Italic = true
end if
next


Для сравнения сравните кол-во вызовов методов в вашем примере и в этом
Сколько вы будете лазить по всем ячейкам при помощи своего for each b и за сколько я пролезу

Sub vvv()
Dim a
Dim lb1 As Integer
Dim lb2 As Integer
Dim ub1 As Integer
Dim ub2 As Integer
Dim i As Integer
Dim j As Integer
Dim r As Range
Dim row
Dim col

Set r = ActiveSheet.Range("A1:Z1000")
a = r.Value2
lb1 = LBound(a, 1)
ub1 = UBound(a, 1)
lb2 = LBound(a, 2)
ub2 = UBound(a, 2)
For i = lb1 To ub1
For j = lb2 To ub2
a(i, j) = 107# * Rnd(1)
Next j
Next i
r.NumberFormat = "@"
r.Value2 = a

'Это что бы не возникало вопросов
a = Null
a = r.Value2
lb1 = LBound(a, 1)
ub1 = UBound(a, 1)
lb2 = LBound(a, 2)
ub2 = UBound(a, 2)

row = r.row
col = r.Column
For i = lb1 To ub1
For j = lb2 To ub2
If a(i, j) > 100 Then
' Вот примерно результат таков должен быть это мне надо но без вот такого
' лазияния по ячейкам хочу задать также как Value2
ActiveSheet.Cells(row + i - 1, col + j - 1).FormulaR1C1 = Str(a(i, j))
ActiveSheet.Cells(row + i - 1, col + j - 1).Characters(Start:=2, Length:=Int(Log(a(i, j)) / Log(10)) + 1).Font.Size = 18
End If
Next j
Next i
r.Columns.AutoFit
End Sub