페이지의 일부 셀을 특별히 수정하는 코드가 있습니다. 한 번의 클릭 으로이 코드를 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