墙上那一串串红辣椒——数组入门讲座

gzdfcsg

我也加入学习

五彩缤纷

山菊花老师，在学习了你的数组入门后，我有点困惑，请你看看：

Private Sub CommandButton1_Click()
    Dim xm() As String, Temp() As String '声明变量
    xm = Split(Range("a1"), ",")
    Temp = Filter(xm,"林") '搜索数组
    msgbox join(temp,",")
End Sub

1、上面是一段在数组xm中模糊查找等于“林”的全部名单，但这仅限于一维数组，如果是多维数组怎么办？
2、如果第一点的问题可以解决，那怎么样将所找到元素所在的列标或行标提取出来!
(目的：提取行或列标后，将同一行或列的数据添加到其他控件或工作表区域中)
请山老师在百忙中回复，谢谢!

[ 本帖最后由 五彩缤纷 于 2010-1-29 10:10 编辑 ]

chzbv1984

数组这个东东还是要好好学习学习！

五彩缤纷

山菊花老师，在学习了你的数组入门后，我有点困惑，请你看看：

Private Sub CommandButton1_Click()
    Dim xm() As String, Temp() As String '声明变量
    xm = Split(Range("a1"), ",")
    Temp = Filter(xm,"林") '搜索数组
    msgbox join(temp,",")
End Sub

1、上面是一段在数组xm中模糊查找等于“林”的全部名单，但这仅限于一维数组，如果是多维数组怎么办？
2、如果第一点的问题可以解决，那怎么样将所找到元素所在的列标或行标提取出来!
(目的：提取行或列标后，将同一行或列的数据添加到其他控件或工作表区域中)
请山老师在百忙中回复，谢谢!

再发一次！

donghan

对于VBA还是新手，学习一下

excel_lemon

谢谢老师，先保持下来，慢慢啃

提钱退休

数组是我弱项中的弱项，我没一项是强项。先顶在看。

woaitodi

山版的讲解总是很生动，是做老师的吧。

WUYANGSUNNY

真的学习啦！感谢老师！

xwdys

到此一游！！！！