一段隔列将选择区域字体加粗和一段将选择区域的空格填0的excel宏代码

'隔列加粗
Sub BoldColumns()
   Dim col
   For Each col In Selection.Columns
       If col.Column Mod 2 = 0 Then col.Font.Bold = True
   Next
End Sub

'空格填0
Sub zeros()
   Dim cel
   For Each cel In Selection.Cells
   If cel.Value = "" Then
       cel.Value = "0"
       cel.Interior.ColorIndex = 1
       cel.Interior.Pattern = xlSolid
       cel.Font.ColorIndex = 2
   End If
   Next
End Sub