推荐阅读
excel2003表格中如何修改、查找和替换以及删除数据
我们在excel2003中数据输入后，有时候需要对数据进行编辑，包括对数据的修改、查找和替换以及删除等操作，今天我们就来共同学习一下excel2003表格中修改、查找和替换以及删除数据的操作方法。 一、修改数据 在对Excel表格进行编辑时，难免会有错误出现，此时需要修改已经输入的数据。在Excel 2003中修改某个单元格中的数据，主要有以下3种方法。 1、在单元格中修改：双击要修改数据的单元格，接着定位插入符，然后修改数据，修改完成后按【Enter】键即可。 2、在编辑栏中修改：单击要修改数据的单元格，然后单击编辑栏并在其中修改数据，修改完成后按【Enter】键即可。 3、修改单元格全部数据：单击要修改数据的单元格，然后直接输入新数据，此时单元格中的原数据将全部被替换，修改完成后按【Enter】键即可。 若要清除单元格内容，可选中要清除内容的单元格或单元格区域，然后按【Delete】键。 二、查找和替换数据 如果工作表中的数据量很大，在其中查找数据就会非常困难，此时可利用Excel提供的查找和替换功能，快速查找符合条件的数据，并能对其进行统一替换。 在Excel中查找和替换数据的操作方法与在Word中相同，此处不再赘述。用户需要注意的是，在“查找和替换”对话框中单击“选项”按钮展开对话框(参见图1)后，可进行如下一些与Word中的查找和替换不同的设置。
如何给excel2019表格中折线图表添加线条
在excel2019中为折线图表添加线条可以更快速、准确地查看折点，从而让我们可以更好的进行数据分析和对比，给excel2019表格中折线图表添加线条的具体操作步骤如下。 1、更改图表类型 选择图表，单击【设计】选项卡下【类型】选项组中的【更改图表类型】按钮，在【更改图表类型】对话框中选择【带数据标记的折线图】图表类型。单击【确定】按钮，效果如下图所示。图1 2、单击【垂直线】选项 选择图表，单击【设计】选项卡【图表布局】选项组中的【添加图表元素】按钮，在弹出的下拉菜单中单击【线条】➢【垂直线】选项。图2 3、查看效果
wps文字排序行距设置
wps文字排序行距设置？我们在利用WPS文档与Word文档进行日常办公时，经常需要输入各种各样的文档，输入后我们难免要更改文章的行间距，但是这时候我们就会遇到一个问题，就是无论我们怎么去点行间距的倍数，文章都丝毫没有改变，这是因为什么呢，今天我们就来教大家在WPS文档与Word文档当中如何改变行间距，具体怎么操作呢，一起来学习一下吧。单击工具栏开始下的段落标识，弹出段落的对话框，将“如果定义了文档网格，则与网格对齐”前面的对勾取消掉，单击确定。然后再次单击段落间距，选择1.5倍间距时，我们看到文档的行间距就已经更改过来了。那么，在WPS文字与Word文字当中，正确调整好行间距的方法，是不是非常简单呢，你学会了吗
excel怎么使用widechar函数?
widechar函数是将字符串文本由单字节转换为双字节。下面和小编学习怎么正确使用这个函数吧! excel使用widechar函数 1、首先我们打开一个样表。 2、插入widechar函数，函数的格式是=widechar(text)。 3、text参数是必需参数，可以是输入的字符串文本，也可以是引用单元格。 4、数字和英文字母是半角字符也就是单字节字符，转换后会返回全角字符也就是双字节字符。 5、大写英文字符本身编码是单字节，一样会转换为双字节字符。
最新发布
excel改变鼠标指针形状的VBA代码
可以通过设置Application.Cursor属性改变鼠标指针形状。如在XP中下面的语句将鼠标指针的形状改变为沙漏状，这种形状的鼠标指针表示系统比较繁忙。Application.Cursor = xlWait改为I型指针：改变鼠标指针形状后，Excel不会自动恢复，用下面的语句恢复默认指针形状：Application.Cursor = xlDefaultApplication.Cursor = xlIBeam
excel打开和关闭光驱的宏代码
用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是：1.按Alt+F11打开VBA编辑器。2.在代码窗口中输入下列代码：Private Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ByVal hwndCallback As Long)Sub OpenDefaultCDDVD()‘打开光驱mciSendStringA "Set CDAudio Door Open", 0&, 0, 0End SubSub CloseDefaultCDDVD()‘关闭光驱mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0End Sub
excel利用VBA判断工作表是否存在
下面的VBA代码可以判断当前Excel工作簿中的某个工作表是否存在，如果指定的工作表不存在，则以指定的工作表名新建一个工作表，如果指定的工作表已存在，则给出一个提示，并激活该工作表。下例中指定的工作表标签为“一月”，可根据实际进行修改。Sub IsSheetExist()Dim ws As WorksheetDim sName As StringsName = "一月" ‘指定工作表On Error Resume NextSet ws = Sheets(sName)If ws Is Nothing Then ‘指定的工作表不存在Sheets.Add.Name = sNameElse ‘指定的工作表已存在MsgBox "“" & sName & "”工作表已存在。"ws.ActivateEnd IfEnd Sub
excel利用VBA互换两个单元格或区域中的数据
有时需要在Excel工作表中互换两个区域中的数据，如果区域相邻可以直接用拖动鼠标并按住Shift键的方法进行互换。而当两区域不相邻且两个区域中的数据量较大时用VBA则较为快捷。例如在互换两列时可以直接单击工作表上方的列标题选择整列，然后执行代码互换数据。在工作表中选择两个形状相同的、无公共部分的区域，然后执行下面的代码，即可互换两区域中的数据。Sub TwoAreasSwap()Dim TheArea1, TheArea2 As VariantIf Selection.Areas.Count <> 2 ThenMsgBox "请选择两个区域！"Exit SubElseIf Selection.Areas(1).Cells.Count <> Selection.Areas(2).Cells.Count Or _Selection.Areas(1).Rows.Count <> Selection.Areas(2).Rows.Count ThenMsgBox "请选择两个形状相同的区域！"Exit SubElseTheArea1 = Selection.Areas(1).CellsTheArea2 = Selection.Areas(2).CellsSelection.Areas(1).Cells = TheArea2Selection.Areas(2).Cells = TheArea1End IfEnd Sub
exce利用自定义函数去掉字符串中的数字
如果要去掉某个字符串中的所有数字，例如将一个字符串“Excel123”去掉数字后变为“Excel”，可以用自定义函数来实现。按Alt+F11打开VBA编辑器，单击菜单“插入→模块”，在右侧的代码窗口中输入自定义函数：Function RemoveNums(theString As String)Dim eachChar, Temp As StringDim i As IntegerTemp = ""For i = 1 To Len(theString)eachChar = Mid(theString, i, 1)If Asc(eachChar) < 48 Or Asc(eachChar) > 57 ThenTemp = Temp & eachCharEnd IfNextRemoveNums = TempEnd Function假如包含数字的字符串在A1单元格，在B1单元格中输入=RemoveNums(A1)即可返回一个去掉数字后的字符串，如果字符串全部由数字组成，则返回空字符串。
利用excel自定义函数显示单元格内的公式
在Excel中选择某个单元格后，在编辑栏中会显示单元格内的公式，但编辑栏内不可能同时显示多个单元格中的公式。反复按快捷键Ctrl+`（“`”位于数字键“1”的左侧），可以切换显示工作表中的所有公式，但无法同时显示公式的计算结果和公式本身。复制某个单元格内的公式，然后将其粘贴到其他单元格中，并在“=”号前添加一个英文单引号，可以以文本形式显示该公式，但该方法所显示的公式不能随公式的改变而改变，另外批量操作也稍显繁琐。而用下面的一个简单自定义函数，不仅可以在单元格中显示其他单元格内的公式，而且还能随公式的改变而自动改变，这样就可以快速同时显示公式的计算结果和公式了。步骤如下：1.按Alt+F11，打开VBA编辑器。2.单击菜单“插入→模块”，在代码窗口中粘贴代码：Function ShowFormula(cell As Range)ShowFormula = cell.FormulaEnd Function3.返回Excel工作表界面。假如包含公式的单元格在B2中，在C2输入公式：=ShowFormula(B2)即可显示B2单元格中的公式，然后用填充的方法显示其他单元格内的公式。
利用excel自定义函数去掉字符串中的重复字符
如果要在Excel中将单元格内字符串中的重复字符去掉，重复的字符仅保留一个，如将字符串“1232345667”变成“1234567”，可以用自定义函数实现。 步骤如下：1.按Alt+F11，打开VBA编辑器。2.单击菜单“插入→模块”，在代码窗口中粘贴代码：Function RemoveDupChar(theString As String) As StringDim i As IntegerFor i = 1 To Len(theString)If InStr(RemoveDupChar, Mid(theString, i, 1)) = 0 And _Mid(theString, i, 1) <> " " Then _RemoveDupChar = RemoveDupChar & Mid(theString, i, 1)NextEnd Function3.返回Excel工作表界面。假如字符串在A1单元中，在B1单元格中输入公式：=RemoveDupChar(A1)该自定义函数还可以将多个单元格中的字符串合并后去重复，如A6单元格为“12345”，A7单元格为“23456”，在B6单元格输入公式：
利用VBA获取Excel最近使用的工作簿列表
下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中，如果通过“Office按钮（或“文件”选项卡）→Excel选项→高级”设置显示“最近使用的文档”数量大于“0”，该代码可以显示最近使用的最多50个工作簿名称。而对于Excel 2003，A列中显示的工作簿名称数量与“文件”菜单底部所显示的最近使用文件数量相同。按Alt+F11，打开VBA编辑器，在右侧代码窗口中输入下列代码：Sub GetMRUList()On Error Resume NextDim i, MRUNum As IntegerMRUNum = Application.RecentFiles.MaximumApplication.RecentFiles.Maximum = 50Range("A1:A50").ClearFor i = 1 To 50Cells(i, 1) = Application.RecentFiles(i).PathNext iApplication.RecentFiles.Maximum = MRUNumEnd Sub运行代码，即可在A列中显示最近使用的工作簿列表。
excel保存工作簿时提醒指定单元格不能为空解决方案
在工作中有时需要把设计好的电子表格给其他用户填写，表格中的一些单元格为必填项。虽然可以通过设置颜色、批注等方式提醒用户，但仍有一些用户会忘记填写。这时可以用通过下面的宏代码，当用户在保存工作簿时进行提醒，如果指定的单元格为空则不能保存工作簿。假如工作簿中“Sheet1”表的E6单元格为必填，步骤如下：1.按Alt+F11打开VBA编辑器，在“工程”窗口中双击“ThisWorkbook”。2.在代码窗口中输入下列代码：Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)If Worksheets("Sheet1").Range("e6") = "" ThenMsgBox "Sheet1表的E6单元格不能为空！", , "提醒"Worksheets("Sheet1").ActivateActiveSheet.Range("e6").SelectCancel = TrueEnd IfEnd Sub当Sheet1表的E6单元格为空时，无论用哪种方式（如另存为、快捷键等）保存工作簿，Excel会弹出一个对话框提醒用户并跳转到指定的单元格。
如何快速将多个excel工作表批量另存为单独的工作簿
有时会遇到这种情况，某个Excel工作簿中包含许多工作表，需要把其中的某个工作表发送给其他用户，或者将某几个工作表发送给不同的用户，通常的做法是将这些工作表移动或复制到新工作簿中，保存后再发送给他们。当工作表的数量较多时，逐一手动操作显得有些繁琐，这时用下面的VBA代码就非常方便了，方法如下：按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码：Sub SaveSheetAsWorkbook()Dim theName As StringOn Error GoTo Line1For Each sht In ActiveWindow.SelectedSheetssht.CopytheName = ThisWorkbook.Path & ThisWorkbook.Name & "_" & sht.Name & ".xls"ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormalActiveWindow.CloseNextLine1:End Sub关闭VBA编辑器，返回Excel界面，选择需要单独保存为工作簿的工作表，如果要选择多个工作表，可按Ctrl键或Shift键进行选择，然后按Alt+F8打开“宏”对话框，选择“SaveSheetAsWorkbook”宏执行即可。上述代码将每个所选的工作表单独保存为一个工作簿，存放位置与原工作簿相同，名称为“原工作簿名称_工作表名称.xls”。如果是在新建且未保存的工作簿中运行代码，Excel会将新生成的工作簿保存到默认的文件位置，如“我的文档”。