包含:=IF(COUNTIF(A1,"*"&"指定文本"&"*")=1,"有","无")=IF(ISERROR(FIND("指定文本",A1,1)),"无","有")=IF(SUM(COUNTIF(A1,{"*A*","*B*","*C*"})),"S","")=IF(COUNTIF(A1,"*"&"指定文本"&"*")=1,"有","无")=IF(ISERROR(FIND("指定文本",A1,1)),"无","有")重复项::=IF(ISERROR(VLOOKUP(A2,A1:A1,1,0)),"","重复")加A公式:=IF(COUNTIF(D2,"*"&"B"&"*")=1,D2,B2&D2)减A公式:=IF(COUNTIF(C2,"*"&"A"&"*")=1,REPLACE(C2,1,1,""),C2)加横杠公式:=REPLACE((REPLACE(Sheet3!B2,4,0,"-")),7,,"-")减横杠的公式:=REPLACE((REPLACE(G2,4,1,"")),6,1,"")删除多余的母件:母件还原公式:=IF(G1-C2=G1,D1,J2)损耗率U8转U9,加0的公式:=REPLACE((REPLACE(AG2,3,0,"0")),3,,"0")=REPLACE((REPLACE(AG2,3,0,"0")),3,,"0")MSTSC远程链接获取文件夹名字放进EXCEL或txt中:[drive:][path]>Dir/b>[drive:][path]filename例:f:\wenjianming>dir/b>f:temp.xls获取F盘下面文件夹名称为111里面的子文件夹名称的步骤:F:\Cd111Dir/b>f:temp.xls共享复制文件到本地\\10.10.12.210\f$\合并表格到1个表格中,在合并的EXCEL的sheet1中右键,打开查看代码,在右侧的代码区粘贴如下代码:Sub合并当前目录下所有工作簿的全部工作表()Sub合并当前目录下所有工作簿的全部工作表() DimMyPath,MyName,AWbName DimWbAsWorkbook,WbNAsString DimGAsLong DimNumAsLong DimBOXAsString Application.ScreenUpdating=False MyPath=ActiveWorkbook.Path MyName=Dir(MyPath&"\"&"*.xls") AWbName=ActiveWorkbook.Name Num=0 DoWhileMyName<>"" IfMyName<>AWbNameThen SetWb=Workbooks.Open(MyPath&"\"&MyName) Num=Num+1 WithWorkbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4) ForG=1ToSheets.Count Wb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1) Next WbN=WbN&Chr(13)&Wb.Name Wb.CloseFalse EndWith EndIf MyName=Dir Loop Range("A1").Select Application.ScreenUpdating=True MsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示" EndSub运行→运行子过程/用户窗体(或者直接点击运行按钮,快捷键:F5),即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面