EXECL的威力在财务上如何发挥？很多人是“不知道自己不知道”，包括我！

sotekhi

工作第1年 ，印刷厂。在EXECL里，我只用了加减乘除。
工作第2年， 纺织厂，在EXECL里，我学会了VLOOKUP，当时是为了从用友软件导出的入库单数据跟EXECL源数据进行核对，老会计教我用这个函数，当时那个窘境啊，理解不了，看不懂老会计在两张工作表按来按去什么意思。
工作第3年， 食品厂，在EXECL里，我学会了多张表数据汇总+透视表，当时公司每个月底要把运输费日报表（到货地点，里程，车数，运费，立方数等）按上中下旬分布在一张表里汇总体现，他们原来的做法当然是复制黏贴30遍到一张表，然后各种手工，我接手也是束手无策，幸好当时知道了EXECLHOME论坛，就上来请教，坛友就帮我解决了。
工作第4年，做上市包装，这个期间，才终于运用了更多点的函数，比如left,right,mid,len,index,row,if等嵌套函数的综合使用以及数组公式在发票打印界面索引源数据的运用。
、、、、、、、、、、、、、、、、、、、、、、、、、、、
当然，我还是“不知道自己不知道”，要想进阶学习，也不知从何入手，所以发帖请教大家。

大家列举下，某某方面的工作需要运用到什么复杂的函数公式或者编程，控件，ACCESS等，也好有个学习方向，不然就会有某个帖子说EXECL在财务上没多大用处，就加减乘除而已。

还有编程代码要怎么学习，比如下面这个代码能否用白话文来解释，看不懂什么意思


Sub uu()
Dim o$
For q = 3 To Sheets.Count
o = Sheets(q).Name
t = q - 2
't = Right(o, 2)
sql = "select '" & t & "'as 日期,* from [" & o & "$A3:l5000]"
  If q = 3 Then
  sql2 = sql
  Else
  sql2 = sql2 & " union all " & sql
  End If
Next
sql3 = "select left(到货地点,2) as 省,到货地点,立方数,[运费(元/车)] as 运费,日期,里程 from (" & sql2 & ") where 到货地点 is not null"
'[a1] = sql3
'***************************************************************************************
Sheet2.Select
    Dim mySQL As String, i As Long
    Dim mycnn As ADODB.Connection
    Dim rs As New ADODB.Recordset
   
    Application.ScreenUpdating = False
    '********************************************************************************************
    '清除C1：W1000区域的数据
    Range("a1:z63335").ClearContents
    Set mycnn = CreateObject("adodb.connection")
    mycnn.Open ("provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName)
   
     '***********************************SQL语句修改部分
   
    mySQL = sql3
   
    '***********************************执行一个SQL语句，并把结果给到rs这个数据集里
   
    rs.Open mySQL, mycnn, adOpenKeyset, adLockOptimistic
   
    '***********************************循环提取字段名
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1) = rs.Fields(i).Name
    Next
   
    '***********************************执行SQL语句
   
    Range("a2").CopyFromRecordset rs
   
   
    '***********************************释放内存
    rs.Close
    Set rs = Nothing
    mycnn.Close
    Set mycnn = Nothing
    '
    Application.ScreenUpdating = True

End Sub