EXCEL基本操作技巧荟萃全集【绝版好资料，看到就别错过】 .pdf
1 EXCEL基本操作技巧荟萃 目录 Part 1: EXCEL使用六技巧.2 Part 2: EXCEL自学资料第一集.6 Part 3: EXCEL自学资料第二集.51 Part 4: 一天一个小技巧99 Part 5: EXCEL技巧汇总.108 Part 6: EXCEL基础知识技巧在线教程.131 Part 7: EXCEL运用技巧汇总.141 Part 8: EXCEL操作-基础篇168 Part 9: EXCEL问题集锦.212 2 Part 1: EXCELPart 1: EXCEL使用六技巧 返回首页 1.编辑技巧 （1） 分数的输入 如果直接输入1/5，系统会将其变为1月5日，解决办法是：先输入 0，然后输入空格，再输入分数1/5。 （2） 序列001的输入 如果直接输入001，系统会自动判断001为数据1，解决办法是： 首先输入' （西文单引号），然后输入001。 （3） 日期的输入 如果要输入4月5日，直接输入4/5，再敲回车就行了。如果要输入当前日期， 按一下Ctrl+；键。 （4） 填充条纹 如果想在工作簿中加入漂亮的横条纹，可以利用对齐方式中的填充功能。先在一单 元格内填入*或等符号，然后单击此单元格，向右拖动鼠标，选中横向若干单元格，单击格式菜单， 选中单元格命令， 在弹出的单元格格式菜单中， 选择对齐选项卡， 在水平对齐下拉列表中选择填充， 单击确定按钮。 （5） 多张工作表中输入相同的内容 几个工作表中同一位置填入同一数据时，可以选中一张工作表， 然后按住Ctrl键， 再单击窗口左下角的Sheet1、 Sheet2来直接选择需要输入相同内容的多个工作表， 接着在其中的任意一个工作表中输入这些相同的数据，此时这些数据会自动出现在选中的其它工作表之 中。输入完毕之后，再次按下键盘上的Ctrl键，然后使用鼠标左键单击所选择的多个工作表，解除这些工 作表的联系，否则在一张表单中输入的数据会接着出现在选中的其它工作表内。 （6） 不连续单元格填充同一数据 选中一个单元格，按住Ctrl键，用鼠标单击其他单元格，就将这 些单元格全部都选中了。在编辑区中输入数据，然后按住Ctrl键，同时敲一下回车，在所有选中的单元格 中都出现了这一数据。 （7） 利用Ctrl*选取文本 如果一个工作表中有很多数据表格时， 可以通过选定表格中某个单元格， 然后按下Ctrl*键可选定整个表格。Ctrl*选定的区域为：根据选定单元格向四周辐射所涉及到的有数 据单元格的最大区域。这样我们可以方便准确地选取数据表格，并能有效避免使用拖动鼠标方法选取较大 单元格区域时屏幕的乱滚现象。 （8） 快速清除单元格的内容 如果要删除内容的单元格中的内容和它的格式和批注，就不能简单地 应用选定该单元格，然后按Delete键的方法了。要彻底清除单元格,可用以下方法：选定想要清除的单元 格或单元格范围；单击编辑菜单中清除项中的全部命令，这些单元格就恢复了本来面目。 2、 单元格内容的合并 根据需要， 有时想把B列与C列的内容进行合并， 如果行数较少， 可以直接用剪 切和粘贴来完成操作，但如果有几万行，就不能这样办了。 解决办法是：在C列后插入一个空列（如果 D列没有内容，就直接在D列操作），在1中输入=B1红色999999#,#0,_m“吨“;999#,_k_m“千克“;#_k“克“ 可以 看到，使用条件格式，千分符和均匀间隔指示符的组合，不用增加公式的数目就可以改进工作表的可读性 和效率。 另外，我们还可以运用自定义格式来达到隐藏输入数据的目的，比如格式；0只显示 负数和零，输入的正数则不显示；格式；则隐藏所有的输入值。 自定义格式只改变数据的显示外观， 并不改变数据的值，也就是说不影响数据的计算。灵活运用好自定义格式功能，将会给实际工作带来很大 的方便。 5、批量删除空行 有时我们需要删除Excel工作薄中的空行，一般做法是将空行一一找出，然后删除。 如果工作表的行数很多，这样做就非常不方便。我们可以利用自动筛选功能，把空行全部找到，然后一 次性删除。 做法：先在表中插入新的一个空行，然后按下Ctrl+A键，选择整个工作表，用鼠标单击数据 菜单，选择筛选项中的自动筛选命令。这时在每一列的顶部，都出现一个下拉列表框，在典型列的下 拉列表框中选择空白， 直到页面内已看不到数据为止。 在所有数据都被选中的情况下， 单击编辑菜单， 选择删除行命令，然后按确定按钮。这时所有的空行都已被删去，再单击数据菜单，选取筛选项 中的自动筛选命令，工作表中的数据就全恢复了。插入一个空行是为了避免删除第一行数据。 如果想只 删除某一列中的空白单元格，而其它列的数据和空白单元格都不受影响，可以先复制 此列，把它粘贴到 5 空白工作表上，按上面的方法将空行全部删掉，然后再将此列复制，粘贴到原工作表的相应位置上。 6、如何避免错误信息 在Excel中输入公式后，有时不能正确地计算出结果，并在单元格内显示一个 错误信息，这些错误的产生，有的是因公式本身产生的，有的不是。下面就介绍一下几种常见的错误信息， 并提出避免出错的办法。 ）错误值： 含义：输入到单元格中的数据太长或单元格公式所产生的结果太大，使结果 在单元格中显示不下。或是日期和时间格式的单元格做减法，出现了负值。 解决办法：增加列的宽度， 使结果能够完全显示。如果是由日期或时间相减产生了负值引起的，可以改变单元格的格式，比如改为文 本格式，结果为负的时间量。 ）错误值：DIV/0! 含义：试图除以0。这个错误的产生通常有下面几种情况：除数为0、在公式 中除数使用了空单元格或是包含零值单元格的单元格引用。 解决办法：修改单元格引用，或者在用作除 数的单元格中输入不为零的值。 ）错误值：VALUE! 含义：输入引用文本项的数学公式。如果使用了不正确的参数或运算符，或 者当执行自动更正公式功能时不能更正公式，都将产生错误信息VALUE!。 解决办法：这时应确认公式 或函数所需的运算符或参数正确，并且公式引用的单元格中包含有效的数值。例如，单元格C4中有一个数 字或逻辑值，而单元格D4包含文本，则在计算公式=C4D4时，系统不能将文本转换为正确的数据类型， 因而返回错误值VALUE!。 ）错误值：REF! 含义：删除了被公式引用的单元格范围。 解决办法： 恢复被引用的单元格范围，或是重新设定引用范围。 ）错误值：N/A 含义：无信息可用于所要执行 的计算。在建立模型时，用户可以在单元格中输入#N/A，以表明正在等待数据。任何引用含有#N/A值的单 元格都将返回#N/A。 解决办法：在等待数据的单元格内填充上数据。 ）错误值：NAME? 含义：在公 式中使用了Excel所不能识别的文本，比如可能是输错了名称，或是输入了一个已删除的名称，如果没有 将文字串括在双引号中，也会产生此错误值 解决办法：如果是使用了不存在的名称而产生这类错误，应 确认使用的名称确实存在；如果是名称，函数名拼写错误应就改正过来；将文字串括在双引号中；确认公 式中使用的所有区域引用都使用了冒号（：）。例如：SUM（C1：C10）。 注意将公式中的文本括在双引 号中。 ）错误值：NUM! 含义：提供了无效的参数给工作表函数，或是公式的结果太大或太小而无法 在工作表中表示。 解决办法：确认函数中使用的参数类型正确。如果是公式结果太大或太小，就要修改 公式，使其结果在-1×10307和1×10307之间。 ）错误值：NULL！ 含义：在公式中的两个范围之间 插入一个空格以表示交叉点，但这两个范围没有公共单元格。比如输入：=SUM(A1:A10 C1:C10)，就会产 生这种情况。 解决办法： 取消两个范围之间的空格。上式可改为=SUM(A1:A10 ,C1:C10) 6 Part 2: EXCELPart 2: EXCEL自学资料第一集 自学资料第一集 1、Application.CommandBars(“Worksheet Menu Bar“).Enabled = false 2、cells(activecell.row,“b“).value '活动单元格所在行B列单元格中的值 3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并 将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 Dim shtSheet As Worksheet For Each shtSheet In Sheets If shtSheet.Name = “KK“ Then Exit Sub Next shtSheet Set shtSheet = Sheets.Add(Before:=Sheets(1) shtSheet.Name = “KK“ End Sub 4、Sheet1.ListBox1.List = Array(“一月“, “二月“, “三月“, “四月“)'一次性增加项目 5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中 6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me Me.Unprotect Cells.Locked = False Range(“D11:E11“).Locked = True Me.Protect End Sub 7、Application.CommandBars(“Ply“).Enabled = False'工作表标签上快捷菜单失效 8、Sub aa()'把B1到B12单元格的数据填入c1到c12 For i = 1 To 12 Range(“C“ 录制新宏“，此后可象 平时一样进行有关操作，待完成后停止录制。然后再点击“工具“下拉菜单中“宏“下“宏“的“编辑“选项即可 打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的“帮助“下拉菜单中获得有关的编程帮助。 对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 二)、基本概念 为了学习Excel中的 宏， 我们需要先了解以下一些基本概念。 1、 工作簿： Workbooks、 Workbook、 ActiveWorkbook、 ThisWorkbook Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应 Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示 的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。 在具体使用中可用 Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks(“ 年度报表.xls“)。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打 开的工作簿为2。 2、工作表：Worksheets、Worksheet、ActiveSheet Worksheets集合包含工作簿中所有的工作表，即 一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的 活动状态工作表，即当前显示的一个工作表。 可用Worksheets(index)来引用Worksheet对象，其中index 为工作表名称或索引号；如Worksheets(1)、Worksheets(“第一季度数据“)。工作表索引号表明该工作表 在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为 Worksheets.Count。需要注意的是：在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表 标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号 不一定始终保持不变。 3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChart Chart代表工作簿中的图表。 该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。 Charts 代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图 15 表。 使用Charts(index) 可引用单个Chart图表， 其中index是该图表工作表的索引号或名称； 如Charts(1)、 Charts(“销售图表“)。 图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。 Charts(1) 是工作簿中第一个（最左边的）图表工作表；Charts(Charts.Count)为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工 作表上嵌入式图表的外观和尺寸。 ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有 嵌入式图表的集合。可由ChartObjects(index)引用单个ChartObject，其中index为嵌入式图表的编号或 名称。如Worksheets(“Sheet1“).ChartObjects(1)、Worksheets(“sheet1“).ChartObjects(“chart1“)分 别对应“Sheet1“工作表中的第一个嵌入式图表、以及名为“Chart1“的嵌入式图表。 ActiveChart可以引用 活动状态下的图表，不论该图表是图表工作表，或嵌入式图表。而对于图表工作表为活动工作表时，还可 以通过ActiveSheet属性引用之。 4 4、单元格：、单元格：Cells、ActiveCell、Range、Areas Cells(row,column)代表单个单元格，其中row为行 号，column为列号。如可以用Cells(1,1)、Cells(10,4)来引用“A1“、“D10“ 单元格。ActiveCell代表活 动工作表的活动单元格，或指定工作表的活动单元格。 Range代表工作表中的某一单元格、某一行、某一 列、某一选定区域（该选定区域可包含一个或若干连续单元格区域）或者某一三维区域。 可用Range(arg) 来引用单元格或单元格区域，其中arg可为单元格号、单元格号范围、单元格区域名称。如Range(“A5“)、 Range(“A1:H8“)、Range(“Criteria“)。虽然可用Range(“A1“)返回单元格A1，但用Cells更方便，因为此 时可用变量指定行和列。 可将Range与Cells结合起来使用，如Range(Cells(1,1),Cells(10,10)代表单 元格区域“A1:J10“；而expression.Cells(row,column)返回单元格区域中的一部分，其中expression是返 回Range的表达式，row和column为相对于该区域的左上角偏移量。如由Range(“C5:C10“).Cells(1,1)引用 单元格C5。 Areas为选定区域内的连续单元格块的集合，其成员是Range对象。而其中的每个Range对象代 表选定区域内与其它部分相分离的一个连续单元格块。某些操作不能在选定区域内的多个单元格块上同时 执行；必须在选定区域内的单元格块数Areas.Count上循环，对每个单独的单元格块分别执行该操作。此 时，可用Areas(index)从集合中返回单个Range对象，其中index为单元格块编号；如Areas(1)。 5、 行 与列：Rows、Columns、Row、Column Rows、Columns分别代表活动工作表、单元格区域范围Range、指定 工作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范围中第一 个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1:B2和C3:D4，Rows.Count返回2而不 是4。 可通过Rows(行号)、Columns(列号)来引用相应的行与列；如Rows(3)、Columns(4)分别对应第三行、 D列。 利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均以十进制数表示。 三三) )、处理单元格、处理单元格 16 1、直接赋值与引用 将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在 Excel中最简单的单元格赋值及引用方法。如下例将工作表“Sheet1“A1单元格的值赋给Integer变量I，并 将I+1的值赋给当前工作表中的B1单元格： Dim I As Integer I=Worksheets(“Sheet1“).Cells(1,1) Cells(1,2).Select '选定B1单元格，使其成为当前单元格 ActiveCell=I+1 '以I+1为当前单元格赋值 2、用公式赋值 在宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左 侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）： ActiveCell.Formula=“=AVERAGE(R-6C-4:R-2C-4)“ 3、引用其它工作表中的单元格 当赋值公式 中需要引用其它工作表中的单元格时，在被引用的单元格前加上“工作表名！“即可。如以下即在赋值中引 用了“Sheet1“工作表中的A1至A4单元格： Range(“E10“).Formula=“=SUM(Sheet1!R1C1:R4C1)“ 但需注意 的是：当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号'将工作表名括起来。 如： Worksheets(“Sheet1“).ActiveCell.Formula=“=Max('1-1剖面'!D3:D5)“ 4、引用其它工作簿中的单 元格 在被引用单元格所在工作表名前加上“工作簿名“，即可引用其它工作簿中的单元格。如： ActiveCell.Formula=“=MAX(Book1.xlsSheet3!R1C:RC4)“ 同样需注意的是：当被引用的工作簿名中 含有某些可能引起公式歧义的字符时，需要用中括号“、“及单引号'将工作簿名括起来。如： Cells(1,2).Formula=“=MIN('1995-2000总结.xls1995-1996年'! $A$1:$A$6)“ 5、避免循环引用 在上 述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。 6、添加批注 可按如下 方法格给单元格添加批注： Dim 批注文本 As String 批注文本=“批注示例“ '准备批注文本 ActiveCell.AddComment ' 添 加 批 注 ActiveCell.Comment.Text Text:= 临 时 ' 写 入 批 注 文 本 ActiveCell.Comment.Visible=False ' 隐 藏 批 注 7 、 添 加 、 删 除 、 复 制 、 剪 切 、 粘 贴 单 元 格 Range(“D10“).Insert Shift:=xlToRight ' 在 D10 单 元 格 处 添 加 一 新 单 元 格 ， 原 D10 格 右 移 Range(“C2“).Insert Shift:=xlDown ' 在 C2 单 元 格 处 添 加 一 新 单 元 格 ， 原 C2 格 下 移 Rows(2).EntireRow.Insert '在第2行前添加一空白行，原第2行下移 Columns(3).EntireColumn.Insert ' 在C列前添加一空白列，原C列右移 Columns(“A:D“).Delete Shift:=xlToLeft '删除A列至D列，其右侧列 左移 Rows(“3:5“).Delete Shift:=xlUp ' 删 除 第 3 行 至 第 5 行 ， 其 下 方 行 上 移 Range(“B2“).EntireRow.Delete ' 删 除 第 2 行 Range(“C4“).EntireColumn.Delete ' 删 除 C 列 Range(“B10:C13“).Copy ' 复 制 B10 至 C13 单 元 格 区 域 Cells(1,2).Cut ' 剪 切 B1 单 元 格 Range(“D10“).Select ActiveSheet.Paste '自D10单元格起粘贴剪贴板中的内容 四)、图表 1、工作表图 表 以下为一添加工作表图表的实例。 Charts.Add after:=Worksheets(“Sheet1“) '在“Sheet1“工作表之 后添加新图表工作表 ActiveChart.ChartType=xlXYScatterSmooth '图表类型为XY平滑线散点图 ActiveChart.SetSourceData Source:=Sheets(“结点坐标“).Range(“A1:B69“), PlotBy:= _ xlColumns ' 17 图表数据来源于“结点坐标“工作表的A1至B69单元格，且按列绘图。 ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = “ 节点坐标“ '图表标题“节点坐标“ .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = “x“ 'x轴标题“x“ .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = “y“ 'y轴标题“y“ End With With ActiveChart.Axes(xlCategory) .HasMajorGridlines = True '显示x轴主网格线，默认情况下为显 示 .HasMinorGridlines = True ' 显 示 x 轴 次 网 格 线 ， 默 认 情 况 下 为 不 显 示 End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = True '标出x轴主网格值，默认情况下为标 注 .HasMinorGridlines = False ' 取 消 x 轴 次 网 格 值 标 注 ， 默 认 情 况 下 为 不 标 注 End With ActiveChart.Legend.Position = xlRight '图例显示在图表右侧 2、嵌入式图表 嵌入式图表仅在添加方 式及引用格式上与工作表图表有所不同，而对图表的设置基本类似。详见下例。 Set嵌入表 =ActiveSheet.ChartObjects.Add(0,0,200,300) '在当前工作表(0,0)坐标处添加宽200，高300的嵌入式 图 表 嵌 入 表 .Chart.ChartType = xlColumnClustered ' 图 表 类 型 为 簇 状 柱 形 图 嵌 入 表.Chart.SetSourceData Source:=Sheets(1).Range(“A2:B2“), PlotBy:=xlRows '设置图表数据来源 With 嵌入表.Chart .HasTitle = False '无图表标题 .Axes(xlCategory, xlPrimary).HasTitle = False '无x轴标题 .Axes(xlValue, xlPrimary).HasTitle = False '无y轴标题 End With 五)、工作表 1、添加 Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表 Sheets.Add after:=Sheets(Sheets.Count) ' 在 最 后 工 作 表 后 添 加 新 工 作 表 2 、 移 动 ActiveSheet.Move before:=Sheets(2) '将当前工作表移动至第2工作表之前 3、命名 ActiveSheet.Name=“工作表名“ '将当 前工作表命名为“工作表名“ 4、删除 可以用以下语句删除当前工作表。 ActiveSheet.Delete 但在删除 前Excel会自动弹出提示框， 需在用户确认后方可执行删除。 为避免这一干扰， 可以先用以下语句关闭Excel 的警告提示。 Application.DisplayAlerts = False 在删除完成后，再重新打开Excel的警告提示 Application.DisplayAlerts = True 六)、工作簿 Excel的宏对工作簿的操作主要为保存。 Dim 存盘文 件 名 As String ActiveWorkbook.Save ' 保 存 当 前 工 作 簿 存 盘 文 件 名 =“ 工 作 表 名 “ ActiveWorkbook.SaveAs Filename:= 存盘文件名 '当前工作簿另存为“工作表名.xls“ 在另存时，若指定 的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已存在，也可用关闭Excel 警告提示的方法以免其自动弹出提示框。 63、用VBA的几个误区 1、想通过Excel+vba来编程发财，不管 怎么说，目前这种可能性很小。 2、录制宏后的代码不进行简化，这种情况初学者常犯；或者不屑于用录 制宏，这种相反。 3、喜欢用.select、.copy、.active等，如果不是迫不得已，还是不要用这些东西好。 4、不喜欢用公式、函数，什么都喜欢用程序；活用公式函数是我们学EXCEL中重要的重点，学会嵌套着用， 很多事情都可以解决。譬如表1的A1单元格如果要等于表2的A列中的某个单元格，很多人都是用程序来直 18 接赋值，数量少这也可以，但如果数量很多的话，为何不试用一下offset呢？偏移都指向同一个单元格， 就当是一个变量，改一下这个单元格的值，表1用offset的单元格的值就全部改了。 5、设计输入数据的 界面竟然用用户窗口+文本框之类的东西，天，我为什么要用EXCEL，原因之一不就是图个方便吗？！直接 在工作表中操作就是输入数据最好的方法，如果一些功能你不想给别人用，顶多你屏蔽掉吧。 6、关闭程 序的时候很喜欢退出整个EXCEL，这样自我感觉更象一个完整的程序。其实完全有必要考虑其他用户是否 也在用EXCEL， 所以， 必须做好一下判断， 不要自作聪明全部退出来， 还帮忙把每个工作簿都保存一下。 7、 不喜欢用with，总是workbook(“).worksheet(“).range(“).*一行行排得挺整齐的，还说都用复制， 其实也不麻烦。 8、总想把VBA+EXCEL做得象一个程序一样，其实，就因为它不独立，所以才更加为我们 喜爱，不是吗？ 64、用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！ 使 用Dim语句 Dim a as integer '声明A为整形变量 Dim a '声明A为变体变量 Dim a as string '声明A为字符串变量 Dim a,b,c as currency '声明A,b,c 为货币变量 声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当 前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、 用户定义类型或对象类型。 强制声明变量 Option Explicit 说明：该语句必在任何过程之前出现在模块 中。 声明常数，用来代替文字值。 Const ' 常数的默认状态是 Private。 Const My = 456 ' 声明 Public 常数。 Public Const MyString = “HELP“ ' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = “Hello“, MyDouble As Double = 3.4567 在EXCEL97 中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在 一 起 的 一 片 数 据 全 部 选 中 。 只 要 将 该 段 代 码 加 入 到 你 的 模 块 中 。 Sub My_Select Selection.CurrentRegion.Select End sub 删 除当 前 单 元 格 中 数 据的前 后 空 格 。 sub my_trim Trim(ActiveCell.Value) end sub 使单元格位移 sub my_offset ActiveCell.Offset(0, 1).Select'当 前 单 元 格 向 左 移 动 一 格 ActiveCell.Offset(0, -1).Select' 当 前 单 元 格 向 右 移 动 一 格 ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格 ActiveCell.Offset(-1 , 0).Select'当前 单元格向上移动一格 end sub 如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我 们可以往 sub my_offset 之下加一段代码 on error resume next 注意以下代码都不再添加 sub 代码 名称 和end sub请自己添加! 给当前单元格赋值： ActiveCell.Value = “你好！“ 给特定单元格加 入一段代码: 例如：在单元格中插入“ Range(“a1“).value=“hello“ 又如：你现在的工 作簿在sheet1上，你要往sheet2的单元格中插入“ 1.sheets(“sheet2“).select range(“a1“).value=“hello“ 或 2.Sheets(“sheet1“).Range(“a1“).Value = “hello“ 说明： 1.sheet2被打开，然后在将HELLO“放入到 A1单元格中。 2.sheet2不被打开，将HELLO“放入到A1单元格中。 隐藏工作表 '隐藏SHEET1这张工作表 19 sheets(“sheet1“).Visible=False '显示SHEET1这张工作表 sheets(“sheet1“).Visible=True 有时候我 们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一 个工作簿结束循环预览。 Dim my As Worksheet For Each my In Worksheets my.PrintPreview Next my 得到当前单元格的地址 msgbox ActiveCell.Address 得到当前日期及时间 msgbox date 2) 最小两个：=small(data,1;2) 24、怎样很简单的判断最后一位是 字 母 right(a1)*1 出 错 的 字 母 =IF(ISNUMBER(-RIGHT(A1,1),“ 数 字 “,“ 字 母 “) =IF(ISERR(RIGHT(A1)*1),“字母“,“数字“) 25、不知道-是什么意思？ VALUE(F1)，-F1以及其他的算术 运算的办法如：0+F1，F1-0，F1*1，F1/1以及乘幂的办法等等 这几种方式都是一样的。只要是文本 型数字都可以用这个办法变为数值以便运算；对于逻辑值（TRUE,FALSE)，除了VALUE函数外，其他几种都 可以。 但据说，测试的结果，-F1速度最快 26、请问如何 设置单元格，令其不接受包含空格的字符 选 定A列 数据有效性自定义公式 =iserror(find(“ “,a1) 数据有效性自定义公 式 =len(a1)=len(trim(a1) 27 、 =VLOOKUP(B3,IF(1,0,G$3:G$5,F$3:F$5),2,0) 公 式 中 的 IF(1,0,G$3:G$15,F$3:F$15)作何解释？ 我的理解:1,0的含义是1代表TRUE(即逻辑值为真),0代表 FALSE(即逻辑值为假),公式为 =VLOOKUP(B3,IF(TRUE,FALSE,G3:G17,F3:F17),2,0)也同样正确,这样更 好理解.通过执行IF(TRUE,FALSE,G3:G17,F3:F17)为真,得到G3:G17这列数,由于是数组,再执行FALSE得 到F3:F17,因此 得到一个2列多行的数组. 28、不同工作簿间的引用如何不打开源工作簿、不弹出链接对话框且能自 动更新数据。经过一段时间的摸索，我发现以下方法可供参考。 1、新建工作簿，输入数据（作为源工作 39 簿），保存，保存类型选wk4(1-2-3)(*.wk4)，文件名为book1。 2、再建立一个工作簿，输入要引用源工 作簿的公式，保存文件名称为book2。 3、关闭工作簿。 再打开book2看是不是不出现链接对话框。 或打 开book1，修改一下数据，保存，关闭，再打开book2，是不是已经更新了数据。 另：引用多个源工作簿 也可以，但源工作簿要保存wk4(1-2-3)(*.wk4)类型，我已试过，大家可以试试看。 以上是 winXP+excel2003，较低版本的朋友，请把保存类型选为：wk3或wk1。 29、我的单元格怎么输入时间后前 面自动加了等号,然后2005年就变成了1905年了呢? 工具选项1-2-3帮助转换 lotus 123 公 式 有无打勾？去掉 30、原来的函数是=a1+a4+a7+a10+a13+a16+a19+a22. 现在想用offset来简化公 式 ， 我 只 会 用 比 如 a4=offset(a1,3,0) 的 ， 不 会 弄 出 一 个 数 组 出 来 实 现 上 面 的 效 果 sum(n(offset(a1,(row(1:10)-1)*3,) row(1:10)=1;2;3;4;5;6;7;8;9;10 (row(1:10)-1)*3=0;3;6;9;12;15;18;21;24;27 自A1向下偏移，就是a1、a4、a7、a10、a13、a28 31、未被发现的两个日期格式符号 1、bb或bbbb：如2005-1-1设置自定义格式bb或bbbb,结果为48或 2548,与2005年份的差为543，发现任 何日期这个差数是固定的，经查询有关资料，公元前544元是佛历元年，所以我认为这个与佛历有关 （佛教的英文是B开头的） 2、e：对日期设置自定义格式e，结果是公历的四位年份，为2005-1-1显示为 2005,完全可以代替yyyy格式符号 第一
