【说明】

Do While……Loop循环,遍历某列

    i = 2
    Do While Trim(T_sh.Cells(i, NOTESID_COL)) <> ""         
        If T_sh.Cells(i, KEY_COL) = "KEY" Then 



        End If
        i = i + 1
    Loop

 

相关文章: