シートに組み込んだマクロを
こちらで指定したフォルダに存在するエクセルファイル全てに反映させたいと思っています。
ファイルの数が1500を超えているので一つ一つのファイルに
bookを開いてシートのコード表示、貼り付けて対応は時間が掛かってしまうので・・・
1エクセルファイルがある→2bookを開く→3下記マクロ適用→4保存して閉じる→1に戻る
上の流れを適用したファイルがなくなるまで出来ればと思っています。
言語
vba
ソース
Option Explicit
Sub InsertRow()
Dim LastRow As Long
Dim LastRow1 As Long
Dim LastRow2 As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastRow1 = Cells(Rows.Count, "B").End(xlUp).Row
LastRow2 = Cells(Rows.Count, "C").End(xlUp).Row
Const str As String = ":"
Const str1 As String = "/"
Range("B:D").Insert
Range("B1") = "=COUNTA(B2:B100000)"
Range("B2") = "=MID(A2,1,4)&""/""&MID(A2,5,2)&""/""&MID(A2,7,2)"
Range("C1") = "=TEXT(B1/24/60/60,""[h]時間mm分ss秒"")"
Range("C2") = "=Mid(A2, 9, 2)&"":""& Mid(A2, 11, 2)&"":""&Mid(A2, 13, 2)"
Range("D1") = "=SUM(D3:D100000)"
Range("D3") = "=C3-C2"
Range("D1").NumberFormatLocal = "hh:mm:ss"
Range("D3").NumberFormatLocal = "hh:mm:ss"
Range("B2").AutoFill Destination:=Range("B2:B" & LastRow)
Range("C2").AutoFill Destination:=Range("C2:C" & LastRow1)
Range("D3").AutoFill Destination:=Range("D3:D" & LastRow2)
End Sub
対象フォルダ
例:C:\sample2
回答2件
あなたの回答
tips
プレビュー