質問編集履歴
1
指摘事項修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,9 +6,15 @@
|
|
|
6
6
|
|
|
7
7
|
使用しているコードは以下になります。
|
|
8
8
|
|
|
9
|
-
①
|
|
9
|
+
①同じ番号の行を一つにするためのコード
|
|
10
10
|
|
|
11
|
+
```VBA
|
|
12
|
+
|
|
11
|
-
|
|
13
|
+
コード
|
|
14
|
+
|
|
15
|
+
Sub ボタン5_Click()
|
|
16
|
+
|
|
17
|
+
|
|
12
18
|
|
|
13
19
|
Dim oShIn As Object
|
|
14
20
|
|
|
@@ -86,38 +92,46 @@
|
|
|
86
92
|
|
|
87
93
|
End Sub
|
|
88
94
|
|
|
95
|
+
```
|
|
89
96
|
|
|
97
|
+
② 階層を合した別シート毎を比較するコード
|
|
90
98
|
|
|
99
|
+
```
|
|
100
|
+
|
|
101
|
+
コード
|
|
102
|
+
|
|
91
|
-
|
|
103
|
+
Sub ボタン4_Click()
|
|
92
104
|
|
|
93
105
|
|
|
94
106
|
|
|
95
|
-
|
|
107
|
+
Dim i As Long
|
|
96
108
|
|
|
97
109
|
|
|
98
110
|
|
|
99
|
-
|
|
111
|
+
With ThisWorkbook
|
|
100
112
|
|
|
101
|
-
|
|
113
|
+
For i = 1 To .Sheets("シート3").UsedRange.Rows.Count
|
|
102
114
|
|
|
103
|
-
|
|
115
|
+
DoEvents
|
|
104
116
|
|
|
105
|
-
|
|
117
|
+
If .Sheets("シート2").Range("A" & i).Value = "" Then
|
|
106
118
|
|
|
107
|
-
|
|
119
|
+
' Exit For
|
|
108
120
|
|
|
109
|
-
|
|
121
|
+
ElseIf .Sheets("シート2").Range("A" & i).Value <> .Sheets("シート3").Range("A" & i).Value Then
|
|
110
122
|
|
|
111
|
-
|
|
123
|
+
.Sheets("シート2").Rows(i).Insert Shift:=xlShiftDown
|
|
112
124
|
|
|
113
|
-
|
|
125
|
+
End If
|
|
114
126
|
|
|
115
|
-
|
|
127
|
+
Next i
|
|
116
128
|
|
|
117
|
-
|
|
129
|
+
End With
|
|
118
130
|
|
|
119
|
-
End With
|
|
120
131
|
|
|
121
|
-
Next
|
|
122
132
|
|
|
123
133
|
End Sub
|
|
134
|
+
|
|
135
|
+
|
|
136
|
+
|
|
137
|
+
```
|