如何在VBA中编写有变量的数组公式。 10
在BE2单元格输入数组公式:=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$337,$B$1:$B$337,0)=ROW($1:$337),ROW($...
在BE2单元格输入数组公式:=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$337,$B$1:$B$337,0)=ROW($1:$337),ROW($1:$337),65536),ROW(2:2))),并填充至BE337。
如果用VBA输入数组公式并赋值,且行数是变量,并删除该列为0的内容。请问:如何编写代码?
请教:在BE2:BE&i单元格区域里输入数组公式并赋值:=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$&i,$B$1:$B$&i,0)=ROW($1:$&i),ROW($1:$&i),65536),ROW(2:2)));赋值后,删除该列为0的内容。目的是将B列中的姓名提取出来,重复的只取一个。请问:如何编写代码? 展开
如果用VBA输入数组公式并赋值,且行数是变量,并删除该列为0的内容。请问:如何编写代码?
请教:在BE2:BE&i单元格区域里输入数组公式并赋值:=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$&i,$B$1:$B$&i,0)=ROW($1:$&i),ROW($1:$&i),65536),ROW(2:2)));赋值后,删除该列为0的内容。目的是将B列中的姓名提取出来,重复的只取一个。请问:如何编写代码? 展开
2个回答
展开全部
前一句写入数组公式,后一句公式向下填充,最后用循环清除0值的单元格数据
代码如下
Sub tt()
Range("BE2").FormulaArray = "=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$337,$B$1:$B$337,0)=ROW($1:$337),ROW($1:$337),65536),ROW(2:2)))"
AutoFill Destination:=Range("BE2:BE337")
For x = 2 To 337
If Range("BE" & x) = 0 Then Range("BE" & x).ClearContents
Next x
End Sub
更多追问追答
追问
谢谢你的回答!在已确定是337行时,可以用你的代码。如果行数是不确定的变量(就是不知道最后一行数是多少),如何编写代码呢?
追答
你最后一行以什么列来定位?你提问就是337行呀
最后一行可以用sheet1.usedrange.rows
来定位
2014-02-23
展开全部
好牛逼的样子
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询