首頁>Club>

怎樣快速提取多個excel工作簿的名稱？

6
回覆列表
  • 1 # o流量咯

    在工作表標籤上擊右鍵，檢視程式碼。

    在VBE視窗中，點“插入”，模組。將以下程式碼貼上到模組程式碼窗格中，ALT+F8執行該宏，就行了。

    附件中有樣本。

    Sub 資料提取()For i = 2 To Worksheets.CountSheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3]Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6]NextEnd Sub

  • 2 # 使用者8451710051916

    使用宏表函式get.workbook

    或寫一小段VBA

    Sub name()

    For i = 1 To Sheets.Count

    ActiveSheet.Cells(i, 1) = Sheets(i).name

    Next

    End Sub

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 今夜你不來把我陪,我抱著寂莫也能睡是什麼廣場舞的歌詞？