[已解决]这段代码用数组来实现

zlj

这段代码用数组来实现

最佳答案

月排行榜 / 总排行榜

wayy

2009-11-20 16:35

代码数组：

Sub wayy()
Dim mrow As Long
Dim zrow As Long
Dim arow As Long
Dim arr1, arr2
arr1 = Range("A2", [B65536].End(xlUp))
ReDim arr2(1 To UBound(arr1), 1 To 2)
For mrow = 1 To UBound(arr2)
 If arr1(mrow, 1) = "A" Then
  arow = arow + 1
  arr2(arow, 1) = arr1(mrow, 1)
  arr2(arow, 2) = arr1(mrow, 2)
 End If
Next
[D2:E65536].ClearContents
[D2].Resize(arow, 2) = arr2
End Sub

[此贴子已经被作者于2009-11-20 16:36:38编辑过]

跳转到最佳答案楼层

lotte

6lRUsDE3.rar (1.72 KB, 下载次数: 1)

2009-11-20 16:05 上传

点击文件名下载附件
这段代码用数组来实现

zlj

谢楼上，可下载后打开文件代码要密码。

不知密码是多少。

lotte

我试过 不需要密码啊

zlj

代码写出来不就可以了。

wayy

D2=INDEX(A:A,SMALL(IF($A$1:$A$100="A",ROW($A$1:$A$100),4^8),ROW(A1)))&""

数组公式，ctrl+shift+enter三键结束。

wayy

哦，不知道楼主是想用公式数组呀还是代码中的数组。

wayy

代码数组：

Sub wayy()
Dim mrow As Long
Dim zrow As Long
Dim arow As Long
Dim arr1, arr2
arr1 = Range("A2", [B65536].End(xlUp))
ReDim arr2(1 To UBound(arr1), 1 To 2)
For mrow = 1 To UBound(arr2)
 If arr1(mrow, 1) = "A" Then
  arow = arow + 1
  arr2(arow, 1) = arr1(mrow, 1)
  arr2(arow, 2) = arr1(mrow, 2)
 End If
Next
[D2:E65536].ClearContents
[D2].Resize(arow, 2) = arr2
End Sub

[此贴子已经被作者于2009-11-20 16:36:38编辑过]

zlj

要代码数组

zlj

擦掉

[此贴子已经被作者于2009-11-20 17:14:09编辑过]