excel 用vba 宏 中 用一个for循环 将 一列满足条件的后面加上 需要的数值 比如

excel 用vba 宏 中 用一个for循环 将 一列满足条件的后面加上 需要的数值 比如

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"
Next
End Sub
如果要判断B列是否为"空",可用函数 IsEmpty (Cells(i, 2)) ,当Cells(i,2)没有任何值时为"真"

直接写个公式就可以了。假如你那个1在的列是B，在C里写公式if(b1=1,"a","空")，然后填充就可以了。
如果一定要用vba,那就读出来单元格的内容，然后根据内容填充就可以了。追问我用的表内容比较复杂 都是 字符串形式的 而且前面的 也是 用 字符串对比 再填充的 想在此 基础上 判定 B列 不为空 切 A列 等于 张的 后面 添写东西 大概就是 IF INstr(a1,"张")>0 and (我就是想问这里写成判定B列不为空 就行了 ) 不晓得 我说明白没有 谢谢追答这样写：
=IF(AND(A1="张", B1 <>""),"1","空")

Dim i as integer
i = 1
for i = 1 to 1000
if activesheet.cells(i,1).value = "" then
exit for
end if
if activesheet.cells(i,1).value = "张" then
activesheet.cells(i,3).value = "a"
end if
next