【急急急】求助大神，简易vba代码

新手路上

我想把下面几段代码合并成一段代码，应该怎么来合并：
第一段：Sub js()
    Dim sht As Worksheet, i As Integer
    i = 0
    For Each sht In Worksheets
        If sht.Range("J4").Value > 0 Then
        i = i + 1
        Range("AI4").Value = i
        End If
    Next sht
End Sub
第二段：Sub js()
    Dim sht As Worksheet, i As Integer
    i = 0
    For Each sht In Worksheets
        If sht.Range("J5").Value > 0 Then
        i = i + 1
        Range("AI5").Value = i
        End If
    Next sht
End Sub
第三段：Sub js()
    Dim sht As Worksheet, i As Integer
    i = 0
    For Each sht In Worksheets
        If sht.Range("J6").Value > 0 Then
        i = i + 1
        Range("AI6").Value = i
        End If
    Next sht
End Sub
一共到34，也就是接下来的代码都是J后面加1，AI后面加1，一直到J34和AI34.
求大神。

扑腾

    Dim sht As Worksheet, i As Integer
    i = 0
    For k = 4 To 34
        For Each sht In Worksheets
            If sht.Range("J" & k).Value > 0 Then
                i = i + 1
                Range("AI" & k).Value = i
            End If
        Next sht
    Next
End Sub
哎！回帖只是希望你以后发帖别再加急了，毕竟欠妥

新手路上

扑腾 发表于 2018-6-11 22:03
Dim sht As Worksheet, i As Integer
    i = 0
    For k = 4 To 34

您这个代码只是执行了AI4单元格的值啊，AI5到AI34单元格的值都没执行啊。亲。