Excel - как скопировать все столбцы подряд на основе условия

Question

Я новичок в макросах и надеюсь, что кто-то может помочь Попытка составить отчет из таблицы данных, которая удовлетворяет некоторым условиям. Мне нужно получить все данные (ячейки) в строке, например, которые удовлетворяют условию <1 в столбце 10, и скопировать эти ячейки / строку на новый лист. Я не могу найти какие-либо функции в Excel, поэтому я надеюсь, что не продвинутый макрос, который я могу изменить, может сделать свое дело. Заранее спасибо.

Answer 1

• Откройте копию вашего листа Excel, содержащего все данные
• нажмите ALT+ F11, чтобы открыть редактор VBA

• откройте sheet1 из левой панели и введите код ниже

  Sub mymacro()
    For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
      If Cells(myrow, 8) < 1 Then
        i = i + 1
        ActiveWorkbook.Sheets(1).Rows(myrow).Copy Destination:=ActiveWorkbook.Sheets(2).Rows(i)
      End If
    Next myrow
  End Sub
  

• вернитесь на лист и нажмите ALT+ F8 и выполните макрос

Этот код будет выполняться до последней использованной строки, проверьте, является ли значение 8-го столбца <1, и, если да, скопируйте всю строку в следующую свободную строку на листе 2.