Копировать значения на основе критериев с макросом

Question

У меня есть 2 столбца, один с датами (столбец A: A, тип dd/mm/yyyy hh: mm) другой со значениями параметра (столбец B: B), зарегистрированный на каждой дате. Но не все даты имеют зарегистрированные значения (в этом случае в столбце BI будет -9999.

Мне нужно скопировать в другие столбцы (например, D: D и E: E) только ячейки, в которых есть значение . кроме -9999 и даты корреспондентской тоже Например:

Example

Моих данные серий довольно долго, он может получить до 10000 или более строк, поэтому я не могу сделать этот выбор «вручную» Я бы предпочел макросы, а не формулы массива, потому что я хочу выбрать момент вычисления.

Answer 1

Этот код должен делать то, что вы ищете. Это скопирует все строки со значением в столбце B в столбцы D и E. '

Sub copyrows() 
Dim RowNo, newRowNo As Long 

    RowNo = 2 
    newRowNo = 2 

    With ThisWorkbook.ActiveSheet 

     .Cells(1, 4).Value = "Date" 
     .Cells(1, 5).Value = "H_Selected" 

      Do Until .Cells(RowNo, 1) = "" 

      If .Cells(RowNo, 2) <> "-9999" Then 
       .Cells(newRowNo, 4) = .Cells(RowNo, 1) 
       .Cells(newRowNo, 5) = .Cells(RowNo, 2) 
       newRowNo = newRowNo + 1 
      End If 

      RowNo = RowNo + 1 

      Loop 

    End With 

End Sub