vanka515, пока ещё не оч понимаю, Вы копируете при текущем расчёте из получившихся значений (с таблицы "скопировать") всегда самую первую строку?
vanka515, пока ещё не оч понимаю, Вы копируете при текущем расчёте из получившихся значений (с таблицы "скопировать") всегда самую первую строку?Roman777
vanka515, не ясно, не вижу где красным показано, откуда Вы берёте значения: bp1 bp2 bp3 bp4 trx ce rrc. но я кажись понял, у Вас там написано "Скопировать"...)
vanka515, не ясно, не вижу где красным показано, откуда Вы берёте значения: bp1 bp2 bp3 bp4 trx ce rrc. но я кажись понял, у Вас там написано "Скопировать"...)Roman777
Много чего не знаю!!!!
Сообщение отредактировал Roman777 - Понедельник, 11.04.2016, 12:12
Sub Cop() Dim rng As Range, c As Range Dim i&, i_n& With Worksheets("User") Set rng = Union(.Cells(4, 4), .Cells(4, 6), .Cells(4, 13), .Cells(4, 14), _ .Cells(26, 16), .Cells(26, 17), .Cells(26, 18), .Cells(26, 19), _ .Cells(26, 20), .Cells(26, 21), .Cells(26, 22), .Cells(26, 23)) End With i_n = Worksheets("Automatic").Cells(Rows.Count, 2).End(xlUp).Row For Each c In rng i = i + 1 c.Copy Worksheets("Automatic").Cells(i_n + 1, i + 1) Next c End Sub
[/vba]
Так? [vba]
Код
Sub Cop() Dim rng As Range, c As Range Dim i&, i_n& With Worksheets("User") Set rng = Union(.Cells(4, 4), .Cells(4, 6), .Cells(4, 13), .Cells(4, 14), _ .Cells(26, 16), .Cells(26, 17), .Cells(26, 18), .Cells(26, 19), _ .Cells(26, 20), .Cells(26, 21), .Cells(26, 22), .Cells(26, 23)) End With i_n = Worksheets("Automatic").Cells(Rows.Count, 2).End(xlUp).Row For Each c In rng i = i + 1 c.Copy Worksheets("Automatic").Cells(i_n + 1, i + 1) Next c End Sub