摘要:
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
七月安生里
阅读(387)
评论(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
七月安生里
阅读(3449)
评论(0)
推荐(0)

浙公网安备 33010602011771号