因此,我在下面的代码尝试在 H 列中找到 WIP。如果我们找到 WIP:复制 3 个单元格并在下一列中的同一行或下一个可用行中复制它们的 10 个副本。
由于某种原因,代码仅针对第一个“WIP”值成功运行循环,然后给出代码中断错误。有人能看出为什么会这样吗?
谢谢你,奥利
Sub Step1_update()
Dim dblSKU As Double
Dim strDesc As String
Dim strType As String
Dim BrowFin As Integer
Dim Browfin1 As Integer
Dim Counter As Integer
Dim Trowfin As Integer
Counter = 0
Worksheets("Final").Activate
Trowfin = 5
BrowFin = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
'loop 1
Do While Trowfin < BrowFin
'If 1 (set the 3 values)
If Range("H" & Trowfin).Value = Range("H3").Value Then
dblSKU = Range("F" & Trowfin).Value
strDesc = Range("G" & Trowfin).Value
strType = Range("H" & Trowfin).Value
'Find the last used row in Col J
Browfin1 = (ActiveSheet.Range("J" & Rows.Count).End(xlUp).Row)
Counter = 0
'paste values 15 times
Do While Counter < 15
'If 2
If Browfin1 > (Trowfin + Counter) Then
Range("J" & Browfin1).Value = dblSKU
Range("K" & Browfin1).Value = strDesc
Range("L" & Browfin1).Value = strType
ElseIf Browfin1 < (Trowfin + Counter) Then
Range("J" & (Trowfin + Counter)).Value = dblSKU
Range("K" & (Trowfin + Counter)).Value = strDesc
Range("L" & (Trowfin + Counter)).Value = strType
Else
Range("J" & (Trowfin + Counter)).Value = dblSKU
Range("K" & (Trowfin + Counter)).Value = strDesc
Range("L" & (Trowfin + Counter)).Value = strType
End If
'Loop to paste the WIP 15 times
Loop
Trowfin = Trowfin + 1
Counter = 0
'If cell (H...) is not a WIP
Else
Trowfin = Trowfin + 1
'If 1
End If
'loop 1
Loop
End Sub