VBA中按差异提取数据的方案
2020年3月6日 - 网易
代码利用split函数,在键的集合中建立一个ForEach循环;对于对应于键的每一个键值进行判断。如果存在“##”,那么此键值(这个键值此时是一个字符串),将被按“##”分割成一个数组,这个数组是一个一维数组,如“和平区#4##河东区#5##河西区#6##南开区#7”被分割成(”和平区#4”,”河东区#5”,”河西区#6...
详情
测量计算方位角万能公式及VB、VBA源代码
2020年7月23日 - 网易
FunctionStringToRad(strAz)'将字符串格式方位角转换成弧度格式DimazSubStrIfstrAz<>""ThenazSubStr=Split(strAz,"-")IfUBound(azSubStr)=2ThenStringToRad=(azSubStr(0)+azSubStr(1)/60+azSubStr(2)/3600)*Atn(1)*4/180ElseStringToRad=0EndI...
详情
技术分析:一款流行的VBA宏病毒
2015年8月14日 - 51cto
InputString:后面粘贴上要解密的字符串,然后回车就可以得到解密后的字符串。代码中也加入了注释,理解这块代码应该不难。可以知道该模块从httplaboaudio/4tf33w/w4t453.exe下载得到恶意程序w4t453.exe,以fghgkbb.exe文件名保存到临时目录。3.4ThisDocument模块分析该模块主要代码如下(不像上面都给出...
详情
EXCEL合并同类项,方法之多,信息量炸裂-综合#001
2020年6月26日 - 网易
公式(数组):=TEXTJOIN("/",TRUE,IF($A$2:$A$16=D2,$B$2:$B$16,""))公式简述:TEXTJOIN(分隔符,是否忽略是文本,需要连接的字符串)第三参数,判断是否和合并类别一致,一致返回名称,否则返回空,第二参数忽略空,结果OK要点提示:基础函数特性,数据可乱序,这点强于通用函数做法前两天的SplitText,很多...
详情