Excel VBA求助：如何将源工作簿表头复制到指定行列？代码报错

原代码的核心错误在于目标单元格区域的写法无效，Range("B19:19")不是合法的Excel区域引用格式，同时还有一些潜在的优化点，以下是具体修正方案：

修正方案1：修复区域引用并保留Copy/Paste逻辑 #

将目标区域改为以B19作为起点（PasteSpecial会自动匹配源区域的大小），同时确保xlPasteValues的有效性：

' 复制源工作表第1行表头
sourceworkbook.Sheets("Kontrollübersicht").Range("1:1").Copy
' 粘贴到目标工作表的B19开始位置，仅粘贴值
ThisWorkbook.Sheets("Kontrollübersicht").Range("B19").PasteSpecial Paste:=xlPasteValues
' 清除剪贴板，避免弹窗提示
Application.CutCopyMode = False

如果你的代码是后期绑定（未引用Excel对象库），xlPasteValues会报错，需要替换为对应的常量值-4163：

sourceworkbook.Sheets("Kontrollübersicht").Range("1:1").Copy
ThisWorkbook.Sheets("Kontrollübersicht").Range("B19").PasteSpecial Paste:=-4163
Application.CutCopyMode = False

修正方案2：直接赋值（更高效，避免剪贴板依赖） #

不需要使用Copy/Paste，直接将源区域的值赋值给目标区域，这种方法更稳定且执行更快：

Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim sourceRange As Range
Dim targetRange As Range

' 定义工作表对象，避免重复引用
Set sourceSheet = sourceworkbook.Sheets("Kontrollübersicht")
Set targetSheet = ThisWorkbook.Sheets("Kontrollübersicht")

' 获取源区域（第1行有数据的部分，避免复制整行空白列）
Set sourceRange = sourceSheet.Range("1:1").Resize(1, sourceSheet.Cells(1, sourceSheet.Columns.Count).End(xlToLeft).Column)
' 定义目标区域，从B19开始，和源区域大小一致
Set targetRange = targetSheet.Range("B19").Resize(sourceRange.Rows.Count, sourceRange.Columns.Count)

' 直接赋值
targetRange.Value = sourceRange.Value

这种方法的优势：

• 不会占用剪贴板，避免干扰用户操作
• 可以只复制有数据的表头列，而非整行
• 减少运行时错误的概率

额外注意事项 #

• 确保sourceworkbook对象已正确打开并引用，避免出现“对象变量或With块变量未设置”错误
• 确认两个工作簿中都存在名为Kontrollübersicht的工作表，否则会触发“工作表不存在”的错误

内容的提问来源于stack exchange，提问作者BlankerHans