Vba 将一系列数据复制到工作簿的所有工作表

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

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

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

我有一个到目前为止我已经完成的代码，但是它只允许一页一页地复制粘贴，并且我不能在代码中定义一个固定的范围

在这种情况下，我希望将所选数据粘贴到每张图纸的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

Dim rng As范围，inp As范围
设置rng=无
设置inp=选择
inp.Interior.ColorIndex=37
出错时继续下一步
设置rng=Application.InputBox（“复制到”，类型：=8）
错误转到0
如果TypeName（rng）“范围”，则
MsgBox“已取消”，VBS信息
出口接头
其他的
rng.Parent.Activate
rng.选择
复印件
工作表（“Sheet2”）。粘贴链接：=真
如果结束
Application.CutCopyMode=0

是否需要所有工作表的循环

    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

---

是否需要所有工作表的循环

    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

Dim Rng As范围_
Inp作为靶场_
wS-As工作表
设置Inp=选择
Inp.Interior.ColorIndex=37
出错时继续下一步
设置Rng=Application.InputBox（“复制到”，类型：=8）
错误转到0
如果TypeName（Rng）“范围”，则
MsgBox“已取消”，VBS信息
出口接头
其他的
Rng.Parent.Activate
复印件
对于ActiveWorkbook.Worksheets中的每个wS
wS.Range（“B1”）。粘贴链接：=真
下一个
如果结束
Application.CutCopyMode=0

变暗Rng As范围_
Inp作为靶场_
wS-As工作表
设置Inp=选择
Inp.Interior.ColorIndex=37
出错时继续下一步
设置Rng=Application.InputBox（“复制到”，类型：=8）
错误转到0
如果TypeName（Rng）“范围”，则
MsgBox“已取消”，VBS信息
出口接头
其他的
Rng.Parent.Activate
复印件
对于ActiveWorkbook.Worksheets中的每个wS
wS.Range（“B1”）。粘贴链接：=真
下一个
如果结束
Application.CutCopyMode=0

我得到的对象不支持ws.Range（“B1”）上的此属性或方法。粘贴链接：=TrueI获取的对象不支持ws.Range（“B1”）上的此属性或方法。粘贴链接：=TrueI获取对象工作表的方法粘贴在ws.Paste（“B1:N1”）上失败尝试

ws.Paste（ws.Range（“B1:N1”）

否我没有更改。是否要添加粘贴链接？我不好，实际上范围对象没有粘贴方法，只有工作表有粘贴方法。因此它是

ws.Paste Link:=True

或

ws.Range（B1:N1）。Pastespecial

（请参见编辑）否，在代码中，inp范围指启动宏时选择的范围。如果需要输入框的范围，请使用rng范围

rng.Copy

和not

inp.Copy

或声明输入框如下：

Set inp=Application.inputBox（“Copy to”，Type:=8）

我在ws.paste（“B1:N1”）上获取对象工作表的方法粘贴失败尝试

ws.paste（ws.Range（“B1:N1”）

否我没有更改。是否要添加粘贴链接？我不好，实际上范围对象没有粘贴方法，只有工作表有粘贴方法。因此它是

ws.Paste Link:=True

或

ws.Range（B1:N1）。Pastespecial

（请参见编辑）否，在代码中，inp范围指启动宏时选择的范围。如果需要输入框的范围，请使用rng范围

rng.Copy

和not

inp.Copy

或声明输入框如下：

Set inp=Application.inputBox（“复制到”，类型：=8）