单数这样写
For Each c As Col In Tables("表a").Cols If c.name.StartsWith("H") Then If c.name.Replace("H", "") Mod 2 = 1 Then Tables("表a").current(c.name) = 1 Else Tables("表a").current(c.name) = Nothing End If End IfNext
合计行,样式是无法控制的,除非你用汇总模式。