求一个vba小程序

Question

把两个文件的内容链接起来，通过输入目录文件，可以在另一个文件中得到想要的数据结果

Answer 1

Sub 宏2()
 Dim Rng As Range, Sh As Worksheet, Wb As Workbook, i&
 Set Sh = Workbooks("目录.xlsx").Worksheets("目录")
 Set Wb = Workbooks("被建立链接的文件.xlsm")
 Wb.Activate
 For i = 2 To 6
  Sh.Cells(i, 1).Resize(1, 7).Copy
  Worksheets(i - 1).Select
  Range("A2").Select
  ActiveSheet.Paste Link:=True
 Next i
End Sub

本回答被提问者和网友采纳

Answer 2

你这个不是第一次提问了啊追问

是 的啊

Answer 3

可以做的哦，不白做的哦