研究了許久，終於找出了方法，在excel工作表中想在資料列的最後一列增加"enddata"給迴圈判斷用
 
  ActiveCell.SpecialCells(xlLastCell).Select       '找到最後一個有資料的列
  Range("a" & ActiveCell.Row + 1).Value = "enddata"   '在a欄使用中之列(即為目前點選的儲存格所在列)，加一列輸入"enddata"


試試從底部往上找的方法:速度一樣快

Range("a65536").Select                       '到工作表最底端一列
Selection.End(xlUp).Select                     '然後往上找到最後一個有資料的列
Range("a" & ActiveCell.Row + 1).Value = "enddata"     '在a欄使用中之列(即為目前點選的儲存格所在列)，加一列輸入"enddata"