研究了许久，终于找出了方法，在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"