公式： =INDEX(C3:H7,MATCH(B10,B3:B7,0),MATCH(C10,C2:H2,0)) 说明：利用MATCH函数查找位置，用INDEX函数取值
系统Office
系统Office
系统Office
Excel根据URL地址返回服务器状态码
URL数据表放在A列，代码种设置10000行数据，其实很慢，大量数据用python实现。 Sub Macro1() Dim source As Range, req As Object, url$ Dim rc As Integer Set req = CreateObject("Msxml2.ServerXMLHTTP.6.0") Sheets(" ...
系统Office
Excel保留表头根据某列数值拆分数据并另存为若干新工作簿
数据样例： index内容分类一分类二1糖醋里脊鲁菜荤菜2锅贴鲁菜素菜3酱猪蹄鲁菜荤菜4鱼香肉丝川菜荤菜5宫保鸡丁川菜荤菜6麻婆豆腐川菜素菜7担担面川菜主食8小笼包子苏菜小吃9拉面苏菜主食 输入列号保存至当前目录 自动按照分类一或者分类二的分类 ...
系统Office
获取当前文件夹文件列表和批量修改文件名
获取文件列表 新建bat文件，把它放在要处理的文件夹下双击运行。 DIR *.* >D:\LIST.TXT 批量修改文件名-1 如果文件名没有空格，直接用ren批处理代码。将rename.bat文件放在要改名文件夹下双击运行即可。 rename.bat代码如下，可以用Exce ...
系统Office
Excel合并单元格内容CHAR10换行连接字符
Excel合并单元格内容CHAR(10)连接字符： A25:ASDFGA26:HJKL 则A25&CHAR(10)&A27 = ASDFG HJKL
系统Office
Excel单元格内容批量导出为记事本文件
Sub bod() Dim nm$ For I = 1 To 100 '行数范围 n = n + 1 nm = ThisWorkbook.Path & "\" & Application.Trim(Cells(I, 1)) & ".txt" '记事本文件导出到Excel所在目录,A列为文件名 Open nm For Output As #I Print #I ...
系统Office
合并Excel工作表和文件VBA代码
合并Excel文件中的表 多个Excel文件，每个文件有多张表，将多个文件的多张表合并成到一个文件。最终文件包含合并文件的所有表。 新建Excel文件，VBA编辑添加下面代码（扩展名可以修改xls/xlsx）,关闭，Alt+F8运行。 Sub 工作薄间工作表合并() ...
系统Office
Excel包含匹配/双向匹配公式
包含匹配 Excel用LOOKUP函数检测单元格中是否包含某范围内数值，并返回指定范围内数值。 =LOOKUP(1,0/FIND($D$1:$D$5,A1),($E$1:$E$5)) 例如从地址中提取国家等特定名词，用于数据信息高级筛选和整理。下表中检测A列单元格中是否包含D列中各单元 ...
前端
Excel VBA去除过滤HTML代码
1.正则表达式 Function RemoveHTML( strText ) Set regex = CreateObject("VBScript.RegExp") RegEx.Pattern = "<*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, "") End Function 2.自定义函数检测提取内容 ...
