Sub âñòàâêà_ñòðîê_ïîI()
Dim lngI As Long
For lngI = Cells(Rows.Count, "I").End(xlUp).Row To 2 Step -1
If Range("I" & lngI) > 1 Then
Rows(lngI + 1 & ":" & lngI + 1 + (Range("I" & lngI) - 2)).Insert shift:=xlDown
End If
Next lngI
End Sub
Имеется некоторые значения в столбце J. Задача: вставить под каждым значением ячейки массива строки в количестве, на одну строку меньше значения ячейки. У меня есть макрос, но он в одних файлах он работает в других не работает. Помогите пожалуйста разобраться с этим макросом... Файл прилагаю.
Код
Sub вставка_строк_поJ()
Dim lngI As Long
For lngI = Cells(Rows.Count, "j").End(xlUp).Row To 2 Step -1
If Range("j" & lngI) > 1 Then
Rows(lngI + 1 & ":" & lngI + 1 + (Range("j" & lngI) - 2)).Insert shift:=xlDown
End If
Next lngI
End Sub
Имеется одномерный вертикальный массив чисел. Задача: вставить под каждым значением ячейки массива строки в количестве, на одну строку меньше значения ячейки. Помоги пожалуйста макросом, кто может...
Имеется одномерный массив чисел необходимо сцепить ячейки значение которых находится в пределах от 1 до 300 и сцепить ячейки значение которых находится в пределах от 301 до 700 . Нашел один макрос (он есть в прилагаемом файле в модулях )
Код
Function MergeIf(TextRange As Range, SearchRange As Range, Condition As String)
Dim Delimeter As String, i As Long
Delimeter = ", " 'символы-разделители (можно заменить на пробел или ; и т.д.)
'если диапазоны проверки и склеивания не равны друг другу - выходим с ошибкой
If SearchRange.Count <> TextRange.Count Then
MergeIf = CVErr(xlErrRef)
Exit Function
End If
'проходим по все ячейкам, проверяем условие и собираем текст в переменную OutText
For i = 1 To SearchRange.Cells.Count
If SearchRange.Cells(i) Like Condition Then OutText = OutText & TextRange.Cells(i) & Delimeter
Next i
'выводим результаты без последнего разделителя
MergeIf = Left(OutText, Len(OutText) - Len(Delimeter))
End Function
но он немного по другому работает. Помогите пожалуйста доработать....
Имеется дневник погоды (очень подробный, несколько замеров в сутки) необходимо оставить строки с данными на 12:00 каждых суток, а остальные строки удалить. Помогите пожалуйста соответствующим макросом.
Есть область из 10 столбцов и 100 строк в которой в произвольном виде (хаотично) в ячейках внесены числа от 1 до 500. Задача в том, что бы найти пропущенные числа в последовательности 1-500 и вывести эти числа в определенный столбец. Ничего подобного на форуме не нашел, есть только для сортированных столбцов, но этот вариант мне не подходит.