作者：乔山办公网日期：
返回目录：excel表格制作
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)没有任何值属时为"真"
这个用countifs应该很好实现，不卡吧
=IF(C1=0,0,COUNTIFS(C:C,">"&C1-2,A:A,"<"&C1+2))
你试试
不行，再给你写代码
sub bianLi ()
for lie= 1 to 100000
for hang=1 to 100000
A=cells(hang,lie)
if A="" and hang=1 then end'遍历到最后一列，停止程序。如果某列第一行为空，退出遍历。
if A="" and hang>1 then exit for'如果到了列的行尾，值为空，则zd退出内循环，遍历下一列
if A>0 and A<1 then'如果单元格内值，且符专合条件或者你个条件改为你想要的条件，就执行下面的操作
'在这里应用你要实现的任务
end if
next
next
End sub
========================================
您的属问题==我的课题 奉献知识==辉煌生命
黑龙江省 张志晨
========================================
1、打开一个表，选中序列，点击工具-宏，开始录制。
2、录制完成后按alt+f11 切换到代码编辑窗口，设置变量i为长整形，并且zhidao设置一个for循环，循环次数比要添加的工资条标签大，在end sub之前加next。
3、按alt+f11切换到excel界面，再录制一个删除标题回的宏，修改代码，添加for循环按alt+f8调出宏窗口。
4、从答视图中调出窗体按钮，拖动出一个按钮并为其制定生成工资表的宏 。
5、右键点击编辑文字按钮改名，再按相同的方法添加一个删除标题栏的宏，这样就可以逆向操作了。