как добавить количество ячеек в формуле макроса на выделение
допустим вот макрос на выделение одной ячейки в строке столбца А,а мне нужно чтобы выделились от А до С ячейки строк
допустим вот макрос на выделение одной ячейки в строке столбца А,а мне нужно чтобы выделились от А до С ячейки строк
Код |
---|
Sub IntervalCellSelect() Dim intFirstRow As Integer ' Первая строка для выделения Dim intLastRow As Integer ' Последняя строка для выделения Dim rgCells As Range ' Объединение выделяемых ячеек Dim intRow As Integer intFirstRow = 3 intLastRow = 300 ' Формирование объединения ячеек в столбце "B" от строки _ intFirstRow до строки intLastRow с шагом 3 For intRow = intFirstRow To intLastRow Step 3 If rgCells Is Nothing Then ' Первая ячейка в объединении Set rgCells = Cells(intRow, 1) Else ' Добавление очередной ячейки в объединение Set rgCells = Union(rgCells, Cells(intRow, 1)) End If Next ' Выделение всех ячеек в объединении rgCells.Select End Sub |