WEB-DL

办公过程遇到的一些office程序命令、方法收集

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

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

码字很辛苦,转载请注明来自非WEB-DL资源站《办公过程遇到的一些office程序命令、方法收集》

评论

评论关闭