1

我有一个巨大的电子表格，其中包含一个“摘要”工作表，电子表格中的每个工作表都有一行。所有工作表（除了主表和模板）都根据 D 列（人员的姓氏）中的值命名。

我想运行一个将引用以下单元格但相反的宏。（我想将特定工作表中的单元格引用到 dSht）

这是我采用一种方式的编码。

我不知道如何让它为选定的特定行另辟蹊径。（假设我选择了第 150 行，D 列中的值是工作表的名称，我想在位于 dSht 的列中引用该工作表中的单元格。

但我不希望粘贴该值，我希望引用该单元格，因此如果我在特定页面上更新它，它会在摘要页面上更新。目前我只是为每个单元格/列手动输入 =LastName!E3 。

Dim LastRw As Long, Rw As Long, Cnt As Long Dim dSht As Worksheet, tSht As Worksheet Dim MakeBooks As Boolean, SavePath As String Application.ScreenUpdating = False '加速宏执行 Application.DisplayAlerts = False '没有警报，使用默认答案

Set dSht = Sheets("All Accidents & Incidents") 'sheet with data on it starting in row2
Set tSht = Sheets("Template") 'sheet to copy and fill out

' 确定最后一行数据，然后逐行循环

LastRw = dSht.Range("A" & Rows.Count).End(xlUp).Row
tSht.Copy After:=Worksheets(Worksheets.Count) 'copy the template
With ActiveSheet 'fill out the form

' 编辑这些行以填写您的表格，根据需要添加更多

    ' Case Number
    .Range("E3").Value = dSht.Range("N" & LastRw).Value
    ' case #
    .Range("E4").Value = dSht.Range("P" & LastRw).Value
    'Case #
    .Range("E5").Value = dSht.Range("R" & LastRw).Value
    'Case #
    .Range("E6").Value = dSht.Range("T" & LastRw).Value
    'Case #
    .Range("E7").Value = dSht.Range("V" & LastRw).Value

    'Pmts
    .Range("H27").Value = dSht.Range("X" & LastRw).Value
    ' Pmts
    .Range("H38").Value = dSht.Range("Y" & LastRw).Value
    ' Pmts
    .Range("H46").Value = dSht.Range("Z" & LastRw).Value
    'Billback
    .Range("H16").Value = dSht.Range("AA" & LastRw).Value
    'Company Pmts
    .Range("H65").Value = dSht.Range("AB" & LastRw).Value
     'Net Loss
    .Range("H77").Value = dSht.Range("AC" & LastRw).Value
    'Total Cost
    .Range("H78").Value = dSht.Range("AD" & LastRw).Value

    'Description
    .Range("A81").Value = dSht.Range("AM" & LastRw).Value


    ActiveSheet.Name = .Range("I3").Value
4

0 回答 0