いきなりやめる一週間前に面倒くさい仕事頼まれた。
フォルダにエクセルファイルでまとめたデータを必要なデータをとって
まとめてくれだと。その時に役に立つマクロを下記に記載しとく。
Sub Dir関数でフォルダ一覧()
Dim strPattern As String, strFolder As String
strPattern = "C:\Users\USR17181\Desktop\temp"
strFolder = Dir(strPattern, vbDirecto
Sub ワークシート名書き出し()
Dim 索引 As Long '変数「索引」を宣言
MsgBox "ワークシートの数は" & Worksheets.Count & "です"
For 索引 = 1 To Worksheets.Count '変数「索引」に1～ワークシート全数を代入、分繰り返し
Cells(索引, 2) = Worksheets(索引).Name 'ワークシート名を対応するB列に入力する。
Next
End Sub
Sub 該当シートを選択()
Dim i As Varianti = Application.InputBox(prompt:="数字を入力してください", Type:=1)If i = False ThenExit SubElseThisWorkbook.Sheets(i).ActivateEnd If
End Sub
Option Explicit
Sub CreateSheets()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("リスト")
Set ws2 = ThisWorkbook.Worksheets("テンプレート")
Dim cmax1 As Longcmax1 = ws1.Range("a65536").End(xlUp).RowDim i As LongDim shee
