EXCEL中VBA函数问题

EXCEL中VBA函数问题

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预设好的常量。

这只是主程序，
要看过子程序才能知道干啥。

GetExtraNum
CalculateExtra
两个函数的函数体都不知道，神仙也帮不了你啊。

先是清除原有的数据，再是调用函数，具体是什么函数你上面没有写出来，最后是定义，再调用什么函数~