高分求简单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.wddqw.com/doc/360dab7ab0717fd5370cdcca.html