vba如何将一个单元格区域定义为数组,并判断另一个数组对它赋值?

这个是表2的数据我把它定义为ARR()ABC1张三男202李四男303王五女404赵六女155王八男116李九女33我希望把表1的A1:A10定义成一个空数组,ARR1(... 这个是表2的数据 我把它定义为 ARR()
 A  B C
1张三 男 20
2李四 男 30
3王五 女 40
4赵六 女 15
5王八 男 11
6李九 女 33

我希望把表1的A1:A10定义成一个空数组,ARR1()

请问代码如何才能实现
判断ARR()里边 B列不是男的,把名字写到A1:A10这个区域
展开
 我来答
阳光上的桥
2021-03-24 · 知道合伙人软件行家
阳光上的桥
知道合伙人软件行家
采纳数:21423 获赞数:65813
网盘是个好东东,可以对话和传文件

向TA提问 私信TA
展开全部

下面是简单的代码示例,解释参见注释:


Option Explicit


Sub 宏1()

    Dim arr1(1 To 10, 1 To 1) '这就定义形状和A1:A10相同的空数组

    Dim arr2() '这里不指定大小,下面从区域复制内容的时候能自动调整

    arr2 = Range("a1:c6") '从区域家里数组

    Dim i&, j&

    '下面的循环把数组 arr2 里面的男性姓名复制到 arr1 中

    j = 0 'arr1中已经复制的数据

    For i = 2 To UBound(arr2) '循环arr2的每一行

        If arr2(i, 2) = "男" Then

            j = j + 1

            arr1(j, 1) = arr2(i, 1) '复制姓名

        End If

    Next i

    '把数组arr1写到工作表区域中

    Range("e1").Resize(j, 1) = arr1

End Sub

更多追问追答
追问

我把它改了一下。但是运行到第二行的时候就出现错误 13 类型不匹配。请问问题出在哪里呢?

追答
我从图上看第2行是空行,麻烦你标记一下出错的行呢
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式