在excel的config页中，有多个数据库表，这些表的表名都在单元格的D列，另起一行字段名的翻译都在单元格B行横向排列，字段名也从B列开始另起一行，横向排列，每个表的表名，字段名的翻译，字段名，共占据3行，在知道表名的情况下，在D列查找需要的表，copy这三行单元格，到名为zxc的页

好的，根据您的描述，我可以为您提供以下的VBA代码来实现您的需求：

Sub CopyTable()

Dim tableRange As Range
Dim tableName As String
Dim copyRange As Range
Dim destSheet As Worksheet

'获取需要复制的表名
tableName = InputBox("请输入需要复制的表名：")

'在Config页中查找表名所在的行
Set tableRange = Range("D:D").Find(tableName, , xlValues, xlWhole)

'如果找到了表名所在的行
If Not tableRange Is Nothing Then
    '获取需要复制的范围
    Set copyRange = Range(tableRange.Offset(0, -1), tableRange.Offset(2, tableRange.End(xlToRight).Column - tableRange.Column))
    
    '复制到zxc页
    Set destSheet = Worksheets("zxc")
    copyRange.Copy destSheet.Range("A" & destSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    
    MsgBox "已成功将表 " & tableName & " 复制到 zxc 页！"
Else
    MsgBox "未找到表名为 " & tableName & " 的表，请确认后重试！"
End If

End Sub

您只需要将以上代码复制到Excel的VBA编辑器中，并在需要执行复制操作时运行该宏即可。另外，为了让代码能够正确执行，请确认以下几点：

1. Config页的表名和字段名都在单元格的D列和B行中，并且表名和字段名的翻译都在相邻的一行中。
2. 您已经在zxc页中创建好了要复制数据的区域。
3. 您已经将代码中的sheet名称和单元格范围调整为实际情况。