엑셀 파일에 있는 데이터를 읽어와서 특정 조건에 맞는 데이터를 필터링하여 새로운 시트에 저장 매크로

엑셀 파일에 있는 데이터를 읽어와서 특정 조건에 맞는 데이터를 필터링하여 새로운 시트에 저장 매크로

엑셀 파일에 있는 데이터를 읽어와서 특정 조건에 맞는 데이터를 필터링하여 새로운 시트에 저장하는 매크로를 만들어 보겠습니다.

Sub 데이터_필터링()
    ' 데이터 필터링 매크로
    
    Dim ws As Worksheet
    Dim data As Variant
    Dim newData As Variant
    Dim i As Long, j As Long
    Dim criteria As String
    
    ' 원본 데이터를 배열에 저장
    Set ws = ThisWorkbook.Sheets("Sheet1")
    data = ws.Range("A1").CurrentRegion.Value
    
    ' 필터링 조건 설정
    criteria = "F"
    
    ' 필터링된 데이터를 새로운 시트에 저장
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = "Filtered Data"
    j = 1
    For i = 1 To UBound(data)
        If data(i, 6) = criteria Then
            newData(j, 1) = data(i, 1)
            newData(j, 2) = data(i, 2)
            newData(j, 3) = data(i, 3)
            newData(j, 4) = data(i, 4)
            newData(j, 5) = data(i, 5)
            newData(j, 6) = data(i, 6)
            j = j + 1
        End If
    Next i
    
    ' 필터링된 데이터를 시트에 출력
    ws.Range("A1:F" & UBound(newData, 1)).Value = newData
    
End Sub

매크로를 실행하려면 [F5] 키를 누르거나, 개발 탭에서 매크로 이름을 선택한 후 [실행]을 클릭합니다.
이제 "Sheet1" 시트에서 "F" 열이 "criteria"와 일치하는 데이터를 필터링하여 "Filtered Data" 시트에 새로 저장되었습니다. 이와 같이 매크로를 사용하면 많은 양의 데이터에서도 쉽게 원하는 결과를 얻을 수 있습니다.