https://eblog.ink/category/EXCEL/ https://eblog.ink/archives/352/ 2023-07-10T02:35:00+00:00 一、提取1.=IFERROR(MID(A1,FIND("-",A1,FIND("-",A1)+1)+1,LEN(A1)-FIND("-",A1,FIND("-",A1)+1)),"") 第一行 =IFERROR(MID(A2,FIND("-",A2,FIND("-",A2)+1)+1,LEN(A2)-FIND("-",A2,FIND("-",A2)+1)),"") 第二行 例子： 1-5-999 1-22-9999 1-333-99999 从中提取 999 9999 示例2.34-03-E6-A8-1B-3C(192.168.1.15),04-0E-3C-中提取34-03-E6-A8-1B-3C使用公式：=LEFT(A1, FIND("(", A1) - 1) 3.“有效期（10年）”中提取 10 或是 “有效期（5年）”中提取 5=TEXT(MID(A1,FIND("（",A1)+1,FIND("年",A1)-FIND("（",A1)-1),"#")二、计算1.打开 Excel 文件。 按下 ALT + F11 打开 VBA 编辑器。 在 VBA 编辑器中，插入一个新的模块。 将以下述代码复制粘贴到新模块中。 Function SumColoredCells(rng As Range) As Double Dim cell As Range Dim total As Double total = 0 For Each cell In rng If cell.Interior.Color <> RGB(255, 255, 255) Then ' 修改为你想要的颜色，这里使用白色作为示例 total = total + cell.Value End If Next cell SumColoredCells = total End Function 使用：（计算A1:H1）区域带有颜色的值 =SumColoredCells(A1:H1) 示例 https://eblog.ink/archives/267/ 2021-01-28T07:12:00+00:00 1.以数据在A1为例方法1:省=LEFT(A1,MIN(FIND({"省","市","区"}, A1&"省市区"))) 市=SUBSTITUTE((LEFT(A1,MIN(FIND({"市","区","县"},A1&"市区县")))),B1,"") 区=SUBSTITUTE((LEFT(A1,MIN(FIND({"区","县","镇"},A1&"区县镇")))),B1&C1,"")或者=SUBSTITUTE((LEFT(A1,MIN(FIND({"区","县","镇"},A1&"区县镇")))),(LEFT(A1,MIN(FIND({"市","区","县"},A1&"市区县")))),"") 镇=SUBSTITUTE((LEFT(A1,MIN(FIND("镇",A1&"镇")))),B1&C1&D1,"") 方法2：省=LEFT(A1,MIN(FIND({"省","市","区"},A1&"省市区"))) 市=MID(LEFT(A1,FIND("市",A1)),FIND("省",A1)+1,5)区=MID(LEFT(A1,FIND("区",A1)),FIND("市",A1)+1,5) 镇=MID(LEFT(A1,FIND("镇",A1)),FIND("区",A1)+1,5) https://eblog.ink/archives/164/ 2019-03-01T03:58:00+00:00 检测到此文件存在一个问题发现有的表格能够打开，有的不能够打开，且打开其他表格正常使用 其两个版本，office2013、office2010出现该问题的有通过研究，它不清楚，解决方案为修改注册表。自己改注册表文件，双击注册即可。（管理员身份运行）注册表修改：office2010Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\excel\Security\FileValidation] "EnableOnLoad"=dword:00000000 注册表修改：office2013Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\excel\Security\FileValidation] "EnableOnLoad"=dword:00000000 创建注册表文件的方法：1.新建一个txt文本文档2.把上面的注册表代码粘贴在这个文本文档中3.修改.txt为.reg这样以管理员方式运行，双击注册就可以解决此问题了 https://eblog.ink/archives/137/ 2018-10-20T04:30:00+00:00 每1行自动插入分页符为例子，1.首先将Excel里面的开发工具调用出来，点击“文件”--”选项“--”开发工具“前打钩，再点击”确定“。2.接下来点击"开发工具",打开VBA编辑器3.接着在编辑器里面，编写程序，每5行自动分页，再点击运行。小编将本例子的程序编写出来，方便网友复制，程序如下：Sub 分页() For i = 6 To 20 Step 1 ' [Step 1]的意思就是1行就执行一次分页 ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1) Next End Sub 参数20为前20行执行这样的规则4.保存的时候，因为应用到宏，所以保存时需另存为启用宏的工作簿的保存类型，下回可直接重新打开。 https://eblog.ink/archives/62/ 2018-06-11T03:34:00+00:00 第一步，先安装Microsoft Access Database Engine 2010 Redistributable （或者AccessDatabaseEngine_X64） http://www.microsoft.com/downloads/zh-cn/details.aspx?FamilyID=C06B8369-60DD-4B64-A44B-84B371EDE16D 个人感觉如果系统已经安装office 2007应该不用安装该驱动第二步 修改连接 原来连接 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.xls;Extended Properties="Excel 8.0;HDR=YES;IMEX=1" 修改为：Provider=Microsoft.ACE.OLEDB.12.0;Data Source=1.xls;Extended Properties="Excel 12.0;HDR=YES;IMEX=1" https://eblog.ink/archives/44/ 2018-06-11T02:19:00+00:00 故障现象：处理方法：“开始-运行-输入regedit，然后依次打开注册表“HKEY_CURRENT_USER--Software--Microsoft--Office--14.0--Excel—Security，把EnableDEP重命名为：“ExtensionHardening”然后右击“ExtensionHardening”-修改[M]-把值设为0然后保存 https://eblog.ink/archives/43/ 2018-06-11T02:18:00+00:00 Excel文档不能直接打开,要单击文件－打开－选择后才能打开的解决方法：一直都是打不开，操作步骤如下：工具,"选项","常规"标签,将"忽略其它应用程序"这个复选项前的勾去除即可.[这种情况很多时候是由于版本或其他原因引起的] IgnoreRemoteRequests 的问题试试执行以下代码 Application.IgnoreRemoteRequests = True 执行完后退出Excel 从我的电脑随便打开一个excel文件,是不是开不了?问题就在这了 再执行 `Application.IgnoreRemoteRequests = False` 退出Excel,一切又变正常了 关键是那句代码在哪里执行，先启动excel，工具－宏－宏…随便取个宏名，但是一定要是字母开头，再点创建，在 "Sub a() End Sub" 之间插入那句 `Application.IgnoreRemoteRequests = False` 再回到excel，宏－宏...－执行就ok了 https://eblog.ink/archives/42/ 2018-06-11T02:17:00+00:00 故障现象：从系统中导出数据文件存储为CSV格式的文件，使用记事本打开文字显示没有问题，使用EXCEL打开出现乱码的现象。 原因分析（适用范围）：一般情况是导出的文件编码的问题。在简体中文环境下，EXCEL打开的CSV文件默认是ANSI编码，如果CSV文件的编码方式为utf-8、 Unicode等编码可能就会出现文件乱码的情况。 解决方法：开始菜单-----Microsoft office-- Microsoft office 工具-- Microsoft office 2003语言设置，将Microsoft office应用程序默认方式的语言设为“中文（简体）”。使用记事本打开CSV文件，文件---另存为，编码方式选择ANSI：保存完毕后，用EXCEL打开这个文件就不会出现乱码了。 https://eblog.ink/archives/39/ 2018-06-11T02:10:00+00:00 原因分析（适用范围）：1. 在工作中从其他表格复制数据到本表格的过程中产生大量文本框，是表格变大，缓慢.解决方法：打开表格后，选择“查找和选择”—“定位条件” 或者按ctrl+G ，选择“定位条件”如图： 然后选择“对象”点击“确定”。 然后等待，定位文本框，这个过程需要很长时间，可能会出现表格无响应的现象，等待出现文本框全部定位完成，点击delete删除. ![10.jpg][4] 然后重新定位，会出现以下现象。 说明已经删除完毕，这时保存表格，会发现表格小了很多，也不会再卡了。 https://eblog.ink/archives/29/ 2018-06-11T02:02:00+00:00 原因分析（适用范围）：Excel2010行数：1至1048576，列数：A至XFD，共计(16384)列。无法将非空的行挤出去，所以无法插入解决方法：找到最后一行，即使是没有数据单元格内或者有空格，有空格也是非空，即使没有空格，单元格设置了格式也为非空。选中最后一行单元格清除格式， 并清除多行单元格格式，重新插入空行，如图：点击确定，就可以插入空行了。