質問編集履歴
2
処理の流れを追加しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -5,6 +5,12 @@
|
|
5
5
|
ファイルの数が1500を超えているので一つ一つのファイルに
|
6
6
|
|
7
7
|
bookを開いてシートのコード表示、貼り付けて対応は時間が掛かってしまうので・・・
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
1エクセルファイルがある→2bookを開く→3下記マクロ適用→4保存して閉じる→1に戻る
|
12
|
+
|
13
|
+
上の流れを適用したファイルがなくなるまで出来ればと思っています。
|
8
14
|
|
9
15
|
|
10
16
|
|
1
ソースの追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -5,3 +5,69 @@
|
|
5
5
|
ファイルの数が1500を超えているので一つ一つのファイルに
|
6
6
|
|
7
7
|
bookを開いてシートのコード表示、貼り付けて対応は時間が掛かってしまうので・・・
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
言語
|
12
|
+
|
13
|
+
vba
|
14
|
+
|
15
|
+
|
16
|
+
|
17
|
+
ソース
|
18
|
+
|
19
|
+
Option Explicit
|
20
|
+
|
21
|
+
|
22
|
+
|
23
|
+
Sub InsertRow()
|
24
|
+
|
25
|
+
Dim LastRow As Long
|
26
|
+
|
27
|
+
Dim LastRow1 As Long
|
28
|
+
|
29
|
+
Dim LastRow2 As Long
|
30
|
+
|
31
|
+
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
|
32
|
+
|
33
|
+
LastRow1 = Cells(Rows.Count, "B").End(xlUp).Row
|
34
|
+
|
35
|
+
LastRow2 = Cells(Rows.Count, "C").End(xlUp).Row
|
36
|
+
|
37
|
+
Const str As String = ":"
|
38
|
+
|
39
|
+
Const str1 As String = "/"
|
40
|
+
|
41
|
+
Range("B:D").Insert
|
42
|
+
|
43
|
+
Range("B1") = "=COUNTA(B2:B100000)"
|
44
|
+
|
45
|
+
Range("B2") = "=MID(A2,1,4)&""/""&MID(A2,5,2)&""/""&MID(A2,7,2)"
|
46
|
+
|
47
|
+
Range("C1") = "=TEXT(B1/24/60/60,""[h]時間mm分ss秒"")"
|
48
|
+
|
49
|
+
Range("C2") = "=Mid(A2, 9, 2)&"":""& Mid(A2, 11, 2)&"":""&Mid(A2, 13, 2)"
|
50
|
+
|
51
|
+
Range("D1") = "=SUM(D3:D100000)"
|
52
|
+
|
53
|
+
Range("D3") = "=C3-C2"
|
54
|
+
|
55
|
+
Range("D1").NumberFormatLocal = "hh:mm:ss"
|
56
|
+
|
57
|
+
Range("D3").NumberFormatLocal = "hh:mm:ss"
|
58
|
+
|
59
|
+
Range("B2").AutoFill Destination:=Range("B2:B" & LastRow)
|
60
|
+
|
61
|
+
Range("C2").AutoFill Destination:=Range("C2:C" & LastRow1)
|
62
|
+
|
63
|
+
Range("D3").AutoFill Destination:=Range("D3:D" & LastRow2)
|
64
|
+
|
65
|
+
|
66
|
+
|
67
|
+
End Sub
|
68
|
+
|
69
|
+
|
70
|
+
|
71
|
+
対象フォルダ
|
72
|
+
|
73
|
+
例:C:\sample2
|