怎么让vba代码适用所有工作簿？VBA格式化代码示例4-6

怎么让vba代码适用所有工作簿？VBA格式化代码示例4-6Cells.EntireRow.AutoFitCells.SelectVBA是面向对象编程，博大精深，包括我自己也在不断的学习和提高，这里我会分享些一些有用的片段，以弥补我教程的补足。这些片段为了大家更好的领会和掌握，我会用英语和汉语同时发布。今日的内容：VBA格式化代码示例4-6VBA Formatting Codes ExamplesSub AutoFitRows() '自动填充行

【分享成果，随喜正能量】天地无终极，人命若朝霞。生命，是我们唯一且珍贵的财富，当你选择放弃的时候，一切都没有了意义！。

VBA系列教程共十套，我已经全部完成，技术工具系列在不断推出。从这些教程及工具中，大家可以看到VBA确实是一门实用技术。正如我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。

对于学员而言，如果您是入门阶段可以打包选择7.1.3.9教程，第7是入门，第1是入门后的提高，第3字典是必备的VBA之精华，第9是实用的典型案例讲解。如果您有了VBA的一定基础可以根据自己的需要，进行教程的选择及工具的利用，教程提供的程序文件就如一座大型的代码库支持着大家的工作。

工具系列共分两类：一类是容易些的YZ系列，一类是较难些的NZ系列。这些工具是大家学习VBA的好帮手。 对于急用的学员，可以立竿见影解决自己的工作效率问题。其中NZ系列工具还有专门版本资料，提供给已按部就班学习完我所有教程的学员。

VBA是面向对象编程，博大精深，包括我自己也在不断的学习和提高，这里我会分享些一些有用的片段，以弥补我教程的补足。这些片段为了大家更好的领会和掌握，我会用英语和汉语同时发布。今日的内容：VBA格式化代码示例4-6

第二章 VBA格式化代码示例

VBA Formatting Codes Examples

4 自动填充行Auto Fit Rows

Sub AutoFitRows() '自动填充行

Cells.Select

Cells.EntireRow.AutoFit

End Sub

您可以使用此代码自动调整工作表中的所有行。当您运行此代码时，它将选择工作表中的所有单元格，并立即自动填充所有行。

You can use this code to auto-fit all the rows in a worksheet. When you run this code it will select all the cells in your worksheet and instantly auto-fit all the row.

5 删除文字自动换行Remove Text Wrap

Sub RemoveTextWrap() '删除文字自动换行

Range("A1").WrapText = False

End Sub

此代码将帮助您只需单击一下即可从整个工作表中A1单元格删除文本换行。它将首先选择所有列，然后删除文本换行并自动适应所有行和列。

This code will help you to remove text wrap from the entire worksheet with a single click. It will first select all the columns and then remove text wrap and auto fit all the rows and columns.

6 取消合并单元格Unmerge Cells

Sub UnmergeCells() '取消合并单元格

Selection.UnMerge

End Sub

此代码仅使用“主页”选项卡上的取消合并选项。

This code simply uses the unmerge options which you have on the HOME‌ tab.

【分享成果，随喜正能量】

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】长风破浪会有时，直挂云帆济沧海。有希望，就不怕披星戴月；有梦想，就不惧奋不顾身。生活不易，不停的努力就是转机。。