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
'Next
For 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 = 10
Range("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 With
Range("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、最后在页面右上角的位置，我们就可以看到编辑工具栏了，我们还可以活动来调节编辑工具栏的位置，方便我们使用，
