Коллеги, помогите пожалуйста с проблемой:
Задача по сути простая - сцепить значения ячеек в один порядковый номер
То есть в приложенном файле в ячейках B3, B7, B11, B15 должны быть сцепки ячеек D2+E2+F2+G2+H2, D3+E3+F3+G3+H3 и т.д. соответственно..
Но проблема в том, что при копировании номера строк, естественно, меняются на параллельные, а нужно чтобы были по порядку
Мысль была такая, чтобы задать переменную, определяющую номер последней заполненной строки в столбце D и подставляющей её в формулу сцепки в ActiveCell
Примерно так:
Но такое ощущение что функция Сцепить понимает только текст, и значение переменной туда никак не подставишь..
Так ли это?
Задача по сути простая - сцепить значения ячеек в один порядковый номер
То есть в приложенном файле в ячейках B3, B7, B11, B15 должны быть сцепки ячеек D2+E2+F2+G2+H2, D3+E3+F3+G3+H3 и т.д. соответственно..
Но проблема в том, что при копировании номера строк, естественно, меняются на параллельные, а нужно чтобы были по порядку
Мысль была такая, чтобы задать переменную, определяющую номер последней заполненной строки в столбце D и подставляющей её в формулу сцепки в ActiveCell
Примерно так:
Код |
---|
Sub Fill() Dim RowCount as Integer RowCount = Sheets("Лист1").Range("D1:D" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row ActiveCell.Formula = "=CONCATENATE(RowCount - 1 & 4; RowCount - 1 & 5 ... RowCount - 1 & 8) End sub |
Так ли это?