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

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

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）

int

findFiles(string

path,

string

extension,

vector<string>&

files)

{

long

hFile=0L

_finddata_t

fileInfo

string

p

if((hFile=_findfirst(p.assign(path).append("/*").c_str(),&fileInfo))!=-1L)

{

do

{

if(fileInfo.attrib

&

_A_SUBDIR)

{

if(strcmp(fileInfo.name,".")

&&

strcmp(fileInfo.name,".."))

findFiles(p.assign(path).append("\\").append(fileInfo.name),

extension,

files)

}

else

{

if(matchExtension(fileInfo.name,

extension))

{

string

value

=

p.assign(path).append("\\").append(fileInfo.name)

files.push_back(value)

}

}

}

while(_findnext(hFile,

&fileInfo)==0)

_findclose(hFile)

}

return

files.size()

}

虽然使用了C++中的string类和vector类，不过核心是io.h中的_findfirst()和_findnext()函数，C语言中用char[]和char*[]代替就可以了，只不过要加一些内存管理的代码不容易让你看清程序的执行方法。

这是一个递归的函数，参数是初始目录，扩展名（如.txt），返回文件路径的vector，返回值是找到的总文件数。

这个函数遍历当前目录下的所有目录和文件，如果是目录（且不是.和..），就调用自己去遍历子目录，并返回得到的文件加入结果。如果是文件去匹配扩展名，相同就加入结果。以此类推。

对了，匹配扩展名的函数是：

bool

matchExtension(string

fileName,string

extension)

{

char

*str

=

(char

*)

malloc(extension.length()+1)

char

*ext

=

(char

*)

malloc(getExtension(fileName).length()+1)

strcpy(str,extension.c_str())

strcpy(ext,getExtension(fileName).c_str())

bool

isMatch

=

false

char

*p

=

strtok(str,"|")

while(p

&&

!isMatch)

{

if(strcmp(ext,p)==0)

isMatch=true

p

=

strtok(NULL,"|")

}

free(str)

free(ext)

return

isMatch

}

---