Sub 按模板修改Excel文件() Dim MoBanWorkBook As Workbook Set MoBanWorkBook = Application.ActiveWorkbook Dim MoBanSheet As Worksheet Set MoBanSheet = MoBanWorkBook.Worksheets(1) With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Filters.…
小写转大写: [zengs@SYS SOS]$ for cpplive in *; do mv $cpplive `echo $cpplive|tr [a-z] [A-Z]`; done 大写转小写: [zengs@SYS SOS]$ for cpplive in *; do mv $cpplive `echo $cpplive|tr [A-Z] [a-z]`; done 修改后缀: [zengs@SYS SOS]$ for cpplive in *.JPG; do mv $cpplive …