addfox-CSDN博客

转载文件管理类函数

varf:string;beginf:='D:/xxx.xls';if not FileExists(f) thenbeginShowMessage('文件不存在，请核实');end; end;

2011-03-09 14:07:00 267

原创删除空格,并保留文本格式

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 671

原创删除excel最后一行数据

Rows(Cells.Find("*", , , , , 2).Row).Delete

2011-03-07 14:22:00 1359

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

转载 文件管理类函数

原创 删除空格,并保留文本格式

原创 删除excel最后一行数据

空空如也

空空如也

转载文件管理类函数

原创删除空格,并保留文本格式

原创删除excel最后一行数据