从其他工作表的单元格中获取值

Question

我做了一个小的VBA代码，从我的工作簿中获得了所有工作表名称的列表，我的问题是：我怎样才能从Sheet7（“ B4：B5”），Sheet8（“ B4：B5”），Sheet（“ B4：B5”）......的值获取到Sheet6的代码中，如下代码：

Private Sub Worksheet_Activate()
 Call task
End Sub
Sub task()
Call ThisWorkbook.speedOn
    Dim pws As Worksheet
    Dim x, N As Integer
    Dim browLastCol As Range
    Set pws = Sheets("Sheet6")
    'Set browLastCol = pws.Range(Cells(3, 4), Cells(3, 4).End(xlToRight))
    Set browLastCol = pws.Range(Cells(9, 2), Cells(9, 2).End(xlDown))

        x = 9

        pws.Range(Cells(3, 2), Cells(3, 2).End(xlToRight)).Clear


   For Each ws In Worksheets
    If ws.Name <> "Sheet1" Then
     If ws.Name <> "Sheet2" Then
       If ws.Name <> "Sheet3" Then
            If ws.Name <> "Sheet4" Then
             If ws.Name <> "Sheet5" Then
               If ws.Name <> "Sheet6" Then

                    Sheets("Sheet6").Cells(x, 2) = ws.Name ' List woksheets name 

                     x = x + 1
                      Sheets("Sheet6").Range("A3").RowHeight = 40


                      With browLastCol
                               .RowHeight = 26
                               'Some code removed
                     End With


                 End If
                End If
             End If
         End If
      End If
   End If
Next ws
 Call ThisWorkbook.speedOff
End Sub

Answer 1

[其他人已经共享了重复的解决方案，但是我会考虑在这里使用Select Case摆脱所有这些IF语句。

For Each ws in Worksheets
    Select Case ws.Name
        Case "Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6"
            'Do Nothing (leave this blank)
        Else
            Sheets("Sheet6").Cells(x, 2) = ws.Name 
            x = x + 1
            Sheets("Sheet6").Range("A3").RowHeight = 40

            With browLastCol
                .RowHeight = 26
                'Some code removed
            End With

    End Select
Next ws