Office - A1P - Bajins

File	EditTime	Size
卸载工具	2020-06-24 13:06:28	4.38 MB
简历模板	2020-06-24 13:06:28	1.28 MB
Office_2013-2019_C2R6.5.7.0_密码bajins.7z	2020-06-25 17:18:23	9.42 MB
Office365.ps1	2020-06-25 01:10:24	5.52 KB
README.md	2020-06-25 17:15:37	4.91 KB
合并多个文本文件.xls	2018-07-20 02:44:26	30.5 KB
多个工作簿合并为一簿多表.xls	2018-07-20 02:44:29	43 KB
查看office版本与激活方法.pdf	2018-07-20 02:44:33	382.34 KB

# Office
* [GitHub](https://woytu.github.io)
* [WeChat小程序](https://www.woetu.com)
所有PC端与office相关的资源
* [OFFICE TOOL PLUS](https://github.com/YerongAI/Office-Tool)
* [Office 2013-2019 C2R Install](https://www.solidfiles.com/folder/bd7165a0d4/)
### WPS
* [https://ep.wps.cn/download](https://ep.wps.cn/download)
#### 2016密钥
```
9DP6T-9AGWG-KWV33-9MPC8-JDCVF
7G2HE-JR8KL-ABB9D-Y7789-GLNFL
U2PWU-H7D9H-69T3B-JEYC2-3R2NG
R8R8P-MTT6F-KLRPM-J7CAB-PJM8C
A4XV7-QP9JN-E7FCB-VQFRD-4NLKC
U272H-HH2F6-WDG36-ULUPX-PCHTJ
7LR67-WTXPA-KLUHV-GEK2E-QW4CK
EUYTH-3KWKL-PJMX7-XBCPW-9U2DD
THUV2-32HH7-6NMHN-PTX7Y-QQCTH
```
#### 2019密钥
```
694BF-YUDBG-EAR69-BPRGB-ATQXH
FLHAP-TEUGA-9MA3A-3TY3Q-V9EPD
R7AKQ-KLBXV-RNX3F-BPACQ-NQDGE
```
> 删除右键菜单中的 上传到wps云文档
```
FOR /F "usebackq delims==" %i IN (\`REG QUERY HKCU /v qingshellext /s\`) DO @echo %i
REG DELETE 查出的项 /f
```
> 打开注册表编辑器 regedit 然后在注册表里查找 qingshellext 这个键值，把找到的都删除就可以了。
## 宏
> 按`Atl+F11`->在`工程-VBAProject`窗口中,找到当前文件,鼠标右键->插入->模块,在弹出的窗口粘贴代码. 然后就可以在单元格里面使用这个函数了
### 正则表达式使用
```visual-basic
Function RegexString(rng As Range, str As String)
'第一个参数rng为区域保持不变， 添加第二个参数str（作为正则表达式）
  With CreateObject("VBscript.regexp")
    .Global = True
    .Pattern = str '表达式,直接从用户函数的第二个参数中调用
    If .Execute(rng).Count = 0 Then
    RegexString = ""
    Else
    RegexString = .Execute(rng)(0)
    End If
  End With
End Function
```
- 匹配单元格左边英文及其他字符`=RegexString(A1,"[^\u4e00-\u9fa5]+")`
- 匹配单元格右边中文及其他字符`=RegexString(A1,"[\u4e00-\u9fa5].*")`
### 替换数字
1、=REPLACE(A1,5,3,"***") 
> 将A1的字符内容从第5位开始，连续3位替换为***
2、=LEFT(A1,4)&"***"&RIGHT(A1,4) 
> 将A1的字符内容的左边4位取出，加上3个*号，再加上取出的A1字符内容的右边4位，合并成新的字符。
### 去掉数字
1、=REPLACE(A1,5,3,) 
> 将A1的字符内容从第5位开始，连续3位替换为空
2、=MID(A1,2,LEN(A1))
> 从第二位开始向右取字符，去掉第一位字符
3、=LEFT(A1,LEN(A1)-1)
> left函数表示截取字符串左侧的部分字符。len函数表示计算字符串的字符数。其中len(A1)-1表示比len计算的字符数少1。而left则截取的字符就是从左侧算起到最后一位字符的前一个字符为止。
4、=SUBSTITUTE(A1,LEFT(A1),)
> substitute函数的含义是对指定的字符串进行替换，=substitute（需要替换的文本，旧文本，新文本，第N个旧文本），替代（A1，左（A1），去掉两边字符
### 增加数字
1、=REPLACE(A1,5,0,8,) 
> 将A1的字符内容从第5位开始，增加字符，不替换原数字要输入“0”，而不是“1”。增加数字8。
2、="任意信息"&A1
> 将A1单元格中字符前加入任意信息。
### 提取手机号码
1、=LOOKUP(9^99,--MID(B3,ROW(1:994),11))
> 用MID配全ROW函数，从第1位开始，逐位截取11个字符，截取后用--把文本转换为数字。最后用LOOKUP进行从下向上的查找。9^99是一个任意比电话号码大的数字。
2、=MID(A1,MAX(IFERROR(IF(SEARCH(",1??????????",MID(A1,ROW($1:$300),12))=1,ROW($1:$300)),0))+1,11)
> 此函数为数组公式 要按ctrl+shift+回车三键确认才有效
3、=VLOOKUP(,MID(A1,ROW($1:$99),11)*{0,1},2,)
> 此函数为数组公式，要按ctrl+shift+回车三键确认才有效，提出连续的11位数字同样提出18位全数字的身份证号码也适用，11改成18就可以
### 合并当前目录下所有工作簿的全部工作表
```visual-basic
Sub 合并当前目录下所有工作簿的全部工作表() 
    Dim MyPath, MyName, AWbName 
    Dim Wb As Workbook, WbN As String 
    Dim G As Long 
    Dim Num As Long 
    Dim BOX As String 
    Application.ScreenUpdating = False 
    MyPath = ActiveWorkbook.Path 
    MyName = Dir(MyPath & "\" & "*.xls") 
    AWbName = ActiveWorkbook.Name 
    Num = 0 
    Do While MyName <> "" 
        If MyName <> AWbName Then 
            Set Wb = Workbooks.Open(MyPath & "\" & MyName) 
            Num = Num + 1 
            With Workbooks(1).ActiveSheet 
                .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) 
                For G = 1 To Sheets.Count 
                    Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) 
                Next 
                WbN = WbN & Chr(13) & Wb.Name 
                Wb.Close False 
            End With 
        End If
        MyName = Dir 
    Loop 
    Range("A1").Select 
    Application.ScreenUpdating = True 
    MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" 
End Sub
```