vba运行时提示"没有For"

ttggjxl

Sub 填入()
Application.ScreenUpdating = False
Dim h%, i%, j%, k%, s$
    For h = 2 To Sheets.Count
        Sheets(h).[b2:n65536].ClearContents
    Next
    i = Sheets(1).[a1].End(4).Row
    For j = 2 To i
        With Sheets(1)
            s = Sheets(1).Range("a" & j).Value
            .Range("b" & j & ":n" & j).Copy
        End With
        With Sheets(s & "奖罚")
            .Select
            k = Sheets(s & "奖罚").[a65536].End(xlUp).Row + 1
            With .Range("b" & k & ":n" & k)
                .Select
                Selection.PasteSpecial Paste:=xlPasteValues
            End With
            End With
      Next
    Sheets(1).Select
Application.ScreenUpdating = True
MsgBox "填入并完毕！", vbInformation, "提示"
End Sub

xiangbaoan

…………仅供参考…………

qingc0221

多了一个End With