抓A1為底往下算的到底的列數+1 為輸入的資料格 r = Range("A2").End(xlDown).Row + 1 '把資料輸入到EXCEL儲存格內. Cells(r, "A") = CBtype.Text
確定! 回上一頁