Excel 列表工作表名称 + 值

Question

我有一个包含几张工作表的 Excel 工作簿。在每张纸上，我有 2 个带日期的单元格值（开始日期和结束日期）。

我的目标是创建一个新工作表（索引工作表），其中包含一个列出工作簿中所有现有工作表的表格，并且对于每个工作表，我将拥有开始日期和结束日期对应的单元格值。

类似这样的：

姓名开始日期结束日期

Sheet01 01/01/2016 01/02/2016

Sheet02 12/02/2016 23/03/2016

Sheet03 22/03/2016 30/04/2016

Sheet04 22/12/2016 01/12/2016

我该怎么做（如果可能避免使用 VBA，我不是开发人员:)）

谢谢

Answer 1

您可以只添加一个引用，例如“=Sheet1!B2”，其中 B2 将是工作表 1 中具有您想要的日期的单元格。

Answer 2

如果日期在每张工作表的 A1 和 B1 单元格中，则：

Sub IndexMaker()
    Dim sh As Worksheet, n As String

    With ThisWorkbook
            .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "index"
            Set sh = ActiveSheet
    End With

    For i = 1 To Sheets.Count
        n = Sheets(i).Name
        v1 = Sheets(i).Range("A1").Value
        v2 = Sheets(i).Range("B1").Value
        If n <> "index" Then
            sh.Cells(i, "A").Value = n
            sh.Cells(i, "B").Value = v1
            sh.Cells(i, "C").Value = v2
        End If
    Next i
End Sub

Answer 3

使用下面的代码。我假设你在每张纸的单元格 b2 和 c2 分别有开始日期和结束日期。

Sub SheetNames()
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Cells(i, 2) = Sheets(i)!B2
Cells(i, 3) = Sheets(i)!C2
Next i

End Sub