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

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

见附件示例。

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path &"\银租" &i.Value &i.Offset(0, 1).Value &"族大3月工资单兆搏竖.xls"

---