VBA-活用GOTO

  Sub test()
  With Sheet5
  Dim i%, j%, ra%, rb%
   ra = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
   rb = .Cells(.Cells.Rows.Count, 2).End(xlUp).Row
 For i = 2 To ra
      For j = 2 To rb
          If .Cells(j, "b") = .Cells(i, 1) Then GoTo 100
      Next j

      k = k + 1
      .Cells(k + 1, "c") = .Cells(i, 1)
100:
 Next i

End With
End Sub

倉庫編碼	已盤點編碼	未盤點編碼
NED1	NED4	NED1
NED2	ECD008	NED3
NED3	CCC008	ECD006
NED4	QC97	ECD007
ECD006	NED2	ECD009
ECD007		CCC009
ECD008
ECD009
CCC008
CCC009
QC97

 

附上未用GOTO語句前的代碼，比較繁瑣：

Sub test()
With Sheet5
Dim i%, j%, ra%, rb%
ra = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
rb = .Cells(.Cells.Rows.Count, 2).End(xlUp).Row
For i = 2 To ra
n = 0
  For j = 2 To rb
    If .Cells(j, "b") = .Cells(i, 1) Then n = n + 1
    If n >= 1 Then Exit For
  Next j
  k = .Cells(.Cells.Rows.Count, "c").End(xlUp).Row
  If n = 0 Then .Cells(k + 1, "c") = .Cells(i, 1)
Next i
End With
End Sub