☰

Excel - 조건에 따라 행의 모든 ​​열을 복사하는 방법

tag-icon • tag-icon microsoft-excel vba
Excel - 조건에 따라 행의 모든 ​​열을 복사하는 방법

저는 매크로를 처음 사용하는데 누군가 도움을 줄 수 있기를 바랍니다. 일부 조건을 충족하는 데이터시트에서 보고서를 작성하려고 합니다. 예를 들어 열 10에서 조건 <1을 충족하는 행의 모든 ​​데이터(셀)를 가져와 해당 셀/행을 새 시트에 복사해야 합니다. Excel에서는 어떤 기능도 찾을 수 없으므로 수정할 수 있는 고급 매크로가 아닌 매크로를 사용하여 문제를 해결할 수 있기를 바랍니다. 미리 감사드립니다.

답변1

  • 모든 데이터가 포함된 Excel 시트의 복사본을 엽니다.
  • ALT+를 눌러 F11VBA 편집기를 엽니다.

  • 왼쪽 창에서 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의 다음 빈 행에 복사합니다.

관련 정보