重命名多个单元格

如何一次重命名12个单元格？我使用下面的代码，但我不认为它是一个正确的方式，因为它太长了。如果您使用的是Excel VBA（宏）重命名多个单元格

Dim myArray As Array ' = ... 

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

你可以宣布你的阵列是这样的：：

  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"

来源

2014-07-02 nj92

您可以直接设置数组

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

来源

2014-07-02 08:43:53 SysDragon

我想应该是' Dim myArray As Variant'？无论如何，删除我的答案:) – L42

@ L42它的测试和工作方式。这种方式的好处是，它应该在VBA和VB.NET上工作，因为OP似乎在讨论VBA，但问题被标记为VB.NET – SysDragon

A是的，我的不好。它被标记为[tag：vb.net]。 :)它不会在VBA中编译，标注为数组类型。尽管我在想'Dim myArray = Array（“Jan”，“Feb”...）。 – L42

重命名多个单元格

回答

相关问题