Question

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

1 2 3 4 等等 如何 在此基础上 判断 刚加上数值的一列 不为空 切等于1 的 后面 在加上 字母 a
最后变成
张 1 a
李 2 空
王 3 空
赵 4 空
张 1 a
张 空 空
空 就是 没有任何值 为 空白
就是 最后满足 条件为 第一个汉字为张 并且 第二个数字是 1的 才能在后面 加上 a

Answer 1

1、打开一个表，选中序列，点击工具-宏，开始录制。

2、录制完成后按alt+f11 切换到代码编辑窗口，设置变量i为长整形，并且设置一个for循环，循环次数比要添加的工资条标签大，在end sub之前加next。

3、按alt+f11切换到excel界面，再录制一个删除标题的宏，修改代码，添加for循环按alt+f8调出宏窗口。

4、从视图中调出窗体按钮，拖动出一个按钮并为其制定生成工资表的宏 。

5、右键点击编辑文字按钮改名，再按相同的方法添加一个删除标题栏的宏，这样就可以逆向操作了。

Answer 2

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)没有任何值时为"真"

Answer 3

直接写个公式就可以了。假如你那个1在的列是B，在C里写公式if(b1=1,"a","空")，然后填充就可以了。
如果一定要用vba,那就读出来单元格的内容，然后根据内容填充就可以了。

追问

我用的表内容比较复杂 都是 字符串形式的 而且前面的 也是 用 字符串对比 再填充的 想在此 基础上 判定 B列 不为空 切 A列 等于 张的 后面 添写东西 大概就是 IF INstr(a1,"张")>0 and (我就是想问这里写成判定B列不为空 就行了 ) 不晓得 我说明白没有 谢谢

追答

这样写：
=IF(AND(A1="张", B1 ""),"1","空")

Answer 4

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

Answer 5

不用VBA，公式即可解决，具体公式如下
“=if(and(mid(a1,1,1)="张",b1=1),"a","")”

追问

我用的就是一共三张表 前面有 字符串对比 才能添加 1234 所以 用VBA 感觉条理清晰一点 再这个基础上 再判定 A列 为张 B列 不为空 的情况下 在后面 添加a
主要求 什么公式为 判定 B列 不为空 谢谢 可能 我没表达清楚

追答

哦，那也可以，代码的话我实在不敢发了，之前发过几次，全让百度和掉了....
你A列里是只用“张”这个单字符？还是“张****”
如果方便你可以把样表发到我邮箱里，我帮你写个。
我邮箱febls@126.com

追问

那明天 我整理一下 给你发过去 谢谢你啊

追答

嗯哈哈，其实你可以不用发了，有人已经回答出来了，VBA的话就按照“姓王的wy”写的代码就可以实现你的功能了。话说为什么我每次发代码都别和呀....莫非是人品问题....

追问

百度 嫉妒你吧 我去试试哈 还是 谢谢你