当前位置：首页 > 科技 > 正文

教程 | 这些Excel vba源码，值得收藏（二）

启示号
科技
2年前
264

写在前面

很多时候，编程不是非要写出别出心裁的新东西，更多地是组合与堆砌，就像搭积木一样，那些ExcelVBA的常用写法就像白眉大侠腰间的百宝囊一样，随时随地可以掏出来解决问题，前提是百宝囊里得有货！

下面这些可以收藏进你的百宝囊，希望你能够借此百发百中。

自动调整行高列宽

此代码自动调整工作表中的所有行或列。当运行此代码时，它将选择工作表中的所有单元格，并自动调整所有行高或列宽。

Sub自动调整列宽() Cells.Select Cells.EntireColumn.AutoFit End Sub

Sub自动标准行高() Cells.Select Cells.EntireRow.AutoFit End Sub

取消合并单元格

相当于“主页”选项卡上的取消合并选项，以下代码将取消所选内容中的所有合并单元格，如果需要取消特定范围，可以将selection改成具体范围。

Sub 取消合并() Selection.UnMergeEnd Sub

突出显示内容错误单元格

本方法将文本格式转化为数字格式，即相当于将文本前的撇号去掉。

Sub定位错误单元格() Dim rng As Range For Each rng In ActiveSheet.UsedRange If Not Application.CheckSpelling(word:=rng.Text) Then rng.Style = 'Bad' End If Next rng End Sub

调整图表大小

此宏代码使所有图表的大小相同。可以通过在宏代码中更改图表的高度和宽度。

Sub调整图表() Dim i As Integer For i = 1 To ActiveSheet.ChartObjects.Count With ActiveSheet.ChartObjects(i) .Width = 300 .Height = 200 End With Next iEnd Sub

删除空工作表

检查活动工作簿中的所有工作表，如果工作表为空，则将其删除

Sub 删除空白工作表() Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating= False Application.DisplayAlerts= False For Each Ws In Application.Worksheets If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then Ws.Delete End If Next Application.ScreenUpdating= True Application.DisplayAlerts= True End Sub