2013-06-03 30 views

回答

1

使用以下命令:

=(! 'NAME_OF__SHEET' A1)

NAME_OF__SHEET = 「這個名字的紙的」 A1 =列,行

和你做!

+0

這針對的是同一個Excel文件下表..我對來自不同文件的工作表感興趣.. – user2987

+1

從其他excel文件導入數據不是來自不同工作表。 – issamux

0

您可以創建這樣一個宏:

Sub ConsolidateWorkbooks() 
    Dim myRange As String 
    myRange = "A1:B2" 'Put the range you want to copy from each workbook here 
    Dim thisWorkbook As String 
    Dim thisWorksheet As String 
    thisWorkbook = ActiveWorkbook.name 
    thisWorksheet = ActiveSheet.name 

    CopyPasteOneWorkbook ("C:\firstworkbook.xls") 
    CopyPasteOneWorkbook ("C:\secondworkbook.xls") 


End Sub 

Sub CopyPasteOneWorkbook(name As String) 
    Workbooks.Open Filename:=name 
    range(myRange).Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Windows(thisWorkbook).Activate 
    'Select the first empty cell in column A: 
    Worksheets(thisWorksheet).range("A1").End(xlDown).Select 
    Selection.Offset(1, 0).Select 
    ActiveSheet.Paste 
End Sub 

如果您的工作簿都在一個文件中,並有連續的名稱(workbook1.xls,workbook2.xls等),那麼你可以創建一個For循環。否則,只要您需要撥打多少個電話給CopyPasteOneWorkbook即可。

相關問題