Excel - 如何根據條件複製行中的所有列

Question

我是宏的新手，希望有人可以幫忙嘗試從滿足某些條件的資料表中製作報告。我需要獲取一行中的所有數據（單元格），例如滿足第 10 列中的條件 <1 的數據，並將這些單元格/行複製到新工作表。我在 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 中的下一個空閒行。