Страницы: 1
RSS
[VBA] копировать строчки с одной вкладки на другую с заданным интервалом между ними
 
Добрый день!  
 
если несколько строчек (кол-во не всегда фиксировано)  
 
как с помощью макроса скопировать их с первого листа на второй, но с заданным интервалом, к примеру через каждые 9 строк поочередно все строчки.
caustic
 
Для лист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
Кому решение нужно - тот пример и рисует.
 
спасибо! работает!  
бьюсь вот. не могу понять: как сделать так ,чтобы на втором листе строчки начали копироваться не с ячейки A1 а с A2?
caustic
 
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
Кому решение нужно - тот пример и рисует.
 
а как сделать чуть сложнее, чтобы значение ячейки на листе1 вставлялось на листе2  нужное количество раз. Количество повторов указано в ячейке напротив ячейки со значением которое нужно размножить.И все этовыводилось в столбец
 
Для "чуть посложнее" хорошо бы иметь пример в 2003 формате.  
И лучше, наверное, в новой теме, ибо задача, все же не такая, как у ТС.
Кому решение нужно - тот пример и рисует.
Страницы: 1
Наверх