[数组技巧接龙......]大家能否将遇到过的数组技巧简单写一下?

1、为ComboBox等控件赋值： 示例： ComboBox1.List = Array("a", "b", "c", "d", "e") ListBox1.List = Array("a", "b", "c", "d", "e")

2、为工作表区域赋值： 示例： '用数组为区域赋值 Dim Alist As Variant Alist = Array("a", "b", "c", "d", "e") [A1].Resize(, 3).Value = Alist [A2].Resize(3, 1).Value = _ Application.Transpose(Alist)

3、用数组获取区域值： 示例： Dim a() a = Range("A1:B4").Value Range("C1:D4").Value = a

4、成组选择工作表： 示例： Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

5、用数组定义图表系列：

示例： Dim aNewSeries As Series Dim SalesArray As Variant Dim MonthArray As Variant MonthArray = Array("Jan", "Feb", "Mar") Set aNewSeries = .SeriesCollection.NewSeries aNewSeries.Values = SalesArray aNewSeries.XValues = MonthArray

顶上一个，数组不是很熟悉

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 今天刚好接触到这个数组，感觉不好。如果有100个工作表，写完岂不累死？还是做个循环好。

1、为ComboBox等控件赋值：这个也是常用的，感觉也不太好。手写太累了。能再简化一些吗？

谢谢，我刚学的，请指教。

要使程序运算的设计水平上一个台阶，数组是必须掌握的一项技巧。

Alist = Array("a", "b", "c", "d", "e") [A1].Resize(, 3).Value = Alist

写一个也许大家不太熟的：

大家都知道了代码arr=[a1:c3]可以将一个3*3区域的值赋给数组arr。下面的这个用法不知大家是否了解：

arr=[a1:c1].Formula 或 arr=[a1:c1].Formular1c1可以将这个3*3区域的公式赋给数组arr，前者是公式的绝对引用，后者是公式的相对引用。

用处很大哦：）