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)没有任何值时为"真"
299
298
297
296
295
294
294
291
290
289
2023-12-15 09:29
admin