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

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

这是我一路走来的编码 .

我无法弄清楚如何使其选择特定行的另一种方式 . （假设我选择了第150行，D列中的值是工作表的名称，我想在dSht中的列中引用该工作表中的单元格 .

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

Dim LastRw为Long，Rw为Long，Cnt为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
vba reference cell