Question

EXCEL中VBA函数问题

Option Explicit Dim lLastRow As Long Sub myMain() Dim rng As Range lLastRow = Range("A" & Cells.Rows.Count).End(xlUp).Row Range("D3:E" & lLastRow).Clear Call GetExtraNum Call CalculateExtra Set rng = Range("E3:E" & lLastRow) Call SetFormat(rng) End Sub 哪位高手帮解释一下，上面那段代码具体详细的意思啊？

Answer 1

Option
Explicit//强制显式声明模块中的所有变量。
Dim
lLastRow
As
Long//定义lLastRow为长整型变量
Sub
myMain()//定义myMain过程
Dim
rng
As
Range//定义rng为单元格对象
lLastRow
=
Range("A"
&
Cells.Rows.Count).End(xlUp).Row//将lLastRow赋值为A列最后一个有内容的单元格的行数
Range("D3:E"
&
lLastRow).Clear//将D列第三行至与A列最后一个有内容的单元格同行的内容清除
Call
GetExtraNum//调用GetExtraNum过程
Call
CalculateExtra//调用CalculateExtra过程
Set
rng
=
Range("E3:E"
&
lLastRow)//将E列第三行至与A列最后一个有内容的单元格同行的单元格对象赋给变量rng
Call
SetFormat(rng)//以rng为参数调用SetFormat过程
End
Sub
补充一：
像xlUp这样的东西是EXCEL预设好的常量。