[已解决]求代码！！！

hua221

又来请前辈们帮忙了。：）

最佳答案

月排行榜 / 总排行榜

wp8680

2015-7-8 20:47

Sub Start()
    For i = 2 To 601
        For j = 7 To 16
            If Cells(i, "C") Like Cells(1, j) Then
                'Cells(i, "b").Copy Cells(i, j)
                Cells(i, j) = "中"
            Else
                If i >= 3 Then Cells(i, j) = IIf(Cells(i - 1, j) = "中", 0, Cells(i - 1, j)) + 1
            End If
        Next
    Next
End Sub

跳转到最佳答案楼层

wp8680

Sub Start()
    For i = 2 To 601
        For j = 7 To 16
            If Cells(i, "C") Like Cells(1, j) Then
                'Cells(i, "b").Copy Cells(i, j)
                Cells(i, j) = "中"
            Else
                If i >= 3 Then Cells(i, j) = IIf(Cells(i - 1, j) = "中", 0, Cells(i - 1, j)) + 1
            End If
        Next
    Next
End Sub

hua221

wp8680 发表于 2015-7-8 20:47
Sub Start()
    For i = 2 To 601
        For j = 7 To 16

问题解决，感谢WP8680！！！！！！！！！！！！！