Question

我的电子表格有一个“主”表格，显示从其他表格中收集的信息并填充表格。我需要从每个信息表中相同的4个单元格中获取信息。它提取的数据是名称，工作小时数等，它来自单元格c1，d1，u11和i20。

随着员工的不同，工作表的数量也会有所不同，但我可以在主页的a1中放置一个单元格来表示员工人数。每个选项卡都以员工的名字命名，但我希望它们能以某种方式在Excel中以后台编号？

Answer 1

以下代码假定您的主工作表是工作簿中的第一个工作表。在第一列中显示各个员工的姓名（假设您的工作表以员工命名）。

Sub GetInfo()

        Dim intCounter As Integer

        For intCounter = 2 To Worksheets.Count
            Worksheets(1).Cells(intCounter, 1) = Worksheets(intCounter).Name
            Worksheets(1).Cells(intCounter, 2) = Worksheets(intCounter).Range("C1").Value
            Worksheets(1).Cells(intCounter, 3) = Worksheets(intCounter).Range("D1").Value
            Worksheets(1).Cells(intCounter, 4) = Worksheets(intCounter).Range("U11").Value
            Worksheets(1).Cells(intCounter, 5) = Worksheets(intCounter).Range("I20").Value
        Next
    End Sub

需要一个宏来从选项卡中提取数据

1 个答案: