{quote}{login=svm55}{date=22.01.2012 05:49}{thema=как копировать ячейки с разным шагом}{post}... что бланки (и соответствующие ячейки) идут на листе 2 с шагом строк через 20. а на листе 1 - через 30...{/post}{/quote}  
Ну что тут сказать: кто-то идет по жизни семимильными шагами, а кому-то приходится за ними поспевать... семенильными ;)  
ps 200 бланков на 2 листах - это круто. Зачем столько?

нам и 2-х бланков на 2-х листах хватит, лишь бы в 100кб вписались )

макрос ваш не нужен. Нужна ваша таблица, чтобы мы визуально могли понять, что где куда и сколько раз. Только не нужно выкладывать файл в 20мб, удалите всё лишнее, оставьте минимальное. Файл не должен быть больше 100кб, если что заархивируйте

Павел, я вот тут подумал: а чего это мы вытягиваем из посетителей файлы? Может поступать следующим образом: один раз намекнули,- не хочет выкладывать файл - тема закрывается/удаляется - помощь ведь не нужна.

{quote}{login=Юрий М}{date=22.01.2012 06:29}{thema=}{post}... а чего это мы вытягиваем из посетителей файлы?..{/post}{/quote}  
Дело было вечером, делать было нечего... И вообще, налаженный  комплексный соревновательный процесс рыбораздачи и самосовершенствования рыбораздатчиков прерывать пагубно... ;)

фиг знает, Юр. Мне вот, например, без файла сложно    
1) понять, что человек хочет  
2) писать код не тестируя его на ошибки  
 
А вот придёт Серёга и сразу всё поймёт и сразу напишет код из головы, может быть ему и не нужен файл, чтобы ответить.  
 
А удалишь тему, человек новую будет создавать.    
Как говориться, это доля наша ... учить, вразумлять, по 50 раз просить выложить файл и получать ответы:  
 
1) а у меня там секретная информация, я вам её не дам..  
2) а что там смотреть итак всё понятно описал  
3) нате вам 100мб. файл с 48 листами и 100 графиками, разбирайтесь  
4) а я думал, что для профессионалов пример не нужен, я думал вы на автомате макросы пишите ...

Sub Перенести_дату_сумму()  
   Dim iLastRow As Long, iRowBlank1 As Long, iRowBlank2 As Long, iDate As Date, iSum As Single  
 
   iRowBlank2 = 1  
   With Sheets("Бланк 1")  
       iLastRow = .Cells(Rows.Count, "A").End(xlUp).Row  
       For iRowBlank1 = 6 To iLastRow  
           If iRowBlank1 > iLastRow Then Exit Sub 'если вышли за нижние границы бланков - выход  
           If IsEmpty(.Cells(iRowBlank1 - 4, "B")) Then Exit Sub    'если нет даты - выход  
           If IsEmpty(.Cells(iRowBlank1, "A")) Then Exit Sub    'если нет суммы - выход  
           iSum = .Cells(iRowBlank1, "A")    'сумма  
           iDate = .Cells(iRowBlank1 - 4, "B")    'дата  
           With Sheets("Бланк 2")  
               .Cells(iRowBlank2, "B") = iDate 'вставляем дату  
               .Cells(iRowBlank2 + 10, "C") = iSum 'вставляем сумму  
               iRowBlank2 = iRowBlank2 + 17  
           End With  
           iRowBlank1 = iRowBlank1 + 24  
       Next iRowBlank1  
   End With  
   MsgBox "Конец", vbInformation, ""  
End Sub  
 
 
P.S. Этот код копировать в РУССКОЙ РАСКЛАДКЕ КЛАВИАТУРЫ в свой редактор VBA

теперь понимаете всю ВАЖНОСТЬ вашего файла-примера?  
Вот вы бы ещё месяц упрямились бы и ломались выложить пример и ещё месяц бы вопрос был бы не решён.

не уверен

{quote}{login=Ластик}{date=22.01.2012 07:13}{thema=}{post}P.S. Этот код копировать в РУССКОЙ РАСКЛАДКЕ КЛАВИАТУРЫ в свой редактор VBA{/post}{/quote}Павел, необязательно - это, когда обратное копирование: из редактора - сюда :-)

{quote}{login=Юрий М}{date=22.01.2012 09:33}{thema=Re: }{post}{quote}{login=svm55}{date=22.01.2012 07:47}{thema=}{post} не сохраняется ширина строк{/post}{/quote}Вы о чём сейчас? Два варианта:  
1. ВЫСОТА строк.  
2. ШИРИНА столбца.  
Вот и гадай после такого вопроса :-){/post}{/quote}  
Ё-моё1 ну я и ляпнул! Конечно высота строк при автозаполнении почему-то не хочет копироваться

Ну тогда ясно. Чудно как-то. <Ctrl C> затем <Ctrl V> высота строк копируется, при автозаполнении - глюк. Я понимаю, что это поправимо просто: надо маленький макрос записать и пусть копирует. просто я думал. что где то в настройках есть такая галочка, наподобие специальной вставки.