将特定数据从多个工作表传输到一个主工作表

Question

我是VBA的初学者，我希望得到你的帮助， 我有一个数据库，我继续添加包含订单数据的新工作表。 我想创建一个主表单，其中包含列表中的表单名称，以及每次添加表单时自动刷新的单个单元格。 提前谢谢。

Answer 1

我试过这个并按预期工作（Sheet1应该是主表）：

Sub foo()
i = 0
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Sheet1" Then 'Do not include the Master Sheet
        Sheet1.Cells(i, 1).Value = Ws.Name
        x = i
        Ws.UsedRange.copy Destination:=Sheet1.Range("B" & i)
        i = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
        For y = x To i
            Sheet1.Cells(y, 1).Value = Sheet1.Cells(x, 1).Value
        Next y
    End If
i = i + 1
Next
End Sub

在添加新工作表时触发代码：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    'put the code here
End Sub