• 设备
    • 今日
    • 0

    VBA编程备忘录2

    VBA编程备忘录2 1.读取sheet页【原始数据】中的B列只取唯一值,并将维一值写入到sheet页【批量处理】A列中 Subonly_data() DimmRng$,D,c SetD=CreateObject("scripting.dictionary")'因MSSQL防注入安全问题,这里的Create与Object之间是没有空格才是正确 ForEachcInSheets("原始数据").Range("B2:B9999") IfNotD.exists(c.Value)ThenD.Addc.Value,"" Nextc Sheets("批量处理").Range("

    阅读全文 1 °

    [ 图 ] 删除office2019多余未激活授权信息

    删除office2019多余未激活授权信息 如上图,只有第一个【产品已激活】的2019许可是有效的,其它,如:2016及需要激活的2019,都是多余,那如何删除这些没用信息? 1.以管理员身份,用命令模式,进入目录:c:\Windows\System32 2.查看默认安装目录的office授权信息: cscript"C:\ProgramFiles\MicrosoftOffice\Office16\ospp.vbs"/dstatus ------我电脑显示信息如下------ Microsoft(R)WindowsScriptHostVersio

    阅读全文 5 °