Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17516 / 76738 ←次へ | 前へ→

【64675】Re:Sheetコピーについて(複数)
発言  超初心者  - 10/3/5(金) 14:27 -

引用なし
パスワード
   ▼とってぃ さん:
「Sheet3」を含めてのコピーです。

Sub sample()
  Dim myLoop As Long
  Dim mySheetNM() As String
  
  mySheetNM = Split("")
  For myLoop = Worksheets("Sheet3").Index To Worksheets.Count
    ReDim Preserve mySheetNM(UBound(mySheetNM) + 1)
    mySheetNM(UBound(mySheetNM)) = Sheets(myLoop).Name
  Next myLoop
  
  Sheets(mySheetNM).Copy
End Sub

参考までに。
0 hits

【64674】Sheetコピーについて(複数) とってぃ 10/3/5(金) 12:29 質問
【64675】Re:Sheetコピーについて(複数) 超初心者 10/3/5(金) 14:27 発言
【64676】Re:Sheetコピーについて(複数) とってぃ 10/3/5(金) 16:00 お礼

17516 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free