简单的VBA查询代码文档

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《简单的VBA查询代码文档》，欢迎阅读！

高分求简单VBA查询代码





我表格sheet1中是这种数据，我想查询A列中包含homozygote单词的所有行，并且在sheet2中返回包含这个单词的这一整行数据。 最后结果sheet2中是以下数据：



提问者采纳

可以在sheet1底部标签名上点鼠标右键，选查看代码，弹出VBA窗口，把下面代码复制进去执行即可。 Sub 查询() t = "homozygote" t1 = Len(t) s = 1

x = Range("a65536").End(xlUp).Row For i = 1 To x

If Left(Cells(i, 1), t1) = t Then

Sheets("sheet2").Range("a" & s & ":z" & s).Value = Range("a" & i & ":z" & i).Value s = s + 1 End If Next

Sheets("sheet2").Select End Sub

本文来源：https://www.wddqxz.cn/360dab7ab0717fd5370cdcca.html