只能用VBA吧

用VBA ？请教高人~~~ 详情？

你这个问题公式没办法搞，VBA应该可以，但是我不会VBA

额。。。 好吧 thank you all the same

我放段程式你瞧瞧
资料可以带进excel
你试试看
=====
Public Sub doaads()
    Dim FileName_A As String   '宣告存放档名变数
    Dim FilePath As String     '宣告存放档案路径变数
    FilePath = ThisWorkbook.Path & "\"   '取得目前活页簿的路径
    FileName_A = "aa.csv"                '要开启的档名
    '===============================
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & FileName_A '先开启档案
    '=========================
    '选取区间汇入
    Set myrng1 = Workbooks(FileName_A).Sheets("aa").Range("A1:D300") '选择要复制之范围
    Set myrng2 = ThisWorkbook.Sheets("Sheet2").Range("A1:D300")      '选择要贴上之位置,通常是A1,放在Sheet2
    myrng1.Copy Destination:=myrng2
    ThisWorkbook.Sheets("sheet1").Activate '画面停留在主档
    Workbooks(FileName_A).Close
End Sub