Excel VBA怎么实现整行/列的遍历,以及自动选定该行从某个记录起到末尾的所有记录?要求能够用于相似但行数、列数不尽相同的表格
编程如下:
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)
本回答被网友采纳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本回答被网友采纳
r=cells(65526,1).end(xlup).row '为A列最后一行
c=Cells(1, 256).End(xlToLeft).Column '为第一行最后一列
最好再举个例子说明你想要达到什么目的.
就你说的问题,感觉不难.
当然我更想切中要害.不想多说无益的.