1.新建启用宏的工作表，后缀为：xlsm 2.鼠标选择需要多选择的单元格（如第6列第二行），菜单->数据->数据验证-> 2.1验证条件：序列 2.2来源：输入数据（手动输入或通过原有数据列） 3.选择菜单->开发工具->VisualBasic->对象->sheet1->右键->查看代码，复制以下代码： 注意内容中:【IfTarget.Column=6Then】其中的6，代表需多选的第6列，按实际情况修改此数字即可！ 4.多选时，多次选择即可！选择错了，删除重新选

因为企业微信，在免费的情况下，没有员工合同到期功能，没办法了，自己想办法去实现 1.环境及条件 a.企业微信-通讯录-添加自定义字段-合同到期，格式：yyyy-mm-dd b.本地linux服务器 2.所需工具-JSON的命令行工具：jq提前安装 linux安装jq yuminstalljq ete.sh #!/bin/bash #提取企业微信员工合同将到期记录 #登录企业微信查询：Ecorpid和Ecorpsecret，保存于相应的值中

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("

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