Visual Basic编程实现Excel表操作

使用Visual Basic编程录制Excel宏可以实现表格中大量数据的不同操作，提高工作效率。

下述函数实现 Excel表格中匹配条件下，表格间的复制操作，具体实现见中文注释。

//Excel录制宏名称：RefMoveList；函数起始：

Sub RefMoveList()

//for循环语句，定义循环 for(int i =4;i<=13842;)

For i = 4 To 13842

//for循环语句，定义循环 for(int j =3;i<=2173;)

For j = 3 To 2173

//If 判断语句，如果Excel表格（行，列）内容： (i, 1) = =(j, 82)，则条件为真。

If Cells(i, 1) = Cells(j, 82) Then

//赋值语句， (j, 84) = =(i, 5)

Cells(j, 84) = Cells(i, 5)

 

//代码注释方式： '

'If Cells(j, 85) <> "" Then
'Cells(i, 5) = Cells(j, 85)
'End If

//跳转语句

GoTo OK

//If 判断语句结束，须与if成对使用

End If

//for循环语句，递增变量j

Next j

OK:

//for循环语句，递增变量i

Next i

//Excel宏函数功能结束标志

End Sub