(這邊是宣告)
    Dim curWorkBook     As New Workbook
    Dim curSheet        As New Worksheet
    Dim SheetNAME       As String
(這邊是開Excel檔及開啟第一頁面)
        Set curWorkBook = Application.Workbooks.Open(FileName:="路徑及檔名", UpdateLinks:=0, ReadOnly:=False)
        SheetNAME = curWorkBook.Worksheets.Item(1).name
        Set curSheet = curWorkBook.Worksheets(SheetNAME)
        
        curSheet.Visible = True
(讀出A1的值)
        AllNumber = curSheet.Range("A1").Value

相對的你也可以這樣寫..
(把cowcolumn欄的東西..這邊你要自己先定義 可以用迴圈跑..A1.A2.A3..這樣..  一整行 或一整列的東西讀出來...讀到cowcolumnnumber中....)
cowcolumnnumber = curSheet.Range(cowcolumn).Value


讀出來之後要做啥??當然是要比對字元數夠不夠...我用17個做個範例,並且在後面加上空格..
temp = cowcolumnnumber
    If Len(cowcolumnnumber) < 17 Then
   
        For I = Len(cowcolumnnumber) To 17 Step 1
        
        temp=  temp& " "
        
        Next I
   
    End If
(比對完了當然要把資料放回去嘛....)
   cowcolumnnumber =temp

好了 我比完了 該把資料放回去了 放到剛剛的地方去
            curSheet.Range(cowcolumn).Value = cowcolumnnumber            

(今天大爺無聊..順便把行列大小自動排一下...)
            curSheet.Columns.AutoFit
            curSheet.Rows.AutoFit

全都比完了 該是存檔了吧...
            curWorkBook.Save