vba - 无法使用 VBA 粘贴到合并的单元格中

Question

我正在编写一个将数据复制到模板表单的宏，以不同的名称保存表单，然后使用相同的空白表单进行复制。一些数据被复制到合并的单元格中。奇怪的是，我目前使用的代码适用于第一次、第二次和第三次迭代，但不适用于第四次。

我已经尝试了我能想到的一切，但它仍然无法正常工作。它给了我错误消息“我们不能对合并的单元格这样做”。

这是不会粘贴到单元格中的代码。

'     
' Transfers Component 1 Data
'
    Range("B27").Select
    Selection.Copy
    Windows("Protected_Form.xls").Activate
    Range("B61:D61").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

这是在程序中早些时候粘贴到合并单元格中的代码:

'
' Transfers Component 1 Data
'
    Range("AV194").Select
    Selection.Copy
    Windows("Protected_Form.xls").Activate
    Range("B61:D61").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

如您所见，唯一改变的是从哪个单元格复制数据。

编辑:
刚刚意识到我在某些条件下在程序的早期使用了相同的代码(不工作的部分)。我只是尝试在这些条件下运行它并且它有效。

现在我非常困惑。随时要求我澄清一些事情，我知道这很令人困惑。

另外:我知道 .Select .很慢，我不在乎。

Answer 1

您是否尝试过完全限定您的范围引用？也许在程序的早期 Range("B27").Select 是在一张纸上选择，而 Range("B27").Select 稍后会从另一张纸上选择。

另外，不要对它竖起大拇指，但是... .Select 不仅速度慢，而且往往会导致意想不到的结果，我怀疑这是您现在遇到的问题。我知道您在评论中说您没有时间(奢侈)来摆脱它，但是如果您不得不调试、更改、修改、更新，现在花在清理代码上的时间将为您节省大量时间等。我不会把它看作是一件苦差事，而是编写好的 VBA 代码的必要条件!