求助 VBA 代码

allworld · 发表于 2018-8-18 21:45

求教大神一个变量字符串怎么找到符合条件数组，，Sheet1，B1是条件可以随时换，“基础数据”里面可以添加任意的数据，符合条件Sheet1，B1，显示到B列里面，求大神赐教，本人小白一个。

excelvlookup · 发表于 2018-8-18 22:32

sub aa()
a=sheets("Sheet1").range("b1")
b=sheets("基础数据").cells(rows.count,1).end(3).row
n=1
for i=2 to b
if sheets("基础数据").cells(i,2)=a then
n=n+1
sheets("Sheet1").cells(n,1)=n-1
sheets("Sheet1").cells(n,2)=sheets("基础数据").cells(i,3)
end if
next
end sub

mikezhan · 发表于 2018-8-18 22:47

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

allworld · 发表于 2018-8-18 23:04

excelvlookup 发表于 2018-8-18 22:32
sub aa()
a=sheets("Sheet1").range("b1")
b=sheets("基础数据").cells(rows.count,1).end(3).row

谢谢大大，，只是每次使用需要手动清空。

allworld · 发表于 2018-8-18 23:08

大大，可以了，但是每次使用需要手动清空，还有其他办法吗？

abc123281 · 发表于 2018-8-19 01:22

Sub test()
Dim arr, brr(1 To 10000, 1 To 2)
With Worksheets("查询")
a = .Range("b1")
End With
With Worksheets("基础数据")
arr = .UsedRange
For i = 2 To UBound(arr)
If arr(i, 2) = a Then
n = n + 1
brr(n, 1) = n
brr(n, 2) = arr(i, 2)
End If
Next
End With
With Worksheets("查询")
.UsedRange.Offset(1).ClearContents
.Range("a2").Resize(n, 2) = brr
End With
End Sub

复制代码

abc123281 · 发表于 2018-8-19 01:23

求教123.rar (18.08 KB, 下载次数: 0)

excelvlookup · 发表于 2018-8-19 12:25

mikezhan 发表于 2018-8-18 22:47
用数组！！！严禁对单元格的直接读写！养成良好的习惯

用不用数组，要视情况而定，如果数据量不大（我的标准是小于20000条），又需快速写出代码时，就不用数组了

abc123281 · 发表于 2018-8-19 14:55

感谢 czr0373 同学鲜花支持

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

[求助] 求助 VBA 代码

评分

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-8-18 22:47 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报