有奖征答: 判断二维数组第二列中是否包含"A"(结贴)

兰色幻想

<p>有一个两列的二维数组ARR,怎么能判断出该数组的第二列是否包含字母A</p><p>征最简方法.</p><p>&nbsp;</p><p>已结贴, 两种思路详见 第2楼 和 第11楼.</p>

[此贴子已经被作者于2008-2-12 16:56:26编辑过]

oobird

<p>笨鸟先飞：</p><p>arr = [a1:b10]<br/>arr2 = Application.Index(arr, , 2)<br/>If UBound(Filter(Application.Transpose(arr2), "A")) &gt;= 0 Then MsgBox "包函A"<br/></p>

lllllllll

<p>学习了!!!!!!!!!!!</p><p>想到了Application.Index(arr, , 2) 就是弄不出来</p>

兰色幻想

<p><strong><font face="Verdana" color="#61b713">oobird</font></strong>第一种方法已给出,还有一种方法.</p>

蓝桥玄霜

Sub test()<br/>Dim arr, Arr1, x%<br/>arr = Range("a1:b13")<br/>Arr1 = Application.Transpose(Application.Index(arr, , 2))<br/>For x = 1 To UBound(Arr1)<br/>&nbsp;&nbsp;&nbsp; If Arr1(x) Like "*a*" Or Arr1(x) Like "*A*" Then MsgBox "包含A": Exit Sub<br/>Next x<br/>End Sub<br/>循环算吗？

lllllllll

<p>估计不是想要循环的答案</p><p>find应该可以吧 写不出来正确的[em03]</p>

[此贴子已经被作者于2008-2-12 15:07:13编辑过]

兰色幻想

<p>能解决就可以, 但越简便越好</p>[em01]

laosanjie

跟着学习！[em23][em23][em23]

liyh67

学习了

oobird

<p>find方法不适用于数组，通常在数组中调用match函数也是相当简便的方法：</p><p>arr = [a1:b10]<br/>arr2 = Application.Index(arr, , 2)<br/>If Application.Match("A", arr2, 0) &gt;= 0 Then MsgBox "包含A"<br/></p>