请教：定义一个公共数组，怎么定义啊？

Long_III

我在模块的开头这样

Public Const arrj As Variant = Array("1", "2", "3")

可是不行，应该怎么做呢？

mickwei

龙三哥，不好意思，请教你一下

c.EntireRow.Copy Sheet3.[a1] 这个语句如果不想复制整个行，而之前复制前n个，要怎么实现呢？

Long_III

有resize函数确认范围，如c.resize(1,5).copy，如果c是a1，则就是[a1:e1].copy，自己看看帮助

mickwei

由于前面使用了上次龙三大哥你教我的语句，c 的范围包括了符合条件的所用单元格，不只一个，但又不能确定有几行，只知道要复制的列数是14，应该怎么办呢？

If k = 0 Then Set c = Cells(i, "t"): k = 1 If k = 1 Then Set c = Application.Union(c, Cells(i, "t"))

Long_III

算出来c的所有的之后可以这样计算总行数，c.rows.count

button

1、用枚举变量

Enum dd aa = 1 bb = 2 cc = 3 End Enum

2、用一个Function来 3、Public Const arrj As String="1, 2, 3"调用时用Split函数来生成数组。

mickwei

我用c.Resize(c.Rows.count,14).Copy 说定义有错误呢？

Long_III

谢谢斑竹，我试试先

Long_III

button斑竹，对于枚举这种情况，如果我要把这个数组直接赋值给单元格，如[a1:c1]，我是不是还要定义一个数组，转换过来再赋值啊？

后两种方法不错，学习！

Long_III

以下是引用mickwei在2005-8-19 15:18:24的发言：

我用c.Resize(c.Rows.count,14).Copy 说定义有错误呢？

按你的意思应该是这样，试试吧

If k = 0 Then Set c = Cells(i, "t").resize(1,5): k = 1 If k = 1 Then Set c = Application.Union(c, Cells(i, "t").resize(i,5))