请问一个关于MACRO的问题
来源:百度知道 编辑:UC知道 时间:2024/06/25 10:16:54
请问下面这段程序什么意思啊?
需要能每一行什么意思,有什么用都解释清楚,谢谢了!
sub Fax()
Dim BLs(2 To 2000) As String
Dim LC,i,cc,faxrow As Integer
Dim seesion As String
LC=Range("a65536").End(xlUp).Row
For i=2 To LC
BLs(i)=Range("a"&i).Value
Next
需要能每一行什么意思,有什么用都解释清楚,谢谢了!
sub Fax()
Dim BLs(2 To 2000) As String
Dim LC,i,cc,faxrow As Integer
Dim seesion As String
LC=Range("a65536").End(xlUp).Row
For i=2 To LC
BLs(i)=Range("a"&i).Value
Next
首先你的代码贴的不全,所以不能全部解释它是什么意思
sub Fax() '// 这个是定义一个过程名称为 Fax
Dim BLs(2 To 2000) As String '// 定义一个下标从2到2000的类型为字符串的一维数组
Dim LC,i,cc,faxrow As Integer '// 定义变量
Dim seesion As String '// 定义变量
LC=Range("a65536").End(xlUp).Row '// 获取行数
'// 以下这一段是给数组BLs赋值,值为 A列从第2行到2000行的所有数据
For i=2 To LC
BLs(i)=Range("a"&i).Value
Next
'// 后面应该还有代码。