vba 遍历所有单元格并复制所在数据行

Question

假设“risk”单词在表1的[A1:H5000]区域单元格内，查找包含risk的单元格所在的行。并且复制整行到表2，依次往下复制。谢谢各位老师。

Answer 1

代码如下：

k = 1
for i=1 to 5000
    ok = false
    for j=1 to 8 'A-H
        if cells(i,j)="risk" then
            ok=true
            exit for
        end if
    next j
    if ok then
        rows(i).copy sheet2.rows(k)
        k=k+1
    end if
next i