查找单元格值，匹配，剪切，移动，... vba

Question

我是VBA的初学者。 我的组件总是由两部分组成。 （转子和定子，每个都有自己的编号）。当与他们一起工作时，它可能会损坏这些部件中的一部分，但是必须保留损坏部件的列表，其结果是库存，例如200个转子，具有不同数量的定子150。在我废弃它之前，我需要完成它们作为正确的设置。即转子“a”定子“a”，“b”带“b”等。用很多数字来比较它们很疯狂，复制......找到数量的结果。

有可能用Macro解决它，我尝试做什么，但我被卡住了。 任务是什么：在“A”栏中，我列出了所有损坏部件（转子，定子不同数字的混合）。在“C”列中，仅在VlookUP的帮助下提供信息，应该是对应的数字。

我需要解决的问题：在第5行，第5列。 “A”我有组件编号，但我知道在同一列中，从第6行到xx的某处我有一个对应物。我需要的是......根据C栏的信息，同一行（5）其中是关于对应数字的信息。找到A列中的counerpart，找到后，取出并放入B5单元格。因此，我得到了一整套。然后是下一行（6），同样的动作。宏读数在“C”中，搜索“A”，找到，切割，然后放到“B”下一行7,8,9，...结果应该是一定数量的对+一些单个数字，如果不是第二部分找到。

我遇到的问题是循环工作直到总是找到相关的对应物。如果A行中的对应物不可用（C-A之间不匹配），则代码将在该行停止。

我需要帮助的是，如果代码没有找到基于来自C的信息的counerpart只是跳过这一行，将其变为红色并继续下一行直到结束，这意味着停止C中的第一个空单元格。非常感谢所有帮助我的人。

    Dim pn As Range,
    Dim a
    Dim x
    x = 5
    Dim i As Long, Dim radek As Long
    a = Cells(x, 3)
    For i = 1 To 500
        Range("A:A").Select
        Set pn = Selection.Find(What:=a)
        If Not pn Is Nothing Then 
            pn.Select 
        End If
        Selection.Cut
        Cells(x, 2).Select
        ActiveSheet.Paste
        x = x + 1
    Next
End Sub