Question

我正在尝试遍历数据列表然后复制包含＆＃34; WIP＆＃34;的行。进入第二个标签。但是当我点击执行时代码也不做任何事情。有人可以解释原因吗？

谢谢。

Sub Update_LvL1_WIP()

Dim BrowFi As Integer

Dim BrowWIP1 As Integer

Dim dblSKU As Double
Dim strDescription As String
Dim strType As String


BrowFi = (ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row) + 1

Do While BrowFi > 4

    If Range("G" & BrowFi).Value = "WIP" Then

       strType = Range("G" & BrowFi).Value
       strDescription = Range("F" & BrowFi).Value
       dblSKU = Range("E" & BrowFi).Value

       Worksheets("WIP 1").Activate

           BrowWIP1 = (ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row) +1

                Range("A" & BrowWIP1).Value = dblSKU
                Range("B" & BrowWIP1).Value = strDescription
                Range("B" & BrowWIP1).Value = strType

    Else

        BrowFi = BrowiF - 1

    End If

Loop

End Sub

Answer 1

您的减量变量

中有拼写错误

BrowFi = BrowiF - 1

应该是

BrowFi = BrowFi - 1

由于未定义BrowiF，因此将其视为0，因此您在第一次循环播放时将BrowFi设置为-1。

使用Option Explicit来帮助发现这些错误可能是值得的。

做循环代码不会播放

1 个答案: