Необходимо чтобы при нарезке учитывался диапазон соседних данных. Чтобы на разных листах не оказались однотипные и связанные между собой данные. Например при вводе нарезки по 5 строк, данные по 6 строк окажутся на разных листах.
Спасибо!
Sub cut() Const SourceSheetName As String = "Лист1" DivStep = InputBox("Введите кол-во строк: ", "Кол-во строк")
Dim objSrcSheet As Worksheet Dim objDstSheet As Worksheet Dim strName As String Dim intEndRow As Currency
Set objSrcSheet = ThisWorkbook.Sheets(SourceSheetName)
For i = 1 To intEndRow Step DivStep strName = "A" & i & ":T" & i + (DivStep - 1) Set objDstSheet = ThisWorkbook.Sheets.Add() objSrcSheet.Range(strName).Copy objDstSheet.Cells objDstSheet.Name = Replace(strName, ":", "-") Next MsgBox "Нарезано!" End Sub
Добрый день, помогите пожалуйста с макросом!
Необходимо чтобы при нарезке учитывался диапазон соседних данных. Чтобы на разных листах не оказались однотипные и связанные между собой данные. Например при вводе нарезки по 5 строк, данные по 6 строк окажутся на разных листах.
Спасибо!
Sub cut() Const SourceSheetName As String = "Лист1" DivStep = InputBox("Введите кол-во строк: ", "Кол-во строк")
Dim objSrcSheet As Worksheet Dim objDstSheet As Worksheet Dim strName As String Dim intEndRow As Currency
Set objSrcSheet = ThisWorkbook.Sheets(SourceSheetName)
For i = 1 To intEndRow Step DivStep strName = "A" & i & ":T" & i + (DivStep - 1) Set objDstSheet = ThisWorkbook.Sheets.Add() objSrcSheet.Range(strName).Copy objDstSheet.Cells objDstSheet.Name = Replace(strName, ":", "-") Next MsgBox "Нарезано!" End Sub
skais, откройте файл, там выделен диапазон. Разделение будет примерно по такому признаку как в файле, будет какой-то один общий критерий у определенных строк.
skais, откройте файл, там выделен диапазон. Разделение будет примерно по такому признаку как в файле, будет какой-то один общий критерий у определенных строк.MulleR
надо определиться "или к умным, или к красивым" или какое-то условие должно выполняться первым и уж если оно не выполняется, то проверять второе а то у вас в файле и по 3 строки, и 5, и 6 расставьте приоритеты
MulleR, если вы определяете кол-во строк для нарезки по
надо определиться "или к умным, или к красивым" или какое-то условие должно выполняться первым и уж если оно не выполняется, то проверять второе а то у вас в файле и по 3 строки, и 5, и 6 расставьте приоритетыboa
boa, мне необходимо учесть сразу два условия. Если при вводе нарезки по 5 строк, диапазон из 6 подобных строк не резался на 5 а резался на 6, а далее по 5 строк пока не наступит подобный вариант опять. Возможно это реализовать?
boa, мне необходимо учесть сразу два условия. Если при вводе нарезки по 5 строк, диапазон из 6 подобных строк не резался на 5 а резался на 6, а далее по 5 строк пока не наступит подобный вариант опять. Возможно это реализовать?MulleR
boa, нужен для большего значения нарезки. Допустим будем резать по 10 или по 1000 строк, необходимо как-то определять вхождение последней строки по критерию в ту или иную нарезку.
boa, нужен для большего значения нарезки. Допустим будем резать по 10 или по 1000 строк, необходимо как-то определять вхождение последней строки по критерию в ту или иную нарезку.MulleR
Если при вводе нарезки по 5 строк, диапазон из 6 подобных строк не резался на 5 а резался на 6, а далее по 5 строк пока не наступит подобный вариант опять.
Если при вводе нарезки по 5 строк, диапазон из 6 подобных строк не резался на 5 а резался на 6, а далее по 5 строк пока не наступит подобный вариант опять.
InExSu, допустим необходимо нарезать листы по 1000 строк, строки с одним повторяющимся значением (как в файле 0 и 1) идут набором по 4 строки. Нужно порезать так, чтобы однотипные строки не попали на разные листы.
InExSu, допустим необходимо нарезать листы по 1000 строк, строки с одним повторяющимся значением (как в файле 0 и 1) идут набором по 4 строки. Нужно порезать так, чтобы однотипные строки не попали на разные листы.MulleR
Давайте сначала. "Нарезка" это что? "на разных листах" что за листы? Сколько их? Откуда они появятся? "Однотипные" = помеченные в столбце D? "связанные между собой данные" - как их отличить от не связванных? Не я первый, кто не понял хитрости с инпутбоксом ... "примерно по такому признаку", "какой-то один общий критерий" - что за словесный ералаш?
Давайте сначала. "Нарезка" это что? "на разных листах" что за листы? Сколько их? Откуда они появятся? "Однотипные" = помеченные в столбце D? "связанные между собой данные" - как их отличить от не связванных? Не я первый, кто не понял хитрости с инпутбоксом ... "примерно по такому признаку", "какой-то один общий критерий" - что за словесный ералаш?InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
InExSu, необходимо разделить один лист на несколько. Инпутбокс для изменения кол-ва строк в листах, чтобы в коде не менять. Признак для однотипных строк в столбце D. Подразумевается что строки и связаны по признаку в столбце D. При разделении на разные листы, одинаковые по признаку D по порядку идущие друг за другом строки не должны попасть на разные листы.
InExSu, необходимо разделить один лист на несколько. Инпутбокс для изменения кол-ва строк в листах, чтобы в коде не менять. Признак для однотипных строк в столбце D. Подразумевается что строки и связаны по признаку в столбце D. При разделении на разные листы, одинаковые по признаку D по порядку идущие друг за другом строки не должны попасть на разные листы.MulleR
MulleR, Приложите адекватный пример где более 2-х признаков в столбце Д и создайте листы с нарезанным результатом. Может читающим так будет понятней вашу затею...
MulleR, Приложите адекватный пример где более 2-х признаков в столбце Д и создайте листы с нарезанным результатом. Может читающим так будет понятней вашу затею...boa
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
