求一个vba小程序

2025-05-23 08:18:09

推荐回答（1个）

回答（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

告诉你一个奇怪的硬件问题,有兴趣的都来看看