将多个范围从userform复制到另一个工作簿中的工作表

Question

我很难解决我在使用excel工作簿时遇到的问题，我试图创建一个解析来自另一个工作簿的userform中定义的多个范围的问题。我的问题是，当我尝试在表单中粘贴范围时，代码只会粘贴字符串而不是代码本身。

注意：这是Jan Karel Pieterse的范围用户形式解决方法的模拟尝试

以下代码：

Private Sub cmbOK_Click() 'VALIDATION OF RANGE
Dim wbk As Workbook
Dim wst As Worksheet
Dim vbk As Variant


vbk = "[" & Me.cbxWorkbooks.Value & "]" & Me.refSelectCells.Value

If refSelectCells.Text <> "" Then
    If TypeName(Selection) = "Range" Then
        If IsValidRef(refSelectCells.Text) Then
            OK = True
            Windows("abc_123_Review_Automation.xlsm").Activate
            Worksheets("CalculationSheet").Range("A2") = vbk.Value

        End If
    End If
End If
Me.Hide
End Sub

实施例：   如果vbk的值是“[Workbook] sheet1！a4：j365”   我想将该范围地址的内容粘贴到“A2”

的新工作簿中

请帮助！

Answer 1

Range("A2")返回一个范围对象。

如果要修改单元格的公式，则应修改Range("A2").FormulaR1C1。 如果要修改该值，则应修改Range("A2").Value。