Excel宏的基本逻辑语句

IF语句

Sub 增减会计双下划线()
' 增减会计双下划线 宏
    If Selection.Font.Underline = xlUnderlineStyleDoubleAccounting Then
        Selection.Font.Underline = xlUnderlineStyleNone
    Else
        Selection.Font.Underline = xlUnderlineStyleDoubleAccounting
    End If
End Sub

For 循环和宏的相对引用、绝对引用

Sub 添加格式()
' 添加格式 宏
    Range("B1").Select
    
    ActiveCell.Range("A1:A6").Select
    
    For counter =