Posted on 2008-09-04 16:16
pts 阅读(9451)
评论(0) 编辑 收藏 所属分类:
Office
[原创]vba程序中，如何返回最后一列不为空的列的列号[Microsoft Excel精英论坛]Nextcol=Cells(1,255).End(xlToLeft).Column '取从cells(1,255)向左查找到的第一个非空值单元格的列数，不含cells(1,255)，与连续与否无关，没查到时返回第一列列号
Nextcol=Cells(1,1).End(xlToright).Column '取从cells(1,1)向右查找到的第一个非空值单元格的列数，不含cells(1,1)，与连续与否无关，没查到时返回最后一列列号
Nextcol=Cells(65536,1).End(xlup).row '取从cells(65536,1)向上查找到的第一个非空值单元格的行数，不含cells(65536,1)，与连续与否无关，没查到时返回第一行行号
Nextcol=Cells(1,1).End(xldown).row '取从cells(1,1)向下查找到的第一个非空值单元格的行数，不含cells(1,1)，与连续与否无关，没查到时返回最后一行行号