☰

Excel - 创建新选项卡时自动从单元格导入数据

tag-icon • tag-icon microsoft-excel vba
Excel - 创建新选项卡时自动从单元格导入数据

我正在处理一个电子表格，该表格汇总了来自标准模板的数据，并将其作为单独的选项卡插入到联合 Excel 文件中。

创建新选项卡时，是否可以自动将指定单元格中的数据导入摘要选项卡？由于我要提取的数据在每个文档中的同一个单元格中，这将节省我大量的时间和精力

答案1

C1类似这样的操作将在 Sheet1 的 A 列中创建一个包含 Sheet Names 的列表，并且每次任意一张更改，它会将该单元格的值放入 B 列的 Sheet1 中，位于 A 列中相应工作表名称的旁边

ThisWorkbook它通过 VBA 编辑器进入模块*。您可以根据需要更改工作表名称和范围。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Sh.Range("C1")) Is Nothing Then
        Dim ws As Worksheet
        Set ws = Sheets("Sheet1")
        Dim iRow As Integer
        On Error GoTo Yikes:
TryAgain:
        iRow = Application.WorksheetFunction.Match(Sh.Name, ws.Range("A1:A50"), 0)
        ws.Cells(iRow, 2) = Target.Value
        Exit Sub

Yikes:

        Dim rowcount As Integer
        rowcount = ws.Cells(Rows.Count, 1).End(xlUp).Row
        Dim r As Range
        Set r = ws.Cells(rowcount + 1, 1)
        r = Sh.Name
        GoTo TryAgain:
    End If
End Sub

*要进入 VBA 编辑器，您必须转到 Office 按钮、Excel 选项，然后在热门标签中勾选旁边的复选框Show Developer tab in the Ribbon。然后关闭它，转到开发人员选项卡并单击Visual Basic最左侧的按钮。编辑器将打开，您需要双击ThisWorkbook左侧窗格中的模块。

相关内容