Excel使用宏批量向单元格插入指定信息

Posted 2023-05-16

如下图所示 我想在Excel中批量录入文件数据引用的链接。
如图所示：表格中有4列数据，第2，3，4列数据是引用其他Excel文件中的数据，引用链接信息如 F3，F4，F5中内容所示，引用的文件名为1.xls 工作表名称为 1。序号为2的数据行对应的姓名、编号、人员的数据对应的引用文件为2.xls 工作表名称为2，下面数据行对应引用文件逻辑同该逻辑。
我现需要将如示文件数据引用链接，依次按照序号的增长将下面序号对应数据行的姓名、编号、人员三列按照如上规则批量如图，以此来显示对应的文件引用数据。将设F1单元显示数字40为数据行数，也就是宏中for循环的次数，求宏代码。
试过：=INDIRECT("'C:\Users\DELL\Desktop\excel批量输入\["&$A3&".xls]"&$A3&"'!$B$4")的公式，向下拖动也可以动态根据序号依次填充，但是目标引用文件必须打开状态才能显示数据，由于文件数量非常多不便同时打开。
求 宏 代码解决。

Sub Test()
    Dim str As String, strPart As String, i As Long, N As Long
    str = "='C:\\Users\\DELL\\Desktop\\excel批量输入\\[bkName.xls]bkName'!$B$"
    N = Cells(Rows.Count, 1).End(xlUp).Row
    Application.DisplayAlerts = False
    For i = 2 To N
        strPart = Replace(str, "bkName", Cells(i, 1))
        Cells(i, 2).Formula = strPart & 4
        Cells(i, 3).Formula = strPart & 5
        Cells(i, 4).Formula = strPart & 6
    Next i
    Application.DisplayAlerts = True
End Sub

见附件示例。

参考技术A 结果表中直接显示数值而不是公式？
F1=40是什么意思？

如何在EXCEL中批量插入批注

参考技术A 1、单击一个需要加批注的单元格，单击之后单击右键，在下拉的选项里单击"插入批注“按钮。
2、单击之后会出现如图所示，这时候我们在批注框里面输入我们想要备注的信息。
3、单元格批注写好之后，右键单击该单元格，在下拉的选项里单击”复制“按钮。
4、假如我们想在D3，E3，D5，E6这些单元格都插入相同批注的话，那么当我们单击复制按钮之后，先单击D3单元格，然后按下CTRL，再一次单击E3，D5，E6单元格，都选择好之后单击右键，在下拉的选项里单击”选择性黏贴“按钮。
5、单击之后会弹出的对话框，这时候我们单击”批注“按钮。
6、再单击下方的”确定“按钮。