Додул сам )))  
Достаточно так:  
 
Cells(X, Y).FormulaLocal = "=" & Cells(X, Y) & "*A1"  
 
Всё пытаюсь овладеть премудростями VBA EXCEL... Посоветуйте какую-нибудь полезную книжку, желательно в формате PDF (не люблю читать от корки до корки - проще пользоваться поиском в PDF). У самого есть полезная книжка в PDF:    
 
Профессиональное программирование на VBA в Excel 2003.pdf  
 
Всё что мог, из нёё почерпнул... Многое чего не понял. Нужен уровень для начинающих и середнячков... Предлагаю обменяться. Пишите на info@stroy-expert1.ru   Для обмена можно воспользоваться файлообменником - ссылку для закачки и скачки скину...)))

Спасибо, помогло!!!  
Запятую меняю на точку, чтобы в ячейку с десятичной дробью добавить умножение на другую ячейку. Теперь получилось так:  
 
'Значение в ячейке Cells(X,Y) числовое, с запятой - например 31,256  
X = 2  
Y = 1  
 
Cells(X, Y).FormulaLocal = Replace(Cells(X, Y), ",", ".")  
 
ZN = Cells(X, Y)  
 
Cells(X, Y).Formula = "=" & ZN & "*A1"  
 
Если без замены на точку - VBA ругается...  
 
Попутный вопросик - это самый упрощённый вариант, или можно код ещё упростить???

Приветствую форумчан. Пытаюсь заменить запятую на точку в конкретной ячейке (значение) при помощи кода:  
 
Cells(XM1, 10).Replace ",", ".", xlPart  
 
Замена не происходит. Подозреваю, что нужно поменять xlPart  
на что-то другое. Подскажите, плиз, кто знает...  
Заранее благодарен.

Данный код удаляет пустые ячейки между диапазонами. Необходимо наоборот, удалить заполненные ячейки. (Наверное я не очень понятно описал ситуацию )))

{quote}{login=Михаил С.}{date=24.05.2011 12:21}{thema=}{post}А макрорекордером не пробовали воспользоваться?{/post}{/quote}  
Михаил, я конечно извиняюсь, но вы для чего VBA пользуетесь - чтобы создать код для одного конкретного случая? - тогда лучше удалять вручную, без VBA. Интересует код на все случаи жизни, когда несмежные диапазоны могут быть в разных ячейках одного конкретного столбца.... Определение диапазонов необходимо выполнить в VBA...

Выделение строк по параметру X имеет вид    
 
Rows((X1) & ":" & (X2)).Select  
 
А если таких диапазонов несколько...?!?

Приветствую форумчан!  
Подскажите, плиз, как удалить строки не смежных диапазонов в столбце (в VBA).  
Предпологаю, диапазоны нужно выделить и удалить.  
С удалением понятно: Selection.Delete Shift:=xlUp  
А как выделить строки не смежных диапазонов???  
Заранее благодарен....

Приветствую ВСЕХ!!! :D  Столкнулся с такой проблемой. Необходимо в формуле округление до 2-х знаков изменить на округление до 4-х знаков. (через VBA). Пытался это сделать через текстовые функции (заменить, подставить). Но из всех функций корректно сработала только одна - которая определяет число знаков в формуле. На остальных программа ругается. Что можете посоветовать??? Заранее благодарен...