EXCEL如何实现不同表之间的数据调用

EXCEL如何实现不同表之间的数据调用

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Swb As String
Dim Wb As Workbook
Dim sh As Worksheet
Dim temp
Dim ir As Long
ir = 0

If Target.Address = "$A$1" Then
SWB1 = Target.Value
Swb = ThisWorkbook.Path & "" & Target.Value & ".xls"
'Stop
On Error Resume Next
Set Wb = Workbooks.Open(Swb)
On Error GoTo 0

    If Wb Is Nothing Then
        MsgBox "找不到 " & Target.Value & " 这个文件"
    Else
        Application.EnableEvents = False
        Sheet1.UsedRange.Clear
        Sheet1.Range("A1") = SWB1
        For Each sh In Wb.Sheets
           
            sh.UsedRange.Copy Sheet1.Range("A3").Offset(ir, 0)
            ir = sh.UsedRange.Rows.Count + ir
        Next
    End If
End If
    Wb.Close False
    Set Wb = Nothing
    Application.EnableEvents = True
End Sub这个需要用VBA来实现
新建一个工作薄，按ALT + F11 进入VBE窗口，在工程资源管理器找到 sheet1（如果没有，按ctrl + R），双击进去，然后复制上面的代码进去。
保存，设置启用宏，然后关闭再重开就可以使用了。
提示，代码必须是复制到 sheet1 里面（不是平时可见的那个sheet1工作表，是代码工作表）

使用vlookup函数

根据情况，用VLOOKUP或HLOOKUP函数

跨表格引用单元格，先输=号再点你要引用的单元格就可以。跨工作表、工作簿都没问题。
跟同一表中引用类似。只是增加了路径。
一个单元格就想显示一张表的内容，你想多了吧？