VBA用数组把C列为1所对应B列名字自动填入G列

laoau128 · 发表于 2017-4-21 19:12

看见星光 · 发表于 2017-4-21 19:38

Sub r()
Dim arr, brr, i&, k&
arr = Intersect([b:c], ActiveSheet.UsedRange)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
      If arr(i, 2) = 1 Then
         k = k + 1
         brr(k, 1) = arr(i, 1)
      End If
Next
[g:g].ClearContents
If k > 0 Then [g1].Resize(k, 1) = brr
End Sub

朱荣兴 · 发表于 2017-4-21 19:40

提示: 作者被禁止或删除内容自动屏蔽

看见星光 · 发表于 2017-4-21 19:40

VBA用数组把C列为1所对应B列名字自动填入G列.rar (14.46 KB, 下载次数: 17)

lr116529111 · 发表于 2017-4-21 19:41

如果你想学习数组，建议你自己查找资料来解决

laoau128 · 发表于 2017-4-21 19:53

看见星光发表于 2017-4-21 19:40

看不懂你的代码，请解析这句

Sub rr()
Dim arr, brr, i&, k&
arr = Intersect([b:c], ActiveSheet.UsedRange) ‘这句是什么意思
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
      If arr(i, 2) = 1 Then
         k = k + 1
         brr(k, 1) = arr(i, 1)
      End If
Next
[g:g].ClearContents
If k > 0 Then [g1].Resize(k, 1) = brr
End Sub

qingc0221 · 发表于 2017-4-21 22:08

laoau128 发表于 2017-4-21 19:53
看不懂你的代码，请解析这句

Sub rr()

B,C两列和Usedrange的交集

		自动登录	找回密码
密码			免费注册

[已解决] VBA用数组把C列为1所对应B列名字自动填入G列

评分

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-21 19:40 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报