Как применить этот макрос ко всем страницам в файле Excel?

Question

У меня есть код для внесения определенных изменений в некоторые ячейки на странице. Я хотел бы применить этот код одним щелчком мыши ко всем страницам в файле 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. Как это сделать?

Answer 1

Просто пройдитесь по листам (страницам) так же, как вы просматриваете ячейки в диапазоне:

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

P.S. Вероятно, имеет смысл сделать два Ifутверждения независимыми, т.е. не вкладывать второе утверждение в первое.