推荐阅读
excel 如何缩小格式较大的文件 技巧
看起来表格中并没有存在大量的数据，但是文件的格式却越来越大。这说明表格里包含了许多看不见的多余信息。如果遇见明明没有录入大量的数据，但文件的格式却异常大的情况时，请在文件内的各个工作表中确认“最后一个单元格”的位置，这里可以确认是否存在异常情况。“最后一个单元格”是指位于工作表中有效范围内的右下方的单元格。如下表，含有具体数据的单元格的范围内位于右下的单元格是 E15，它就是这张工作表的“最后一个单元格”。最后一个单元格为 E15的表格可以使用定位功能确认“最后一个单元格”的位置。或者用快捷键Ctrl +End 也可同样定位“最后一个单元格”，我在此说明一下启动定位功能的方法。➊ 按Ctrl +G 打开【定位】➛点击【定位条件】。➋ 选择“最后一个单元格”，点击【确定】。于是，工作表中最后一个单元格 E15处于被选中的状态。最后一个单元格 E15处于被选中的状态这样就说明此表处于正常状态，并没有多余信息。
excel怎么给单元格定义名称？
想要在Excel表格中给某个区域的单元格定义名称该如何操作呢?有些朋友可能从来没想过这个问题，那么就一起来学习一下如何操作吧!下面是操作教程。 Excel教程 excel怎么给单元格定义名称 一、起名的方法。 选取一个单元格 或单元格区域，在左上地址栏中输入名称，然后按enter键结束输入。命名完成。当然你也可以通过名称管理器完成命名。 二、命名的用途 1、在公式可以直接使用名称代替这个区域。如 =vlookup("S1",工资级别,2,0) 2、克服条件格式、数据有效性不能异表引用数据的限制。 3、定义名称后可以在地址栏中看到定义的名称，这时无论在本作簿中的任一个工作表中，你只需要在地址栏中选取“工资级别”，就可以马上跳转到"工资级别"区域所在的工作表并选中这个区域。
wps文字2016插入图片如何随意移动
在WPS文字的编辑中，很多时候都会使用到插入图片的功能，但是有些人想要能够实现随意移动。以下是小编为您带来的关于wps文字2016插入图片随意移动，希望对您有所帮助。 wps文字2016插入图片随意移动 1、当我们插入一张图片时，我们发现图片的位置只能是光标所在的位置。如果我们随意的挪动图片，要么是挪动不了，要么挪动后会对我们的文章段落产生影响。 2、我们首先需要单击选中该插入的图片。点中的图片四周会出现8个小色块，这表明我们已经选中了该图片。 3、在工具栏上此时会多出一个“图片工具”，在“图片工具”的列表中我们需要找到“环绕”工具。 4、点击“环绕工具”下方的倒三角。 5、在弹出的列表选项中选择“浮于文字上方”这个选项 6、单击选中图片，并按住鼠标的左键对图片进行拖拽。此时是不是可以对图片进行任意的摆放了。 7、最终的效果。
excel2007如何去除重复项数据并求和
在excel数据处理过程中，有时表格中会出现同一个对象，对应多次数据结果的情况，这时候我们就要用到excel中合并同类项(去除重复项)，最后对数据进行求和的。那具体该怎么操作呢?下面让小编为你带来excel2007去除重复项数据并求和的方法。 excel2007去重复求和步骤如下： 01打开一个excel文件。 02可以看到同一个对象会出现多次，需要对每个对象的数据单独进行求和。首先复制对象那一列即A列数据，复制到D列。 03选中D列数据，点击“数据”，选择“删除重复项”。 04弹出对话框，默认“数据包含标题”，点击“确定”。 05弹出对话框，点击“确定”。 06在E2内输入=SUMIF(A2:A10,D2,B2:B10),其中括号中第一部分为原始对象区域;括号第二部分为所针对的对象，此处填写D2或者A2，结果是一样的;括号最后一部分代表全部的原始数目所在区间。 07在E2单元格处输入的函数后点击回车。 08在E2单元格右下方，下拉填充公式得到结果。
最新发布
excel批量提取超链接中的地址
如果Excel表格单元格中包含有许多用文本形式显示的超链接，如“给我发邮件”、“访问我的网站”等，要逐一查看所有超链接的地址，用手工的方法显得太繁琐，我们可以用自定义函数来批量提取这些超链接中的地址，将下列代码插入到标准模块中： Function GetURL(rng As Range) As StringOn Error Resume NextGetURL = rng.Hyperlinks(1).AddressEnd Function使用方法是在单元格中输入公式，假如单元格D6中含有超链接：=geturl(D6)还可以使用下面的代码将工作表中的所有超链接地址全部显示出来，运行代码前先备份工作簿，因为它会在含有超链接的单元格的右侧显示其地址，有可能会破坏工作表结构。Sub ExtractHL()Dim HL As HyperlinkFor Each HL In ActiveSheet.HyperlinksHL.Range.Offset(0, 1).Value = HL.AddressNextEnd Sub
避免excel工作表函数在VBA中产生运行时错误
大家知道大多数的Excel工作表函数可以用在VBA中，通过下面的方法来调用，例如对A1:A10单元格求和：Sub Sum1()MsgBox WorksheetFunction.Sum(Sheet1.Range("A1:A10"))End Sub或：Sub Sum2()MsgBox Application.Sum(Sheet1.Range("A1:A10"))End Sub但是如果在单元格中包含错误，例如上例中的A1:A10区域包含一个“#DIV/0!”错误，运行上述代码后将产生运行时错误。例如出现类似下图的提示： 为避免出现这样的错误，我们可以将单元格中的错误用数值“0”取代。用下面的代码：Sub ReplaceErrors()On Error Resume NextWith Sheet1.Range("A1:A10").SpecialCells(xlCellTypeFormulas, xlErrors) = 0MsgBox WorksheetFunction.Sum(.Cells)End WithOn Error GoTo 0End Sub或者先进行一个错误检查，并给出提示：Sub CheckForErrors()Dim rErrCheck As RangeOn Error Resume NextWith Sheet1.Range("A1:A10")Set rErrCheck = .SpecialCells(xlCellTypeFormulas, xlErrors)If Not rErrCheck Is Nothing ThenMsgBox "指定的单元格中包含错误！"Application.Goto .SpecialCells(xlCellTypeFormulas, xlErrors)ElseMsgBox WorksheetFunction.Sum(.Cells)End IfEnd WithOn Error GoTo 0End Sub
EXCEL利用VBA播放WAV声音文件
如果用VBA代码播放WAV声音文件，可以用下面的代码：Private Declare Function sndPlaySound32 _Lib "winmm.dll" _Alias "sndPlaySoundA" ( _ByVal lpszSoundName As String, _ByVal uFlags As Long) As LongSub PlayWavFile()sndPlaySound32 "C:\Windows\Media\ding.wav", 0&End Sub运行上述代码将播放“C:\Windows\Media”文件夹中的ding.wav声音文件。
excel利用VBA在标题栏中显示工作簿的路径
通常，当我们打开一个Excel工作簿时，标题栏中仅仅显示一个简单的文件名。我们可以用下面的VBA代码，让工作簿在打开时在标题栏显示其路径和文件名：按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“ThisWorkBook”，在右边的代码窗口中输入以下代码：Private Sub Workbook_Open()ActiveWindow.Caption = ActiveWorkbook.FullNameEnd Sub需要注意的是，上述代码只是在工作簿打开时运行，如果将工作簿另存为其他名称，在上述代码未运行的前提下，标题栏中的路径不会改变。
在excel用VBA更改批注的作者
在Excel中，当光标移动到包含批注的单元格中时，通常会在状态栏和批注中显示批注者的名称。如果需要将批注者改为其他人，可以用下面的VBA代码。以后再插入新的批注，也将使用新输入的名称。使用前先将代码中的“新作者”和“原作者”按照需要进行替换。Sub ChangeCommentName()Dim ws As WorksheetDim cmt As CommentDim strOld As StringDim strNew As StringDim strComment As StringstrNew = "新作者"strOld = "原作者"Application.UserName = strNewFor Each ws In ActiveWorkbook.WorksheetsFor Each cmt In ws.CommentsstrComment = Replace(cmt.Text, strOld, strNew)cmt.Deletecmt.Parent.AddComment Text:=strCommentNext cmtNext wsEnd Sub
excel在宏对话框中不显示宏命令名称
如果Excel工作簿中包含宏命令，可以通过宏对话框来查看这些宏命令名称。方法是单击菜单“工具→宏→宏”，或按Alt+F8打开“宏”对话框。例如如下的代码： 在工作表中打开宏对话框： 有时我们不希望使用者通过宏对话框来运行宏命令，这时可以在代码的前面加上“Private”关键字。如：Private Sub test()……End Sub这样，当打开宏对话框后将看不到宏命令名称。
如何在Excel中查找显示为井号（#）的单元格
有时打印Excel表格后发现有些单元格显示为井号（#），这些井号（#）并非手工输入的，而是Excel中的一种错误处理方法。例如当列宽不足或日期和时间为负数时，Excel就将这些单元格显示为井号（#）。处理的方法很简单，对于包含数字且显示为井号（#）的单元格，调整一下列宽或设置单元格格式为“缩小字体填充”；对于第二种情况，检查并修正公式即可。如果表格中的内容较多，一时无法看清哪些单元格包含错误的井号（#），可以用下面的VBA代码在当前工作表中查找，步骤如下：1.选择包含井号（#）的工作表，按Alt+F11，打开VBA编辑器。2.在“代码”窗口中输入下列代码：Sub 查找单元格井号()Dim rng As RangeFor Each rng In ActiveSheet.UsedRangeIf Left(rng.Text, 1) = "#" Thenrng.SelectMsgBox rng.Address & " 单元格包含#号"End IfNext rngEnd Sub3.运行代码。
用VBA代码在Excel状态栏中显示提示信息
当我们在运行一个执行时间稍长的VBA代码时，可以用下面的VBA代码在状态栏中显示一些信息来提示用户：Application.StatusBar = "提示信息"代码运行完毕，再恢复默认状态栏：Application.StatusBar = FALSE例如下面的代码在状态栏中显示“正在运行，请稍后……”的提示信息，显示时间为5秒钟。Sub DisplayMessageOnStatusbar()‘开始执行代码Application.DisplayStatusBar = True ‘显示状态栏Application.StatusBar = "正在运行，请稍后……" ‘状态栏显示信息‘5秒钟后恢复默认状态栏Application.Wait Now + TimeValue("00:00:05")Application.StatusBar = FalseEnd Sub
excel获取屏幕分辨率的VBA代码
用下面的代码可以获取屏幕分辨率，需将其放入模块中运行。1.按Alt+F11打开VBA编辑器。2.单击菜单“插入→模块”，在模块中输入下列代码并运行：Declare Function GetSystemMetrics32 Lib "user32" _Alias "GetSystemMetrics" (ByVal nIndex As Long) As LongSub DisplayMonitorInfo()Dim X As Long, Y As LongX = GetSystemMetrics32(0) ‘ 宽度（像素）Y = GetSystemMetrics32(1) ‘ 高度（像素）MsgBox "屏幕分辨率为：" & X & " × " & Y & " 像素"End Sub
如何在Excel中输入数据时自动加入一个时间戳
当我们在Excel中输入或更新数据时，有时需要自动添加一个时间戳，表示当前数据的最新更新时间。如下图所示，当在C列更新数据时，在D列自动加入更新时的时间。 可以用VBA代码来实现，实现步骤如下：按Alt+F11，打开VBA编辑器。在“工程”窗口中双击“ThisWorkBook”，在右侧的代码窗口中粘贴下列代码：Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)If ActiveSheet.Name <> "Sheet1" Then Exit SubIf Target.Column = 3 Then Target.Offset(0, 1) = NowEnd Sub这样，当“Sheet1”表C列单元格中的内容发生改变时，Excel会自动在D列同一行中的单元格中添加时间。如果要将目标区域指定为C2:C20，可以用下面的代码：Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)If ActiveSheet.Name <> "Sheet1" Then Exit SubWith TargetIf .Column = 3 And .Row > 1 And .Row < 21 Then .Offset(0, 1) = NowEnd WithEnd Sub需要注意的是，当目标区域中的任意单元格内容发生改变，包括删除或更新数据时，都将触发Worksheet.SelectionChange 事件