摘要:
Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(x 阅读全文
摘要:
不足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(数字值,文本 阅读全文