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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Excel VBA怎么实现整行/列的遍历相关的知识,希望对你有一定的参考价值。

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

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

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

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

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

注意事项:

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

参考技术A

编程如下:

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)

参考技术B 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
参考技术C 是不是要找行末或列末?
r=cells(65526,1).end(xlup).row '为A列最后一行
c=Cells(1, 256).End(xlToLeft).Column '为第一行最后一列
参考技术D 说把问题再说清楚些.

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

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

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

excel vba 数字转文本

用excel vba 怎么按第一列的数据,是11位数字,把它显示把第二列的那种方式(文本),我用Selection.NumberFormat = "@",都不成功的,不知哪一步错了,它只会变成第三列的那种方式,但不是我想要的效果。

亲,对B列设置完文本“@”,要对B列重新赋予文本状态的A列值,才能正常显示成文本。假设A列数据有100行:

Dim i As Integer
Range("B:B").NumberFormat = "@"
For i = 1 To 100
    Range("B" & i) = Format(Range("A" & i), "0")
Next

追问

我成功了。用以下的代码,用了循环,可以有不用循环的方法吗?如果我一次换一列2000+的数据,用循环可能久一点。

Sub 数字转文本()
Dim rn As Range
For Each rn In Selection
rn.Offset(0, 1).NumberFormat = "@"
rn.Offset(0, 1) = Format(rn, "0")
Next

追答

我还真没办法,Excel这方面比较搞人。假如你是手工操作,把B列设成了文本格式,还要一个单元格一个单元格地双击才能转换成正常显示……
期待其他专家有更好的办法。

参考技术A &一个空字符,或者是&撇号,就行 参考技术B 以A1为例子:
[a1] = "'" & [a1]

以上是关于Excel VBA怎么实现整行/列的遍历的主要内容,如果未能解决你的问题,请参考以下文章

EXCEL中用VBA复制整行

EXCEL如何从单元格选中到它所在的整行

excel中如何用VBA一次读入一整行的数据到字符串中? 谢谢!

通过VBA 程序找出excel表中B列的最大日期,并且排除一个不要的年份的日期,如12/31/2099(日期格式),急

excel vba 代码求复制整行数据至其他表格中

用vba做excel两个表的比对