Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
[VBA] копировать строчки с одной вкладки на другую с заданным интервалом между ними
 
#1
18.12.2012 16:34:00
Добрый день!  
 
если несколько строчек (кол-во не всегда фиксировано)  
 
как с помощью макроса скопировать их с первого листа на второй, но с заданным интервалом, к примеру через каждые 9 строк поочередно все строчки.
caustic
 
 
 
#2
18.12.2012 17:14:51
Для лист1 и лист2 из примера.  
 
Sub caustic()  
Dim A()  
Dim lngI As Long  
Dim lngJ As Long  
With Worksheets("Лист1")  
ReDim A(1 To .[a1].CurrentRegion.Rows.Count, 1 To 1)
A = .[a1].Resize(.[a1].CurrentRegion.Rows.Count, 1).Value
End With  
With Worksheets("Лист2")  
lngJ = 0  
For lngI = 1 To UBound(A, 1)  
.Cells(lngI + lngJ * (lngI - 1), 1) = A(lngI, 1)  
lngJ = 9  
Next lngI  
End With  
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#3
18.12.2012 18:01:24
спасибо! работает!  
бьюсь вот. не могу понять: как сделать так ,чтобы на втором листе строчки начали копироваться не с ячейки A1 а с A2?
caustic
 
 
 
#4
18.12.2012 18:11:24
Sub caustic()  
Dim A()  
Dim lngI As Long  
Dim lngJ As Long  
With Worksheets("Лист1")  
ReDim A(1 To .[a1].CurrentRegion.Rows.Count, 1 To 1)
A = .[a1].Resize(.[a1].CurrentRegion.Rows.Count, 1).Value
End With  
With Worksheets("Лист2")  
lngJ = 0  
For lngI = 1 To UBound(A, 1)  
 
 
.Cells(lngI + 1 + lngJ * (lngI - 1), 1) = A(lngI, 1)  
 
 
lngJ = 9  
Next lngI  
End With  
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#5
20.12.2012 11:24:29
а как сделать чуть сложнее, чтобы значение ячейки на листе1 вставлялось на листе2  нужное количество раз. Количество повторов указано в ячейке напротив ячейки со значением которое нужно размножить.И все этовыводилось в столбец
 
 
 
#6
20.12.2012 23:06:13
Для "чуть посложнее" хорошо бы иметь пример в 2003 формате.  
И лучше, наверное, в новой теме, ибо задача, все же не такая, как у ТС.
Кому решение нужно - тот пример и рисует.
 
 
 
Страницы: 1
Наверх