Excel
addfox
好好学习,天天向上……
展开
-
删除空格,并保留文本格式
Private Sub CommandButton1_Click() With Sheets("sheet1") ar = .[a1].CurrentRegion For i = 1 To UBound(ar) ar(i, 1) = Trim(ar(i, 1)) 'A例数据 Next .[a1].Resize(UBound(ar)) = ar End WithEnd Sub原创 2011-03-07 15:07:00 · 691 阅读 · 0 评论 -
删除excel最后一行数据
Rows(Cells.Find("*", , , , , 2).Row).Delete原创 2011-03-07 14:22:00 · 1437 阅读 · 0 评论