作者:乔山办公网日期:
返回目录: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)没有任何权值时为"真"
1、进入EXCEL,ALT+F11进入VBA编辑器。
2、在编辑区复输入VBA语言Sub Macro1(),VBA 语言选择整行整列的语句End Sub。
3、在工作表中插入表单控件,并指定制到宏Macro1。
4、点击表单控件,语言中的整行整列就被百选中了。实现整行/列的遍历。
注意事项:
Excel虽然提供了大量的用户界面特性,但它仍然度保留了第一款电子制表软件VisiCalc的特性:行问、列组成单元格,数据、与数据相关答的公式或者对其他单元格的绝对引用保存在单元格中。
好像 语句中有一句的作用是,可见区域, 录制一下宏再看就明白了。
编程如下:
Sub aa()
Dim i, j
j = UsedRange.Rows.Count
For i = 1 To UsedRange.Rows.Count
If Cells(i, 1) = "某个记录" Then
Range(Cells(i, 1), Cells(j, 1)).EntireRow.Select
Exit Sub
End If
Next
End Sub