Sub aaa() For i = 1 To Range("a65536").End(xlUp).Row If Cells(i, 1) = "张" And Cells(i, 2) = 1 Then Cells(i, 3) = "a" NextEnd Sub如果要判断B列是否为"空",可用函数 IsEmpty (Cells(i, 2)) ,当Cells(i,2)没有任何值时为"真" 顶一下 (0) 0% 踩一下 (0) 0% 相关评论 我要评论 马上提交