이 매크로를 Excel 파일의 모든 페이지에 적용하는 방법

페이지의 일부 셀을 특별히 수정하는 코드가 있습니다. 한 번의 클릭 으로이 코드를 Excel 파일의 모든 페이지에 적용하고 싶습니다. VBA를 사용하고 있으며 초보자입니다. 내 코드는 다음과 같습니다.

Sub H() Dim B As Range, H As Range, I As Range For Each B In Range("B7:B49").Cells If IsNumeric(B) And B <> "" Then Cells(B.Row, 9) = Trim(Cells(B.Row + 1, 8)) & Trim(Cells(B.Row + 2, 8)) Cells(B.Row + 1, 8) = "" Cells(B.Row + 2, 8) = "" If B.Row > 50 Then Exit For End If Next B End Sub

위의 매크로를 Excel 시트의 모든 페이지에 적용하고 싶습니다. 어떻게해야합니까?

범위 내에서 셀을 반복하는 것과 같은 방식으로 시트 (페이지)를 반복합니다.

Sub H()
    Dim B As Range

    For S in Sheets
        For Each B In S.Range("B7:B49").Cells
            If IsNumeric(B) And B <> "" Then
                Cells(B.Row, 9) = Trim(Cells(B.Row + 1, 8)) & Trim(Cells(B.Row + 2, 8))
                Cells(B.Row + 1, 8) = ""
                Cells(B.Row + 2, 8) = ""
            End If
            If B.Row > 50 Then Exit For
        Next B
    Next S

End Sub

추신 : 아마도 두 If진술을 독립적으로 하는 것이 더 합리적입니다 . 즉, 두 번째 것을 첫 번째 안에 중첩시키지 마십시오.