将一个范围的数据复制到工作簿的所有工作表

我有一个包含数据库的工作簿。

在那个数据库中有一行数据，我想复制并粘贴到所有的工作表。

复制范围随着数据库上的行数据更改而变化，但每个位置的粘贴范围保持不变。

我有一个代码，我已经完成了迄今，但它只允许复制粘贴一张一张，我不能在代码中定义一个固定的范围。

在这种情况下，我想将所选数据粘贴到每张纸的B1：N1。

需要一些帮助将一个目标粘贴到所有工作表上。

这是我的代码：

Dim rng As Range, inp As Range Set rng = Nothing Set inp = Selection inp.Interior.ColorIndex = 37 On Error Resume Next Set rng = Application.InputBox("Copy to", Type:=8) On Error GoTo 0 If TypeName(rng) <> "Range" Then MsgBox "Cancelled", vbInformation Exit Sub Else rng.Parent.Activate rng.Select inp.Copy Worksheets("Sheet2").Paste Link:=True End If Application.CutCopyMode = 0 

Answer 1

你需要一个循环的所有工作表？

  Dim ws as Worksheet For Each ws in ActiveWorkbook.Worksheets If Not ws.Name = "*Name of the database workbook *" Then Call ws.Range("B1:N1").PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone) End If Next 

Answer 2

 Dim Rng As Range, _ Inp As Range, _ wS As Worksheet Set Inp = Selection Inp.Interior.ColorIndex = 37 On Error Resume Next Set Rng = Application.InputBox("Copy to", Type:=8) On Error GoTo 0 If TypeName(Rng) <> "Range" Then MsgBox "Cancelled", vbInformation Exit Sub Else Rng.Parent.Activate Inp.Copy For Each wS In ActiveWorkbook.Worksheets wS.Range("B1").Paste Link:=True Next End If Application.CutCopyMode = 0