Question

我写一个宏来做一个复杂的复制/ 粘贴练习。它在概念上相当直截了当, 但我被困在一个地方。所有的数据区块都与不同的命名范围相匹配。我需要通过这个名称列表进行循环, 将每个名称作为参数传递到函数( 实际上是一个子例程, 但想法相同 ) 。数据来源在同一个工作簿中, 而目的地则在另一个工作簿中。

以下是我拥有的(仅一整块数据):

Private Sub copyABU()
   copyPaste(ThisWorkbook.Names("myRange1").RefersToRange)
   copyPaste(ThisWorkbook.Names("myRange2").RefersToRange)
   copyPaste(ThisWorkbook.Names("myRange3").RefersToRange)
   //etc
End Sub

Private Sub copyPaste(thisRange As Range)
    Windows(someworkbook).Range(thisRange).Copy
    Range(thisRange).PasteSpecial Paste:=xlPasteValues
End Sub

不幸的是,我在这上面有一个运行时间错误。我认为有一个类型不匹配, 但我不确定我错过了什么。有人能看到为什么失败吗? (我使用Excel 2010 ) 。

谢谢!

Answer 1

你的代码会用一些小节奏来操作

首先,您需要用 < code> Call 这个词前缀您要复制 Paste 的电话。 (如果您不想,请在下面注明。 )

Private Sub copyABU()
   Call copyPaste(ThisWorkbook.Names("myRange1").RefersToRange)
   Call copyPaste(ThisWorkbook.Names("myRange2").RefersToRange)
   Call copyPaste(ThisWorkbook.Names("myRange3").RefersToRange)
     //etc
End Sub

其次,在 后面添加一个 .Address 。



Private Sub copyPaste(thisRange As Range)
    Range(thisRange.Address).Copy
    thisRange.PasteSpecial Paste:=xlPasteValues
End Sub


我不想费心创建一个  someworkbook  变量,所以我删除了该部分。

 注:  >如果您要求采用括号中附有引号的程序程序,则必须使用 Call 关键词。

Answer 2

我的回答是:

Sub init()
Windows("Book1.xlsx").Activate
Call copyPaste(2, Range(Cells(1, 1), Cells(10, 10)), "copy")
Windows("Book2.xlsx").Activate
Call copyPaste(1, Range(Cells(1, 1), Cells(10, 10)), "paste")
End Sub

Function copyPaste(wksInt As Integer, thisRange As Range, copyPasteStr As String)
    Dim workSheetRange As Range
    With Worksheets(wksInt)
        Set workSheetRange = thisRange
    End With
    workSheetRange.Select
    If copyPasteStr = "copy" Then
        Selection.Copy
    Else
        Worksheets(wksInt).Paste
    End If
End Function

只要复制和粘贴的范围是相同的维度,此功能就有效。如果维度不同, 您需要将工作 SheetRange 修改为条件, 只选择区域的第一个单元格进行粘贴。 PAX

友情链接