VBA编程,如何取得一个表单中含有数据的总行数

fieldset{padding:10px;}

VBA编程,怎么取得一个表单中含有数据的总行数在一个表单中,当行中的数据被删除但是该行已经格式化了,我用Cells.SpecialCells(xlCellTypeLastCell).Row得到的函数依然包括已经贝删除数据的行数,请问:我怎么得到那些只含有数据的行数,谢谢。代码如下:’将其他几个具有相同结构的表单数据合并到第一个表单中PublicSubnst()Fori=2ToSheets.CountSheets(i).Activater=Cells.SpecialCells(xlCellTypeLastCell).RowRows(“2:”&r).SelectSelection.CopySheets(1).Activater=Cells.SpecialCells(xlCellTypeLastCell).Row+1Cells(r,1).ActivateActiveSheet.PasteNextSheets(1).ActivateColumns(“A:A”).SelectSelection.InsertShift:=xlToRight’,CopyOrigin:=xlFormatFromLeftOrAboveCells(1,1)=”总序号”r=Cells.SpecialCells(xlCellTypeLastCell).RowFori=2TorCells(i,1)=i-1NextEndSub——最佳解决方案——————————————————–楼主用的是手工删除还是程序?要直接删除行,不要只清空数据不要用Selection.ClearContents要用Selection.Delete另外楼主用的哪个版本,我在2010中也发现一个问题就是在删除之后,数据行还是包括那些被删除的行,需要保存关闭EXCEL,然后再启动就可以行到正确的结果了,不知道是不是EXCEL2010的BUG.——其他解决方案——————————————————–

引用:

楼主用的是手工删除还是程序?要直接删除行,不要只清空数据不要用Selection.ClearContents要用Selection.Delete另外楼主用的哪个版本,我在2010中也发现一个问题就是在删除之后,数据行还是包括那些被删除的行,需要保存关闭EXCEL,然后再启动就可以行到正确的结果了,不知道是不是EXCEL2010的BUG.

2010中bug你试着save在取值试下.这一次是一个告别,或者一个永远的告别,

VBA编程,如何取得一个表单中含有数据的总行数

相关文章:

你感兴趣的文章:

标签云: