怎么在excel中提取表格的数据

Answer 1

这个要楼主进一步明确需求
最好截图说明下

要怎样提取表格数据？
如果与其他表格数据匹配的话
可以使用vlookup
如果是提取单元格部分内容
考虑left right mid之类的
如果是其他，请明确
复杂的使用vba正则表达式处理吧

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row < 4 Then Exit Sub
If Target = "" Then Exit Sub
Dim myPath$, myName$, Arr
Dim i&, j&, d
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
myPath = ThisWorkbook.Path & ""
myName = "学生信息汇总.xls"
With GetObject(myPath & myName)
Arr = .Sheets(1).Range("A3").CurrentRegion
For i = 2 To UBound(Arr)
d(Arr(i, 2)) = i
Next
.Close False
End With
If d.exists(Target.Value) Then
i = d(Target.Value)
With Target
.Offset(0, -1) = Arr(i, 1)
For j = 3 To 6
.Offset(0, j - 2) = Arr(i, j)
Next
End With
Else
MsgBox "没有该学生信息。"
End If
Application.ScreenUpdating = True
End Sub
复制代码