摘要: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(x 阅读全文
posted @ 2022-03-10 09:14 七月安生里 阅读(371) 评论(0) 推荐(0) 编辑
摘要: 不足4位前面补0,REPT+LEN函数:=REPT(0,4-LEN(A2))&A2 不足4位前面补0,IF+REPT+LEN函数:=IF(LEN(A2)<4,REPT(0,4-LEN(A2))&A2,A2) 不足4位前面补0,TEXT函数:=TEXT(A2,"0000") #=TEXT(数字值,文本 阅读全文
posted @ 2022-03-10 08:49 七月安生里 阅读(2564) 评论(0) 推荐(0) 编辑