标签：常用 RIGHT End 函数 I3 excel LEN F30 FIND

多个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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。