【说明】
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