"录入正表"表A列录入值时，自动匹配"匹配项"表A列唯一值，把"匹配项"表其他列的内容通过两个表的A列同行值与标题列相同对应自动填入"录入正表"表里的VBA代码

以下是一个示例VBA代码，可以实现你所描述的功能：

Sub MatchAndFill()
    Dim matchRange As Range
    Dim inputRange As Range
    Dim matchCol As Integer
    
    '设置匹配项表的范围和匹配列
    Set matchRange = Worksheets("匹配项").Range("A1").CurrentRegion
    matchCol = 1
    
    '设置录入正表的范围
    Set inputRange = Worksheets("录入正表").Range("A2:A" & Worksheets("录入正表").Cells(Rows.Count, "A").End(xlUp).Row)
    
    '循环遍历录入正表的每一行
    For Each inputCell In inputRange
        '在匹配项表中查找匹配项
        Set matchCell = matchRange.Columns(matchCol).Find(inputCell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not matchCell Is Nothing Then
            '如果找到匹配项，则填充录入正表中对应行的其他列
            For i = 2 To matchRange.Columns.Count
                inputCell.Offset(0, i - 1).Value = matchCell.Offset(0, i - 1).Value
            Next i
        End If
    Next inputCell
End Sub

你需要将代码中的"匹配项"和"录入正表"替换为你实际使用的工作表名称，并根据实际情况调整匹配项表和录入正表的范围。此外，如果你的表格结构与示例代码不同，可能需要对代码进行一些修改。