ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 553|回复: 13

VBA 如何通过if()函数功能赋值给数组?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-6-11 18:23 | 显示全部楼层 |阅读模式
各位老师如下excel 函数功能 如何在VBA实现 并赋值给数组?
=if(A1=A1:A100,H1:H100,I1:I100)

类似于这样的效果:
Sub abc()
Dim arr1
arr1 = Application.If(Sheet1.Range("A1") = Sheet1.Range("A1:A100"), Sheet1.Range("H1:H100"), Sheet1.Range("I1:I100"))
End Sub

TA的精华主题

TA的得分主题

发表于 2019-6-11 19:32 来自手机 | 显示全部楼层
本帖最后由 lss001 于 2019-6-12 11:10 编辑

见以下楼!!!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-12 08:52 | 显示全部楼层
lss001 发表于 2019-6-11 19:32
Sub abc()
    Dim arr1
    Sheet1.Activate'先激活Sheet1,以简化赋值!

老师,运行后错误提示:类型不匹配,这个怎么处理啊

TA的精华主题

TA的得分主题

发表于 2019-6-12 09:25 来自手机 | 显示全部楼层
少了左括号,楼上已经更正!

评分

参与人数 1鲜花 +2 收起 理由
INaga2018 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-12 10:25 | 显示全部楼层
本帖最后由 INaga2018 于 2019-6-12 10:28 编辑
lss001 发表于 2019-6-12 09:25
少了左括号,楼上已经更正!

Sub abc()
    Dim arr1
    Sheet1.Activate '先激活Sheet1,以简化赋值!
    arr1 = IIf([SUMPRODUCT((A1:A100=B1)*1)], [H1:H100], [I1:I100])
    Sheet1.Range("M1") = Join(arr1, " ")
   
End Sub

加了最后一句代码,提示无效的过程的过程调用或参数,这个怎么处理呀并且sumproduct()函数只有一个结果,并没有办法类似与A1:A100=B1得到 100个布尔值来对应 h1:h100 和I1:I100呀

TA的精华主题

TA的得分主题

发表于 2019-6-12 10:40 来自手机 | 显示全部楼层
本帖最后由 lss001 于 2019-6-12 15:50 编辑

见以下楼分析!

评分

参与人数 1鲜花 +2 收起 理由
INaga2018 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-12 15:29 | 显示全部楼层
本帖最后由 INaga2018 于 2019-6-12 15:30 编辑
lss001 发表于 2019-6-12 10:40
Sub abc()
    Dim arr1, arr2, arr3, arr4
    Sheet1.Activate

这个看懂了,下面这样的怎么弄呢
Sheet1.Activate
  f = Sheet3.[A65535].End(xlUp).Row
  arr5 = Sheet3.Range("A1:A" & f)
  arr6 = Sheet3.Range("H1:H" & f)
  arr7 = Sheet3.Range("I1:I" & f)
  arr8 = Sheet3.Range("S1:S" & f)
  arr9 = Sheet3.Range("X1:X" & f)提示不能给数组赋值
或者如何将[A1:A100]做成动态的呢

TA的精华主题

TA的得分主题

发表于 2019-6-12 15:49 来自手机 | 显示全部楼层
本帖最后由 lss001 于 2019-6-12 18:35 编辑

Sub abc()
    Dim arr1, arr2, arr3, arr4
    Sheet1.Activate'已经激活不必再用"Sheet1."
    x  = Cells(Rows.Count, 1).End(3).Row
    arr4 = Range("A1:A" & x)
    arr2 = Range("H1:H" & x)
    arr3 = Range("I1:I" & x)
    ReDim arr1(1 To UBound(arr4))
    For i = 1 To UBound(arr4)
        If arr4(i, 1) = [b1] Then arr1(i) = arr2(i, 1) Else arr1(i) = arr3(i, 1)
    Next
    [M1] = Join(arr1, " ")
End Sub

评分

参与人数 1鲜花 +2 收起 理由
INaga2018 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-12 16:42 | 显示全部楼层
lss001 发表于 2019-6-12 15:49
Sub abc()
    Dim arr1, arr2, arr3, arr4
    Sheet1.Activate'已经激活不必再用"Sheet1."

老师,如何将arr1中包含特定多个字符的元素清除呢?
比如 arr1中 有A,AA,a,aa,Aa这些元素,如何将包含A(A,AA,Aa)的元素去除呢

TA的精华主题

TA的得分主题

发表于 2019-6-12 17:16 来自手机 | 显示全部楼层
本帖最后由 lss001 于 2019-6-12 17:17 编辑

见楼上,以后不必如此,有问题一并提为妥?

评分

参与人数 1鲜花 +2 收起 理由
INaga2018 + 2 感谢帮助

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-3-30 22:38 , Processed in 0.074771 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表