68手游网

一、在原工作表名称后添加文字 例如工作簿中仅包含12个用数字1-12命名的工作表，现在要将每个工作表名称修改为1月、2月、、12月，即在每个工作表名称后添加一个月字。 1.按快捷键Alt+F11，打开VBA编辑器，在右侧的代码窗口中输入下列代码： Sub RenameWorksheets() For i = 1 To Worksheets.Count Worksheets(i).Name = Wo...

如果在Excel中选择了一个或多个区域，用下面的VBA代码可以统计当前工作表所选区域中单元格（或行、列）的数量： 1. 统计选定区域中的单元格数量： Sub CountCellsInSelection() Dim CellsNum As Integer CellsNum = Selection.Count MsgBox 所选区域中的单元格数量为： CellsNum End Sub 2.统计选定区域中所包含的行数，如...

用下面的VBA代码可以同时删除工作簿中所有工作表中的批注： 1.按Alt+F11，打开VBA编辑器。 2.在代码窗口中输入下列代码 Sub RemoveAllComments() Dim sht As Worksheet Dim cmt As Comment For Each sht In ActiveWorkbook.Worksheets For Each cmt In sht.Comments cmt.Delete Next Next End Sub 3.关闭VBA编辑器，按快捷...

显示指定工作表的打印预览，假如该工作表名称为Sheet1： Worksheets(Sheet1).PrintPreview 显示活动工作表的打印预览： Worksheets(Sheet1).PrintPreview 显示工作簿中所有工作表的打印预览： Sheets.PrintPreview 显示某一指定区域的打印预览，如当前工作表的A1:G10区域： ActiveSheet.Range(A1:G10).PrintPreview 显示某...

如果要去掉某个字符串中的所有数字，例如将一个字符串Excel123去掉数字后变为Excel，可以用自定义函数来实现。按Alt+F11打开VBA编辑器，单击菜单插入模块，在右侧的代码窗口中输入自定义函数： Function RemoveNums(theString As String) Dim eachChar, Temp As String Dim i As Integer Temp = For i = 1 To Len(theStrin...

有时需要在Excel工作表中互换两个区域中的数据，如果区域相邻可以直接用拖动鼠标并按住Shift键的方法进行互换。而当两区域不相邻且两个区域中的数据量较大时用VBA则较为快捷。例如在互换两列时可以直接单击工作表上方的列标题选择整列，然后执行代码互换数据。 在工作表中选择两个形状相同的、无公共部分的区域，然后执行...

下面的VBA代码可以将活动工作表中的所有文本字符串的首字母改为大写，对包含公式单元格则不作更改。 Sub CapitalizeFirstLetter() Dim Rng As Range ActiveSheet.UsedRange.Select For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = Application.WorksheetFunction.Proper(Rng.Value) End If N...

用下面的代码可以获取屏幕分辨率，需将其放入模块中运行。 1.按Alt+F11打开VBA编辑器。 2.单击菜单插入模块，在模块中输入下列代码并运行： Declare Function GetSystemMetrics32 Lib user32 _ Alias GetSystemMetrics (ByVal nIndex As Long) As Long Sub DisplayMonitorInfo() Dim X As Long, Y As Long X = GetSystemMe...

在Excel工作表的某个单元格中应用数据有效性设置来制作下拉列表时，如果引用的行或列区域中包含空单元格或重复项，那么在有效性下拉列表中会与原区域中的内容完全相同，也会包含空值或重复项，显得有些不够美观。例如下图是A1单元格的一个下拉列表。 通常可以去掉重复项和空单元格后再设置数据有效性，但如果不想改变单元...

有时我们在Excel中制作的工作表需要反复修改，并保存为多个版本。修改的次数多了，很容易混淆。如果能把工作簿的最后保存日期和时间显示在工作表的某个单元格或页眉页脚中，查看起来就非常方便了。用VBA代码就能够轻松地实现这一点，方法如下： 1.按Alt+F11，打开VBA编辑器。 2.在工程窗口中，双击ThisWorkBook，在右侧的...