Question

如何一次重命名12个单元格？我使用下面的代码，但我似乎不太合适，因为它太长了。

            Worksheets("Sheet1").Range("C7").Value = "Jan"
            Worksheets("Sheet1").Range("D7").Value = "Feb"
            Worksheets("Sheet1").Range("E7").Value = "Mar"
            Worksheets("Sheet1").Range("F7").Value = "Apr"
            Worksheets("Sheet1").Range("G7").Value = "May"
            Worksheets("Sheet1").Range("H7").Value = "Jun"
            Worksheets("Sheet1").Range("I7").Value = "Jul"
            Worksheets("Sheet1").Range("J7").Value = "Aug"
            Worksheets("Sheet1").Range("K7").Value = "Sep"
            Worksheets("Sheet1").Range("L7").Value = "Oct"
            Worksheets("Sheet1").Range("M7").Value = "Nov"
            Worksheets("Sheet1").Range("N7").Value = "Dis"

Answer 1

您可以直接设置数组：

Dim myArray As Array ' = ...

Worksheets("Sheet1").Range("C7:N7").Value = myArray

如果您使用的是Excel VBA（Macro），则可以通过以下方式声明数组：

Dim myArray() As Variant
myArray = Array("Jun", "Feb", "Mar", "Apr", "May") 'etc

重命名多个单元格

1 个答案: