命令按钮中的阵列VBA

Question

我正在编写一段代码，当我单击按钮1时，它将从range B8:C17加载数组，而当我单击按钮2时，它将在range E8:F17中打印数组。

Private Sub CommandButton1_Click()
arr = Range("B8:C17")
Range("B8:C17") = Clear
End Sub

Private Sub CommandButton2_Click()
Range("E8:F17") = arr

End Sub
  
Private Sub UserForm_Click()
Dim arr As Variant

End Sub

按钮%1工作正常，但按钮%2不工作。我在这里做错了什么？

Answer 1

在您的代码= Clear将产生一个错误，它应该被用作如下方法：

Option Explicit

Public arr

Private Sub CommandButton1_Click()
  arr = Range("B8:C17")
  Range("B8:C17").Clear
End Sub

Private Sub CommandButton2_Click()
  Range("E8:F17") = arr
End Sub


'Private Sub UserForm_Click()
'
'End Sub

​

​