vba数组如何精确筛选_v34.VBA数组知识点76问(七)

49ffc75ac4ff524c84442d210fc62d6d.png

58. 如何对以下数组进行简写?

Arr(1)=10

Arr(2)=20

Arr(3)=30

Arr(4)=40

答:可以简写为一个常量一维数组,即arr=array(10,20,30,40)

59. arr = [{"a",10;"b",20;"c",30}]是什么数组?

答:这是一个二维常量数组。

60. 要求在数组arr = [{"a",10;"b",20;"c",30}]中精准查找是否存在“b”这个字符,代码应该如何书写?结果如何?

93dd9cce66aa96fe76a19d93e2d71915.png

答:其实就是从一个单元格区域查找数据:

e76a9751700964014e3fde6a5cff191b.png

61. VBA内长代码如何换行?

答:1)如果是文本字符串可以加以加一个空格一个&和一个空格加一个下划线:

x = "ABCDEFG" & _

"HIJKLMNO"

2)如果不是文本字符串,则空格+下划线+回车,如:

MsgBox "查找结果是"& Application.VLookup _

("b", arr, 2, 0), , "调用工作表函数vlookup"

62. 如何去掉字符串Two,beautiful,girls,and,a,handsome,boy中的逗号并将它们放入一个数组中?

e907b7789710a6d69a4f4d30f1be3015.png

答:另外一种代码写法是:

b0d61fa25db2f27dd593a2f2e1fb51c2.png

值得注意的是:split和join只能对一维数组进行操作,如果是单元格或二维数组怎么办?只有一条途径,想办法转换为一维数组。

63.如下图所示,如何将A1:D1单元格用”-”连接起来并存放到E1中单元格?

52739465ecc0a6e7d3d97c2e65a2db8e.png

答:代码及运行结果如下:

53fb7198947c747cdf4f1c52e7bcb323.png

64. 如何将同列单元格内容用”-”连接起来?

答:代码及演示效果如下

2614eebbf0b79d0b2deaecf8ed743d33.png

65.如何将数组(“ABC”,”A”,”CD”,”ABOUT”,”AND”,”END”)中含A的数值组成一个新数组?

答:筛选需要用到fliter函数,代码及演示效果如下:

29c413f89741604c3bcc61f750b835ad.png
建立运行环境-Excel Vba,可移植到VB环境中(需修改一些代码) '仿制简单的SQL查询语句,用于对二维数组的查询 '参照SQL语句:Select * From array [Where conditions] [Distinct fields] [ResultWithTitle] ' '实现功能: ' 依条件设置查询数组,返回包含查询字段(或全部字段)的数组,可多条件组合。 ' 条件运算符包括:> = < >= <= <> , like(正则表达式) ' '附注: ' 使用此函数,需要在文件中引用正则表达式脚本 Microsoft VBScript Regular Expressions x.x ' (根据不同的电脑配置和环境此处会有差异) '算法简要: ' 1、查询条件运算符:仅有 >, =, <, >=, <=, <> , like(正则表达式) ' 本函数中仅有上述运算符。原因在于,更多的运算符编制逻辑过于复杂,又不太常用。 ' 为了尽可能多地容纳各种运算关系,添加了正则表达式匹配运算, ' 在某个单一条件中,正则几乎可以容纳绝大部分的比对运算关系了。 ' 2、数字比较: ' 采用了将数字型字符串类型转换为数字之后再比较的方法,结果更为准确。 ' 3、其他算法和运算速度: ' 编制过程中,试验过使用 正则+逻辑分支+表达式引用 的方法, ' 可以实现几乎等同于SQL查询语句的复杂功能,而且代码更简捷。 ' 但运算速度相差过于悬殊(大概几十到上百倍 - "一闪而过"和"一袋烟"的差距!),最后不得不放弃。 ' 所以现在的版本相当于一个简化了的select语句,但对于大多数查询情况而言够用了。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符  | 博主筛选后可见
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值