1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，Sub 填充代码区域空白单元格()Dim i As Long, rng As Range伊怕锱鳏Range("A1:K12000").Activate '激活一个区域，也可以使用鼠标选择一个区域，然后省了这句'For Each i In Selection 'If i = "SHI" Or i = "线名" Then 'i.Offset(-1).RowHeight = 35 'Cells(1, 11).ColumnWidth = 10 'ActiveWindow.RangeSelection.ColumnWidth = w 'ActiveWindow.RangeSelection.RowHeight = h 'End If'NextFor i = 0 To 100 Rows(1 + i * 8).RowHeight = 30 Rows(2 + i * 8).RowHeight = 35 Rows(2 + i * 8).Font.Size = 18 Rows(3 + i * 8).RowHeight = 30 Rows(3 + i * 8).Font.Size = 11 Rows(4 + i * 8).RowHeight = 30 Rows(4 + i * 8).Font.Size = 11 Rows(5 + i * 8).RowHeight = 30 Rows(5 + i * 8).Font.Size = 11 Rows(6 + i * 8).RowHeight = 245 Rows(7 + i * 8).RowHeight = 245 Rows(8 + i * 8).RowHeight = 30 Columns(1).ColumnWidth = 0 Columns(2).ColumnWidth = 6 Columns(3).ColumnWidth = 6 Columns(4).ColumnWidth = 9 Columns(5).ColumnWidth = 9 Columns(6).ColumnWidth = 9 Columns(7).ColumnWidth = 10 Columns(8).ColumnWidth = 10 Columns(9).ColumnWidth = 10 Columns(10).ColumnWidth = 10Range("B" & (2 + i * 8) & ":J" & (2 + i * 8)).Merge With Range("B" & (2 + i * 8)) .Value = "涵洞设备卡片" .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter '.Font.Bold = True .Font.Bold = False .Font.Name = "黑体" End WithRange("B" & (3 + i * 8) & ":C" & (3 + i * 8)).Merge With Range("B" & (3 + i * 8)) .Value = "设备编号：" .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = False .Font.Name = "宋体" End With With Range("D" & (3 + i * 8)) .Value = Sheet2.Range("E" & (2 + i)).Value .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = False .Font.Name = "宋体" End With With Range("B" & (4 + i * 8)) .Value = Sheet2.Range("F1").Value .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = False
5、接着我们点击上传功能区当中的视图，然后在列表当中我们点击工具栏，找到编辑工具，点击打开，
6、最后在页面右上角的位置，我们就可以看到编辑工具栏了，我们还可以活动来调节编辑工具栏的位置，方便我们使用，
