Question

每次运行我的代码时，我都会在没有Do的情况下继续获取循环，但是我看不到丢失任何内容或循环错位的地方。我需要此代码来查找特定列中的关键字复制，然后将它们粘贴到摘要选项卡中。

非常感谢您的帮助。

pybot --include Login login.robot

Answer 1

以下部分缺少End If

                              If Range("P" & Trow + thirdLoop).Value <> "" Then

                                    CSKU = Range("P" & Trow + thirdLoop).Value
                                    CDesc = Range("Q" & Trow + thirdLoop).Value
                                    Cstatus = Range("R" & Trow + thirdLoop).Value
                                    CPKG = Range("S" & Trow + thirdLoop).Value

                                    Worksheets("Summary").Activate

                                        SumRow = (ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row) + 1
                                        Range("A" & SumRow).Value = CSKU
                                        Range("B" & SumRow).Value = CDesc
                                        Range("C" & SumRow).Value = "Child"
                                        Range("D" & SumRow).Value = CPKG

                                        Worksheets("Final").Activate

                                    thirdLoop = thirdLoop + 1
                                    Trow = Trow + 1
                                 'missing end if here



                                 Loop

嵌套循环＆amp; ifs，循环没有Do

1 个答案: