主题：新手学习中，在练习中找不到相关资料4

单数这样写

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 If
Next

合计行，样式是无法控制的，除非你用汇总模式。