[算表] excel選取儲存格範圍另存工作表-錄製巨集

[quirrky (@@)]

軟體:excel

版本:2010


在excel一個工作表中有100位員工薪資條明細
每人都是固定17列6欄的儲存格範圍

已使用錄製巨集選取每位資料後
貼到新的工作表中
示範excel如下
https://reurl.cc/EKmZ81

程式碼如下
Sub 巨集1()
'
' 巨集1 巨集
'

'
    ActiveCell.Range("A1:F17").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    ActiveCell.Columns("A:F").EntireColumn.Select
    ActiveCell.Offset(4, 0).Range("A1").Activate
    Selection.ColumnWidth = 12.64
    ActiveCell.Columns("A:A").EntireColumn.Select
    ActiveCell.Activate
    Selection.ColumnWidth = 15.71
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\USER\Desktop\活頁簿25.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Sheets("工作表1").Select
    ActiveCell.Offset(18, 0).Range("A1:F1").Select
End Sub


1.不知如何修改成迴圈程式碼
可以順利執行100位的工作表

2.後續是否有可能可設定工作表命名皆為「201911」?
以及每個工作表另存獨立一個excel活頁簿檔案，檔名設為「某某某薪資條」

3.或者在問題1階段，先完成100個命名為「工作表00」
再另外用巨集的方式，重新按照名字命名

4.最後需要將每個excel獨立寄給100位員工，是否也可以用錄製巨集方式完成？
網路上找到有板友分享此方法
https://www.youtube.com/watch?v=YktQVwUdDrg

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.229.31.104 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1574182020.A.4E0.html
※ 編輯: quirrky (36.229.31.104 臺灣), 11/20/2019 00:48:18
→ soyoso: 1.以for...next包內文的巨集動作
→ soyoso: 2.如要另存獨立活頁簿的話，就workbooks.add，複製貼上以
→ soyoso: range.copy
→ soyoso:   複製範圍range.offset或range.offset.resize，offset的
→ soyoso: 列偏移值以迴圈所設的變數
→ soyoso:   檔名亦同，range.offset來取得b欄姓名儲存格的值，連接
→ soyoso: 上以&，如"c:\users...\" & range.offset(或將值寫入的變
→ soyoso: 數)
→ soyoso: 3.工作表更名，worksheet.name
→ soyoso: 4.寄發方面，如果錄製巨集可行的話，就以錄製，若不行就以
→ soyoso: 網友分享方式來處理
→ quirrky: 拍謝，請問[以for...next包內文的巨集動作]是什麼意思?
→ quirrky: 之前涉過編號2-85工作表，迴圈設For i = 2 To 85...next
→ quirrky: 該如何設迴圈?要先設好100個編號1-100之工作表嗎?
→ soyoso: 就內文activecell.range...到activecell.offset(...)的動
→ soyoso: 作。有100位，可設0 to 99或1 to 100，該變數用於
→ soyoso: range.offset列偏移值上就有可能會減1或不用
→ soyoso: 是否要先設好100個編號的工作表就要看，設計上是先range.
→ soyoso: copy資料到這100個工作表的話，可先設。
→ soyoso: 如不是，而是新增一個工作表就將該工作表複製到新活頁簿的
→ soyoso: 話，則不用
※ 編輯: quirrky (36.229.25.135 臺灣), 11/24/2019 00:45:08