Страницы: 1
RSS
Макрос объединения ячеек построчно
 
Уважаемые форумчане!  
 
Очень нужна Ваша помощь.  
 
Мне необходимо в экселе объединить строго определенные ячейки построчно, при этом строк очень много.  
Например, объединить ячейки A1:C1, D1:K1, A2:C2, D2:K2 .... A10:C10, D10:K10  
 
Скиньте, пожалуйста, макрос.
 
макрос-то я, положим, скину.  
но вот попадёт ли он по назначению?  
оч. сложно целиться.  
туман-с.  
 
sub x()  
with activesheet  
for i=1 to 1000  
.cells(i,1).resize(,3).merge  
.cells(i,4).resize(,8).merge  
next  
end with  
end sub  
 
 
попал?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Sub ooo()  
Dim k  
k = InputBox("Количество строк для объединения")  
Application.ScreenUpdating = False  
For i = 1 To k  
   Range(Cells(i, 1), Cells(i, 3)).Merge  
   Range(Cells(i, 4), Cells(i, 11)).Merge  
   Next  
Application.ScreenUpdating = True  
End Sub
 
{quote}{login=ikki}{date=14.05.2011 07:06}{thema=}{post}макрос-то я, положим, скину.  
но вот попадёт ли он по назначению?  
оч. сложно целиться.  
туман-с.  
 
sub x()  
with activesheet  
for i=1 to 1000  
.cells(i,1).resize(,3).merge  
.cells(i,4).resize(,8).merge  
next  
end with  
end sub  
 
 
попал?{/post}{/quote}  
 
 
 
Да, попал!!!  
Спасибо, очень выручил!!!
Страницы: 1
Читают тему
Loading...