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

写在前面

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

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

自动调整行高列宽

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

Sub 自动调整列宽() Cells.Select Cells.EntireColumn.AutoFitEnd Sub
Sub 自动标准行高() Cells.Select Cells.EntireRow.AutoFitEnd 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 rngEnd 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= TrueEnd Sub

THE

END

创作不易，

您的支持是我坚持的动力，

劳烦动动手指转发、在看