VBA更改多个单元格的值

我有一行单元格，取决于我select了哪个选项button，将显示一定范围的值。 它不是基于任何方程或任何逻辑。 我需要在多个单元格中显示一组特定的值。

Private Sub OptionButton1_Click() If OptionButton1.Value = True Then Range("B3","AF3").Value = End Sub 

在这种情况下，我将如何在单元格中指示多个值？ 我会把我所有的值放入某种数组中，然后将数组提供给.Value ？ 谢谢！

Answer 1

我最终使用的方法如下。

 Worksheets("Sheet1").Range("B3","AF3").Value = Worksheets("Sheet2").Range("B3","AF3").Value 

Answer 2

有可能是一个更优雅的方式，但这是一个方法去做：

 Sub test() Dim strArray(0 To 2) As String Dim rng As Range Dim cell As Range Dim counter As Long Set rng = Range("A3,B7,G5") counter = 0 strArray(0) = "Value1" strArray(1) = "Value2" strArray(2) = "Value3" For Each cell In rng cell.Value = strArray(counter) counter = counter + 1 Next cell End Sub