=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)

示例

方法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)

发现有的表格能够打开，有的不能够打开，且打开其他表格正常使用
其两个版本，office2013、office2010出现该问题的有通过研究，它不清楚，解决方案为修改注册表。
自己改注册表文件，双击注册即可。（管理员身份运行）
注册表修改：office2010

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\excel\Security\FileValidation]
"EnableOnLoad"=dword:00000000   

注册表修改：office2013

Windows 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

这样以管理员方式运行，双击注册就可以解决此问题了

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.保存的时候，因为应用到宏，所以保存时需另存为启用宏的工作簿的保存类型，下回可直接重新打开。

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"

处理方法：“开始-运行-输入regedit，

然后依次打开注册表“HKEY_CURRENT_USER--Software--Microsoft--Office--14.0--Excel—Security，

把EnableDEP重命名为：“ExtensionHardening”

然后右击“ExtensionHardening”-修改[M]-把值设为0然后保存

1. 一直都是打不开，操作步骤如下：

   工具,"选项","常规"标签,将"忽略其它应用程序"这个复选项前的勾去除即可.[这种情况很多时候是由于版本或其他原因引起的]
   

2. IgnoreRemoteRequests 的问题

   试试执行以下代码
   

Application.IgnoreRemoteRequests = True
执行完后退出Excel
从我的电脑随便打开一个excel文件,是不是开不了?问题就在这了
再执行 `Application.IgnoreRemoteRequests = False`
退出Excel,一切又变正常了

关键是那句代码在哪里执行，先启动excel，工具－宏－宏…随便取个宏名，但是一定要是字母开头，再点创建，在


"Sub a()
End Sub"
之间插入那句 `Application.IgnoreRemoteRequests = False`
再回到excel，宏－宏...－执行就ok了

从系统中导出数据文件存储为CSV格式的文件，使用记事本打开文字显示没有问题，使用EXCEL打开出现乱码的现象。

原因分析（适用范围）：

一般情况是导出的文件编码的问题。在简体中文环境下，EXCEL打开的CSV文件默认是ANSI编码，如果CSV文件的编码方式为utf-8、
Unicode等编码可能就会出现文件乱码的情况。

解决方法：

开始菜单-----Microsoft office-- Microsoft office 工具-- Microsoft office 2003语言设置，将Microsoft office应用程序默认方式的语言设为“中文（简体）”。

使用记事本打开CSV文件，文件---另存为，编码方式选择ANSI：

保存完毕后，用EXCEL打开这个文件就不会出现乱码了。

1. 在工作中从其他表格复制数据到本表格的过程中产生大量文本框，是表格变大，缓慢.

解决方法：

打开表格后，选择“查找和选择”—“定位条件”

   或者按ctrl+G ，选择“定位条件”如图：

    然后选择“对象”点击“确定”。

    然后等待，定位文本框，这个过程需要很长时间，可能会出现表格无响应的现象，等待出现文本框全部定位完成，点击delete删除.
    ![10.jpg][4]
    然后重新定位，会出现以下现象。

   说明已经删除完毕，这时保存表格，会发现表格小了很多，也不会再卡了。

Excel2010行数：1至1048576，列数：A至XFD，共计(16384)列。无法将非空的行挤出去，所以无法插入

解决方法：

找到最后一行，即使是没有数据单元格内或者有空格，有空格也是非空，即使没有空格，单元格设置了格式也为非空。选中最后一行单元格清除格式，
并清除多行单元格格式，重新插入空行，如图：

点击确定，就可以插入空行了。