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.快速批量填充图像颜色 Alt+shift+Del的作用是锁定图层中所有的透明像素，只对有像素内容的区域进行前景填充。相当于点下图层面板中锁定透明像素，然后填充前景色

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

:top echo%date%%time%>>d:\log.txt ping-n1192.168.1.78|findstr"TTL">>d:\log.txt ping-n10127.1>nul gototop