Question

Excel VBA怎么实现整行/列的遍历

Excel VBA怎么实现整行/列的遍历，以及自动选定该行从某个记录起到末尾的所有记录？要求能够用于相似但行数、列数不尽相同的表格

Answer 1

1、进入EXCEL,ALT+F11进入VBA编辑器。

2、在编辑区输入VBA语言Sub Macro1()，VBA 语言选择整行整列的语句End Sub。

3、在工作表中插入表单控件，并指定到宏Macro1。

4、点击表单控件，语言中的整行整列就被选中了。实现整行/列的遍历。

注意事项：

Excel虽然提供了大量的用户界面特性，但它仍然保留了第一款电子制表软件VisiCalc的特性：行、列组成单元格，数据、与数据相关的公式或者对其他单元格的绝对引用保存在单元格中。

Answer 2

编程如下：

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

Excel VBA使用方法：

1 打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面。

2  选择如下图所示的下拉菜单，选择“worksheet”。

3  选择如下图所示的下拉菜单，选择对应的触发模式。这里我们选择BeforeDoubleClick，意思就是说：在本工作表鼠标双击（之前），将触发下面的代码程序。（activate意思是说：在sheet表被选取的时候，就触发；Change意思是说：在这个模式下，只要sheet（工作表）发生变化，就将触发；Before Right Click是指在鼠标右击之前触发；SelectionChange是指在鼠标焦点发生变化时，触发。）

4 选择完成后，我们会看到下面出现了两条代码；这俩条代码其实是在声明一个函数。

5 将鼠标放置在这两行代码之间，我们写上执行语句：

Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)

其中：sheet1.cells（1,3）就是指第一行第三列的这个单元格；Sheet1.Cells(1, 1)就是指第一行第一列的这个单元格；Sheet1.Cells(1, 2)就是指第一行第二列的单元格。执行语句的意思是：将cells（1,1）和cells（1,2）的值相加，并赋值给cells（1,3）

注意的是：写语句的时候，输入法一定要是输入字母的模式。要不然你的语句会报错。

6 然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值。（楼主输入的是：125895和78954）

注意看：现在的cells（1,3）数值是空的。

7 在sheet1的工作表中，双击你的鼠标。你会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。（204849=125895+78954）

Answer 3

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

Answer 4

是不是要找行末或列末？
r=cells(65526,1).end(xlup).row '为A列最后一行
c=Cells(1, 256).End(xlToLeft).Column '为第一行最后一列

Answer 5

说把问题再说清楚些.

最好再举个例子说明你想要达到什么目的.

就你说的问题,感觉不难.

当然我更想切中要害.不想多说无益的.