Страницы: 1
RSS
Перенос данных из одного листа на другой с определенными условиями сортировки по датам
 

Здравствуйте, огромная просьба помочь, с автоматизацией обработки данных. Файл для примера во вложении, исходные данные на первом листе - "Список испытанных сиз", данные в том виде которые хотелось бы получить на втором листе "Список с датами следующего исп."

 
Цитата
просьба помочь, с автоматизацией обработки данных
Код
Sub SIZ()
Dim iLR As Long
Dim iLastRow As Long
Dim Rng As Range
  With Worksheets("Список с датами следующего исп.")
    iLR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    .Range("A2:D" & iLR).ClearContents
  iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    For Each Rng In Range("B2:B" & iLastRow).SpecialCells(2, 2).Areas   '(2,2) - текстовые данные
      iLR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
      Range(Rng(1, 1).Offset(, -1), Rng(1, 1).Offset(Rng.Count - 1, 2)).Copy .Cells(iLR, "A")
    Next
     'заполнение пустых ячеек данными из вышестоящей ячейки
    iLR = .Cells(.Rows.Count, "B").End(xlUp).Row
    With .Range("A2:A" & iLR)
         .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
         .Value = .Value
    End With
      .Range("A2:D" & iLR).Sort Key1:=.Range("D2")
  End With
End Sub
 
Спасибо большое!
Страницы: 1
Наверх