用<em>VBA</em>实现在表格中输入内容后，自动去另一个<em>EXCEL&l

求一个excel2007的VBA程序语言，主要完成以下任务：检索excel中的数据，然后把符合要求的数据自动写入word文档表格中，如下图，将日期、最大值、最小值按格式写入word表格中

既然没给复出具体例子，那我们也大概的随便谈谈想法吧。
估计你说的表格1要用制公式的数据量不会太大，那倒不如用VLOOKUP函数来得直接百；该函数支持跨工作簿查找引度用。至于这个函数怎么用，你再百度一下“VLOOKUP 详解”吧。
用VBA做的话不难，但问VBA基本是定制型的，你不答具体给出表格数据结构，写给你也是白写。
进入百VBA窗口，双击工程度资问源管理器上所在答页，加入专如下代码属：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rownumber As Long
On Error Resume Next
Application.ScreenUpdating = False
For rownumber = 3 To Cells(70000, 3).End(xlUp).Row
If Cells(rownumber, 3) <> "" Then Cells(rownumber, 1) = rownumber - 2
Next
Application.ScreenUpdating = True
End Sub

右键工作表标签，贴入下面VBA代码。

这段代码是依据你图上的位置来写的，实际情况，可修改部分单元格区域。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TableRng As Range
    Dim DestRng As Range
    
    If Target.Address = "$N$10" Then ''判断是不是姓名单元格，可更e799bee5baa6e79fa5e98193e4b893e5b19e335改
        ''传入查找区域，可更改
        Set TableRng = Range("N13:S22")
        
        Set DestRng = TableRng.Find(what:=Target.Value, lookat:=xlWhole)
        With Target
            ''返回各科成绩，数量可更改
            .Offset(0, 1) = DestRng.Offset(0, 1)
            .Offset(0, 2) = DestRng.Offset(0, 2)
            .Offset(0, 3) = DestRng.Offset(0, 3)
            .Offset(0, 4) = DestRng.Offset(0, 4)
        End With
    End If
End Sub