通过工作簿里"录入正表"表的A列值匹配"经纬度XY"表A列唯一值来自动填充"录入正表"表的E列值和G列值的VBA代码

以下是一个简单的VBA代码示例，可以根据"录入正表"表的A列值匹配"经纬度XY"表A列唯一值来自动填充"录入正表"表的E列值和G列值：

Sub FillValues()
    Dim lngLastRow As Long
    Dim rngSearch As Range
    Dim rngFound As Range
    Dim strSearchValue As String
    
    '获取"录入正表"表的最后一行
    lngLastRow = Sheets("录入正表").Cells(Rows.Count, "A").End(xlUp).Row
    
    '循环每一行
    For i = 2 To lngLastRow
        '获取A列的值
        strSearchValue = Sheets("录入正表").Cells(i, "A").Value
        
        '在"经纬度XY"表中查找匹配的值
        Set rngSearch = Sheets("经纬度XY").Range("A:A")
        Set rngFound = rngSearch.Find(strSearchValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        '如果找到匹配的值，则更新E列和G列的值
        If Not rngFound Is Nothing Then
            Sheets("录入正表").Cells(i, "E").Value = rngFound.Offset(0, 1).Value
            Sheets("录入正表").Cells(i, "G").Value = rngFound.Offset(0, 2).Value
        End If
    Next i
End Sub

请注意，此代码仅作为示例，您需要根据实际情况进行调整和修改。例如，您可能需要更改表格名称、列号或值的数据类型。另外，请确保您在运行代码之前备份了您的工作簿，以防意外情况发生。