求大师帮我把代码简写一下

perfect131

Dim i, j, x
   i = 21
   j = 21
   Do While i < 121
        If i = 21 Or i = 50 Or i = 87 Or i = 116 Then
            x = i + 5
            Do While i < x
                If Sheet3.Cells(j, 11) = "留" Then Cells(i, 31).Value = Sheet2.Cells(i, "D").Value '-※-1
                i = i + 1
            Loop
            j = j + 1
        End If
        If i <> 21 Or i <> 50 Or i <> 87 Or i <> 116 Then
            x = i + 4
            Do While i < x
                If Sheet3.Cells(j, 11) = "留" Then Cells(i, 31).Value = Sheet2.Cells(i, "D").Value '-※-1
                i = i + 1
            Loop
            j = j + 1
        End If
    Loop

山菊花

838833928 发表于 2021-5-11 10:44
大佬，，不好意思，，结果还是不对

楼上代码已修改，请测试。

laoshenji

山菊花 发表于 2021-5-11 12:26
楼上代码已修改，请测试。

总版主，有时间请您指导一下，可否？谢谢！http://club.excelhome.net/thread-1584622-1-1.html

山菊花

laoshenji 发表于 2021-5-11 17:19
总版主，有时间请您指导一下，可否？谢谢！http://club.excelhome.net/thread-1584622-1-1.html

理解能力不行，听不懂。帮不了，抱歉。

laoshenji

山菊花 发表于 2021-5-11 20:15
理解能力不行，听不懂。帮不了，抱歉。

总版主别见怪，已按您的指点更新了附件。还望总版主不计前嫌，鼎力相助。