悬赏30分！谁能帮我把这几句话写成excel的宏命令

来源：百度知道 编辑：UC知道 时间：2024/06/10 02:05:39
For i=1 to 100 step 1
选择sheet1第i行
查找某词
if 找到 then （如果找不到，可能抱错，则进行下次循环）
复制该行到sheet2 (下一次循环将找到的紧接着书写上)
end if
Next i

可以追加分数20 拜托！
是在VB中的代码。。。。

'把KeyWord换成你要查找的单词
'希望能实现你的要求
On Error Resume Next
Dim k As Integer
k = 0
For i = 1 To 100
Set c = Sheet1.Range(i & ":" & i).Find("KeyWord")
If Not c Is Nothing Then
k = k + 1
Sheet1.Range(i & ":" & i).Copy Destination:=Sheet2.Range(k & ":" & k)
End If
Next