VBA 个人笔记

Sub 循环工作表()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Select
        For i = 2 To 10
            If sh.Cells(i, 6) = "-" Then
                sh.Cells(i, 14) = "-"
            Else
                Exit For
            End If
        Next i
    Next
End Sub