Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоматическое создание вкладок на основании данных
 
#1
06.07.2018 15:17:45
Здравствуйте!
Есть xml файл на много тысяч строк. Данные расположены в порядке, как в файле-примере.
Задача - взять данные с Артикул1 по Артикул2 (невключительно) по вертикали и до конца листа по горизонтали и создать либо отдельный xml (или excel) файл, либо создать вкладку с этими данными.

Таким образом должно получится около 500 вкладок или файлов с данными.
Это воозможно? Или копипастить?

Помогите, пожалуйста
 
 
 
#2
06.07.2018 15:29:59
artemn, на листы
Код
Sub Ar()
Dim a As Range
  Application.ScreenUpdating = False
  For Each a In Range("A:A").SpecialCells(xlCellTypeBlanks).Areas
    With Worksheets.Add(, ActiveSheet)
      a.Offset(-1).Resize(a.Rows.Count + 1).EntireRow.Copy .Cells(1, 1)
      .Name = Cells(1, 1) & "|" & Cells(1, 2) 'переименование листа - необязательно
    End With
  Next
  Application.ScreenUpdating = True
End Sub
 
 
 
#3
06.07.2018 16:06:11
Спасибо! На моем примере макрос отработал верно, а на оригинале документа ошибка 400.
Можете посмотреть конкретный файл?
И, желательно, чтобы вкладка была названа даннымим из колонки Артикул, из первой
 
 
 
#4
06.07.2018 16:18:23
У меня была ошибка 1004, как раз при переименовании листа. Только из первой
Код
Sub Ar()
Dim a As Range
  Application.ScreenUpdating = False
  For Each a In Range("A:A").SpecialCells(xlCellTypeBlanks).Areas
    With Worksheets.Add(, ActiveSheet)
      a.Offset(-1).Resize(a.Rows.Count + 1).EntireRow.Copy .Cells(1, 1)
      .Name = Cells(1, 1) 'переименование листа - необязательно
    End With
  Next
  Application.ScreenUpdating = True
End Sub
 
 
 
Страницы: 1
Наверх