excel常用函数

多个sheet页合并成一个sheet页

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

#excel常用函
函数 功能 例子 说明

CHAR(10) 换行 =F5&CHAR(10)&F6
row 排序 =A13
subtotal 排序 =SUBTOTAL(103,F$4:F6) 小计排序，不受删除、隐藏的影响
IFERROR 错误提示重置 =IFERROR(FIND(1,F30),"NO")
IF 条件判断 =IF(IFERROR(FIND(1,F30),0),SUBSTITUTE(F30,1,"①",1),2)
SUBSTITUTE 替换 =SUBSTITUTE(F30,1,"①",1)

=IF(FIND("、",I3)=2,RIGHT(I3,LEN(I3)-2),IF(FIND("、",I3)=3,RIGHT(I3,LEN(I3)-3),IF(FIND(".",I3)=2,RIGHT(I3,LEN(I3)-2),IF(FIND(".",I3)=3,RIGHT(I3,LEN(I3)-3),I3))))
=RIGHT(I3,LEN(I3)-2)

标签：常用,RIGHT,End,函数,I3,excel,LEN,F30,FIND
来源： https://www.cnblogs.com/biyulin-bky/p/16147675.html