Запись в следующий столбец

[ShamanK]

парни можно написать так

PHP код:

wksh6.Range("b" & wksh9.Rows.Count).End(xlUp).Offset(1).Value = wksh10.Cells(i, "A") 


и тогда всякий раз запись будет произведена в следующую строчку
подскажите пожалуйста синтаксис как записать в следующий столбец в одной строчке?

[SAS888]

В Вашей записи есть лишняя ссылка на лист, в котором определяется общее количество строк. Можно проще:

wksh6.Cells(Rows.Count, "B").End(xlUp).Offset(1) = wksh10.Cells(i, "A")

Ваш код вставляет значение в следующую, после последней заполненной строкой, ячейку столбца "B". Для того, чтобы вставить значение в столбец, следующий после последнего заполненного, нужно знать номер строки. Так, например, для 5-й строки, можно так:

wksh6.Cells(5, Columns.Count).End(xlToLeft).Offset(, 1) = wksh10.Cells(i, "A")

[ShamanK]

Сообщение от SAS888

В Вашей записи есть лишняя ссылка на лист, в котором определяется общее количество строк. Можно проще:

wksh6.Cells(Rows.Count, "B").End(xlUp).Offset(1) = wksh10.Cells(i, "A")

Ваш код вставляет значение в следующую, после последней заполненной строкой, ячейку столбца "B". Для того, чтобы вставить значение в столбец, следующий после последнего заполненного, нужно знать номер строки. Так, например, для 5-й строки, можно так:

wksh6.Cells(5, Columns.Count).End(xlToLeft).Offset(, 1) = wksh10.Cells(i, "A")

большое спасибо!

[tae1980]

Сообщение от SAS888

Так, например, для 5-й строки, можно так:

wksh6.Cells(5, Columns.Count).End(xlToLeft).Offset(, 1) = wksh10.Cells(i, "A")

А для объединеных по горизонтали ячеек это работает?

[SAS888]

Да. Работает.

[tae1980]

Сообщение от SAS888

Да. Работает.

Замечательно! Спасибо за информацию!