vba - 命令按钮VBA中的数组

Question

我正在做一个代码，当我单击按钮 1 时，它将range B8:C17从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 不能。我在这里做错了什么？

标签： vba

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