VBA格式化工作簿示例

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA 如下图 1 所示的数据工作表 Sheet1 ，列 C 中有一系列不同的重复值。 图 1 下图 2 是标题行，位于工作表 Sheet2 中。 图 2 现在，想将工作表 Sheet1 格式化如下图 3 所示，即以列 C 中相同的数据为一块，添加标题和名称行。 图 3 可以使用 VBA 代码来快速格式化。在 VBE 中插入一个标准模块，输入下面的代码： Sub Reformat() Dim aryColD() As String Dim cntColD As Long Dim i As Long Dim rowLast As Long Dim rowLastInBlock As Long Application.ScreenUpdating = False With Worksheets( "Sheet1" ) .ResetAllPageBreaks    rowLast = .Cells(.Rows.Count, 1 ).End(xlUp).Row cntColD = 1 ReDim Preserve aryColD( 1 To cntColD) aryColD(cntColD) = 1 For i = 2 To rowLast - 1       If  .Cells(i,  3 ).Value  < > .Cells(i +  1 ,  3 ).Value  Then cntColD = cntColD + 1        ………………………………