Excel VBA 在工作表的动态范围内运行宏

Question

作为我问的最后一个问题的扩展，我正在尝试在所有工作表中运行一个宏，你们成功地帮助我做到了。 我被告知无法对工作表名称进行硬编码，因此我将不得不修改我当前的解决方案。

Sub RemoveCarriageReturns()
Dim MyRange As Range
Dim NameList() As Variant
NameList = Array("OTCUEXTR", "OTFBCUDS", "OTFBCUEL")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For i = 0 To 2
    With Worksheets(NameList(i))
        For Each MyRange In .UsedRange
            If 0 < InStr(MyRange, Chr(10)) Then
                MyRange = Replace(MyRange, Chr(10), "")
            End If
        Next MyRange
    End With
Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

我试图用一个 For 循环来填充数组，该循环收集每个工作表的名称，但是我觉得在 2 天后茫然地盯着这个，我有限的 VBA 知识已经用完了，我被困住了，我真的很感激有关如何使此宏在数量和名称可能发生变化的工作表范围内工作的指针。

很高兴在评论中提供您需要的更多信息

Answer 1

您可以这样做（或者可以使用原始代码行中的索引）。

Sub RemoveCarriageReturns()

Dim MyRange As Range
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For Each ws In Worksheets
    With ws
        For Each MyRange In .UsedRange
            If 0 < InStr(MyRange, Chr(10)) Then
                MyRange = Replace(MyRange, Chr(10), "")
            End If
        Next MyRange
    End With
Next ws

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Answer 2

Public Function GetSheetNames(ByVal wbk As workbook) As String()
    Dim names() As String
    Dim count As Integer
    Dim i As Integer

        count = wbk.Worksheets.count

        ReDim names(count - 1)
        For i = 1 To wbk.Worksheets.count
            names(i - 1) = wbk.Worksheets(i).Name
        Next

        GetSheetNames = names

    End Function

用法：GetSheetNames(Application.ActiveWorkbook)

更新：仅适用于选定的工作表：

Public Function GetActiveSheetNames(ByVal wbk As workbook) As String()
Dim names() As String
Dim count As Integer
Dim i As Integer

    count = wbk.Windows(1).SelectedSheets.count

    ReDim names(count - 1)
    For i = 1 To wbk.Windows(1).SelectedSheets.count
        names(i - 1) = wbk.Windows(1).SelectedSheets(i).Name
    Next

    GetActiveSheetNames = names

End Function