文件
大小

README

Office


GitHub

WeChat小程序

所有PC端与office相关的资源

WPS

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窗口中,找到当前文件,鼠标右键->插入->模块,在弹出的窗口粘贴代码. 然后就可以在单元格里面使用这个函数了

正则表达式使用

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