删除数据区域的空白行列

Excel问题 | 2021-06-02 07:23:18 | 阅读 57 次 | 评论(0)

oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
	.Workbooks.Add(-4167)
	* 添加测试数据
	.ActiveSheet.Cells(2, 2).Value = "abcd"
	.ActiveSheet.Cells(4, 4).Value = "abcd"
	.ActiveSheet.Cells(6, 6).Value = "abcd"
	.ActiveSheet.Cells(100, 10).Value = "ABCD"
	*删除空白行
	lnRow = .ActiveSheet.UsedRange.Rows.Count
	FOR lnj = lnRow TO 1 STEP - 1
		IF .WorksheetFunction.CountA(.Rows(lnj)) = 0
			.Rows(lnj).Delete
		ENDIF 
	ENDFOR
	*删除空白列
	lnCol = .ActiveSheet.UsedRange.Columns.Count
	FOR lnj = lnCol TO 1 STEP - 1
		IF .WorksheetFunction.CountA(.Columns(lnj)) = 0
			.Columns(lnj).Delete
		ENDIF 
	ENDFOR
	.Visible = .T.
ENDWITH
文章评论,共0条
游客请输入验证码
浏览294126次