Excel VBA 通过工作表最后一行查找每个答案

【问题标题】：Excel VBA lookup each through sheet last rowExcel VBA 通过工作表最后一行查找每个
【发布时间】：2019-09-13 16:12:17
【问题描述】：

我的工作簿中有几张工作表。在第一张表中，我有客户名称和销售额。如下所示。

客户名称 |销售额

帕布
斯里尼瓦桑

每个都将工作表名称作为客户名称。就像表 2 的名称是 Prabhu，表 3 的名称是 Srinivasan。

除了表1，所有表的B列最后一行都有销售额。

现在我需要根据客户姓名获取表格 1 上每个客户的销售额。

Sub EachthroughLastSheet()

     Dim i As Integer

     For i = 2 To ThisWorkbook.Worksheets.Count

          MsgBox ThisWorkbook.Worksheets(i).Name

     Next

End Sub

【问题讨论】：

标签： excel vba loops

【解决方案1】：

如果我理解正确，那应该会有所帮助：

Sub EachthroughLastSheet()

Dim j As Long
Dim nameCust As String
Dim valueSales As String
Dim lastRow As Long, lastRow2 As Long

    With Sheets("Sheet1")
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row

        For j = 2 To lastRow
            nameCust = .Cells(j, 1)

            With Sheets(nameCust)
                lastRow2 = .Cells(Rows.Count, 2).End(xlUp).Row
                valueSales = .Range("B" & lastRow2).Value
            End With
            .Cells(j, 2) = valueSales
        Next

    End With

End Sub

【讨论】：