如何自动填充指定范围旁边的单元格

Question

我下面的代码做了一些事情，要求一个新工作表的名称，创建它并将名称输入到下一个空白 C 单元格中。

旁边的单元格 D、E、F 和 G 具有我在创建新工作表时调用的相关数据，例如：项目经理、开始日期等。

而不是让这些都被填充并且有一个带有“#Ref”的丑陋表格。 在我认为最好在创建新项目的同时执行此操作的所有地方。

基本上，取决于下面使用的“EMRange”，例如下一个空的是 C6，然后我希望 D6、E6、F6 和 G6 自动填充上面单元格中的公式。

我收集到我需要使用 selection.autofill 但我不确定如何根据 EMRange 在之前脚本部分中的内容将目标设为那些特定的单元格。

Public Sub CopySheetAndRenameByCell()
    Dim newName As String, Emrange As Range, wsNew As Worksheet, wb As Workbook
    Dim wsIndex As Worksheet
    
    newName = InputBox("Enter the name of the new project", _
                       "Copy worksheet", ActiveCell.Value)
    
    If newName <> "" Then
        Set wb = ThisWorkbook
        wb.Worksheets("Project Sheet BLANK").Copy _
                      After:=wb.Worksheets(wb.Worksheets.Count)
        Set wsNew = wb.Worksheets(wb.Worksheets.Count)
        On Error Resume Next 'ignore error on rename
        wsNew.Name = newName
        On Error GoTo 0     'stop ignoring errors
        
        Set wsIndex = wb.Worksheets("Client Projects Overview")
        Set Emrange = wsIndex.Range("C" & Rows.Count).End(xlUp).Offset(1)
        wsIndex.Hyperlinks.Add Anchor:=Emrange, _
                           Address:="", SubAddress:="'" & wsNew.Name & "'!A1", _
                           TextToDisplay:=wsNew.Name
        'reset font style
        Emrange.Font.Underline = xlUnderlineStyleNone
        Emrange.Font.ColorIndex = xlAutomatic
        Emrange.Font.Name = "Century Gothic"
        Emrange.Font.Size = "10"
        

        If wsNew.Name <> newName Then 'in case sheet could not be renamed....
            MsgBox "Name provided '" & newName & _
                    "' is not valid as a worksheet name!", vbExclamation
        End If
    End If
End Sub

Answer 1

只是在我的公式中添加了一个 if 语句并自动填充到所有单元格，而不是尝试在 vba 中逐个进行。

最后看起来像这样：

=IF(C5<>"",INDIRECT("'"&C5&"'"&"!"&"D3"),"")