excel中字典是一个很有用的功能，设置在很多方面操作比数组更为灵活，尤其是对于查找是否存在数据到适配方面。下面是一段关于字典适配查询的代码。字典的记录一般是记录（索引）-值这样的方法，其中值可以很灵活，涉及到具体表格的话，可以是单个单元格数值，也可以是多个单元格数值（连字符连接），也可以是数组的某一维数据。...
此种方法可以在后台直接从from_xls文件中读取想要的数据，而不要打开2020.09.19 测试通过。Private Sub testsub()Dim i%, ra%，filename$,aa$ Dim from_xls As New&n...
'laoyao 2020.08.11 '合并组-----------（start） '首先清除所有合并组 Cells.Select Selection.ClearOutline '思路：'设定起始行，一般建议起始行作为需要处理数据的第二行，因为常规情况下，第一行多数是作为1级组； 通过循环...
一般网站或者软件里面对时间的记录大多是采用数字的方法存储，如果想把此数字转换为对应的日期时间一般可以做以下转换：例如1914114777，该数值的意义是指该日期距离1970/01/01 08:00的时间差（秒），另外在excel中一般数字表示的日期时间是相对于1900/01/01 0:00的时间差。（如果在e...
2020.03.29 做一个整理 '#活动单元格后面_插入多行，最后一格参数表示按照下面行的格式插入，默认为按照上一行格式插入 &...
'这段代码的目的其实也是无意中想到notepad++对代码的自动颜色区分的功能，想了一下如果把这个功能加到平时excel的计算书中去，应该在可读性和'检查的时候也更方便；沿袭的是当初excel中剔除汉字代码的思路，代码作用还是成功，'功能1）自动将计算式中注释的正文标注为其他颜色，对参与计算运算符号进行指定颜...
Function daxie(ByVal M) y = Int(Round(100 * Abs(M)) / 100) j = Round(100 * Abs(M) + 0.00001) - y * 100 f = Round((j / 10 - Int(j / 10)) * 10) ...
利用此函数可以剔除字符串中的汉字内容。（本代码中添加了对于中文计算符号的转换）'该函数不需要单独采用符号来注明汉字。 Function Sp(ByVal Num) Dim n, Chs For n = 1 To Len(Num) '先替换一些常用的计算符号，满足中英文混排。 If Mid(Num, n, 1)...
1、取得最后一行Range("A65536").End(xlUp).Row '取得A列的最后一行2、取得url网址的内容文本到strTextM1里面With CreateObject("MSXML2.XMLHTTP") ...
Function DaXie(ByVal Num) ' 人民币中文大写函数 Application.Volatile True Place = "分角元拾佰仟万拾佰仟亿拾佰仟万" Dn = "壹贰叁肆伍陆柒捌玖" D1 = "整零元零零零万零零零亿零零零万" If Num < 0 Then ...