作者：iamlaosong

用VBA對Excel檔案進行處理的時候，關鍵欄位的列號程式設計時往往是不知道的，需要通過引數設定才能知道，因此，我們程式設計的時候，就不能用這樣的語句取有效行數：

    lineno = [B65536].End(xlUp).Row          '從下至上找有效行數

上述語句中的列名“B”如果是變數，可以用字串連線的方式實現，即：

    pos_ems = "C"
    lineno = Range(pos_ems & "65536").End(xlUp).Row

如果給的是列號，則用下列語句：

   pos_ems = 3
   lineno = Cells(65536, pos_ems).End(xlUp).Row

如果該列所有需要處理的單元格都有值，也可以用下列語句：

    lineno = [B1].End(xlDown).Row          '從上至下找有效行數

上述語句中的變數pos_ems可以讀取單元格的值，以便面對不同檔案時隨時設定：

    pos_fst = Cells(2, 7)
    pos_ems = Cells(3, 7)
    pos_sav = Cells(4, 7)
    
    lineno = [B65536].End(xlUp).Row           '行數，檔案數量
    
    For unit_num = 5 To lineno                 '檔案迴圈
    
        datfile = Cells(unit_num, 2)                              '檔名稱
        datFullName = ThisWorkbook.Path & "\" & datfile
        If Dir(datFullName, vbNormal) <> vbNullString Then
            Workbooks.Open Filename:=datFullName        '開啟訂單檔案
            If Application.Version >= "12.0" And ActiveWorkbook.FileFormat = 51 Then
                maxrow = Cells(1048576, pos_ems).End(xlUp).Row
            Else
                maxrow = Cells(65536, pos_ems).End(xlUp).Row
            End If
        Else
            MsgBox "資料檔案不存在！", vbOKOnly, "iamlaosong"
            Exit Sub
        End If