运行后j值为第一1行最后一个单元格的列号:
Columns.Count表示本表的总列数,Cells(1, Columns.Count)表示1行最后个单元格,.End(xlToLeft).Column表示起左边第一个有内容的单元格的列。
应该说是当前激活的单元格是最后一列+1列获取第一行最后一列的代码dimendCol1aslongendCol1=cells(1,columns.count).end(xlToLeft).column激活第一行最后一列+1列单元格的代码cells(1,endCol1+1).Activate