使用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) <>