鉴于现在每天搬砖为主，博客也没怎么更新，且遇到了不少实际问题，专门弄个文章记录一下，置顶方便还在关注本博客的网友查找。

1.Word批量删除所有书签
Word中的书签功能可快速、准确定位文档中特定的位置，经常用于模板定制、文档产出等。但书签功能存在一个不便的操作，即无法批量删除，只能单个删除，操作极不友好。使用VBA代码，即可完成遍历、删除。ALT+F11,打开VBA编辑器，在ThisDocument页面写下语句，F5执行即可。

Sub DelBookmarks()
Dim MyBk As Bookmark
For Each MyBk In ActiveDocument.Bookmarks
    MyBk.Delete
Next
End Sub

2.A、B列对比，筛选出A和B都有的

=IF(COUNTIF(B:B,A1)>0,A1,"")

3.A、B列对比，筛选出A和B没重复的

=IF(COUNTIF($B:$B,A1)=0,A1,"")

4.VLOOKUP填充信息，以A列单元格内容比对另一个数据总表A列，自动填充B列信息。

=VLOOKUP(A1,'总表文件所在目录[人员信息.xlsx]info'!A:H,第几列数据,0)

5.计数大于等于某个数值

=COUNTIF(O2:O32,">=20")

6.多列数据循环组合

Sub CrossJoin()
Dim arr(), a%, b%, c%, d%, i%
 arr = Range([A1].CurrentRegion.Address)
 i = 1
 Range("F:F").ClearContents
 For a = 1 To [A65536].End(xlUp).Row
  For b = 1 To [B65536].End(xlUp).Row
   For c = 1 To [C65536].End(xlUp).Row
    For d = 1 To [D65536].End(xlUp).Row
     Range("F" & i) = arr(a, 1) & arr(b, 2) & arr(c, 3) & arr(d, 4)
     i = i + 1
    Next d
   Next c
  Next b
 Next a
End Sub

7.多个分隔符同时分列

TEXTSPLIT函数目前仅在Office365和WPS新版本中有
=TEXTSPLIT(A2,{“/”;”-“;”*”;”&”;”@”;”；”;”，”;”、”;”。”;”测”})

8.Excel中唯一地对范围号进行不重复排名

以唯一序号降序排列（顺序编号从1往N编号）

=RANK(A2,$A$2:$A$11,0)+COUNTIF($A$2:A2,A2)-1

以唯一的升序排列范围编号（顺序编号从N往1编号）

=RANK(A2,$A$2:$A$11,1)+COUNTIF($A$2:A2,A2)-1