Vba 将数据从一个Excel复制/粘贴到另一个Excel-Dropbox/Combobox错误

我正在尝试将数据从一个Excel工作簿复制到另一个工作簿

我们更改了导入文件的模板，从而破坏了旧的导入文件。因此，仍有一些文件需要导入，但它们位于旧模板下

我的问题源于当我尝试复制数据（粘贴特殊值、值、尝试的任何内容）时，有时会出现错误：“您尝试更改的单元格或图表受保护，因此是只读的”。

然而，事实并非如此。我已经确定，当我将空白单元格粘贴到具有“是”或“否”下拉列表的新字段时，会出现该错误。但是，如果我手动转到该单元格并将其设置为空白（点击backspace+enter），则不会出现问题

我已经尝试过编码，这样它可以一次从一个工作簿复制/粘贴每一行到另一个工作簿，但我的问题仍然存在于需要下拉答案的单元格中。我认为这些单元格需要编码为“类型化”而不是粘贴。它不能作为粘贴实际范围的一部分

有人知道如何最好地解决这个问题吗？下面是我的当前代码，它是根据范围复制的。这很草率，因为我能想到的唯一办法就是不断地从一本工作簿切换到另一本工作簿。非常感谢您的帮助

另外，我对如何计算最后一行不是百分之百的了解？所以我只是手动输入

Sub MoveText()


For Row = 5 To 962


Workbooks("Data.xls").Activate
ActiveSheet.Range(Cells(Row, 1), Cells(Row, 3)).Select
Selection.Copy

Workbooks("blankTemplate.xls").Activate

ActiveSheet.Range(Cells((Row + 1), 1), Cells((Row + 1), 3)).Select
Selection.PasteSpecial Paste:=xlPasteValues

Workbooks("data.xls").Activate
ActiveSheet.Range(Cells(Row, 5), Cells(Row, 29)).Select 'this will select the contents of the active row

Workbooks("blankTemplate.xls").Activate

ActiveSheet.Range(Cells((Row + 1), 5), Cells((Row + 1), 29)).Select
Selection.PasteSpecial Paste:=xlPasteValues


Next

---

这看起来不像“visual studio”。我在visual studio中编写VBA。。。？如果标签不正确，请编辑以删除标签，抱歉！无法调整要粘贴到的字段的大小=/这是一个我们无法处理的特定模板。

Sub MoveText()

    Dim shtData As Worksheet, shtTempl As Worksheet
    Dim Row As Long

    Set shtData = Workbooks("Data.xls").Sheets("Data") 'or e.g. .Sheets(1)
    Set shtTempl = Workbooks("blankTemplate.xls").Sheets("Data")

    For Row = 5 To 962

        shtTempl.Cells(Row + 1, 1).Resize(1, 3).Value = _
                         shtData.Cells(Row, 1).Resize(1, 3).Value

        shtTempl.Cells(Row + 1, 5).Resize(1, 25).Value = _
                        shtData.Cells(Row, 5).Resize(1, 25).Value

    Next Row

End Sub