回答編集履歴
1
コードの改善
answer
CHANGED
|
@@ -7,17 +7,18 @@
|
|
|
7
7
|
Dim i As Long, R As Range
|
|
8
8
|
With WS
|
|
9
9
|
For i = 1 To .Cells(1, 1).CurrentRegion.Columns.Count
|
|
10
|
+
Set R = .Cells(3, i)
|
|
10
|
-
If
|
|
11
|
+
If R <> "" Then
|
|
11
|
-
|
|
12
|
+
R = R.Offset(-2).MergeArea(1, 1) & "/" & _
|
|
12
|
-
|
|
13
|
+
R.Offset(-1).MergeArea(1, 1) & "/" & _
|
|
13
|
-
|
|
14
|
+
R
|
|
14
|
-
ElseIf .
|
|
15
|
+
ElseIf R.MergeArea.Rows.Count = 2 Then
|
|
15
|
-
.
|
|
16
|
+
R.UnMerge
|
|
16
|
-
|
|
17
|
+
R = R.Offset(-2).MergeArea(1, 1) & "/" & _
|
|
17
|
-
|
|
18
|
+
R.Offset(-1)
|
|
18
|
-
ElseIf .
|
|
19
|
+
ElseIf R.MergeArea.Rows.Count = 3 Then
|
|
19
|
-
.
|
|
20
|
+
R.UnMerge
|
|
20
|
-
|
|
21
|
+
R = R.Offset(-2).MergeArea(1, 1)
|
|
21
22
|
End If
|
|
22
23
|
Next
|
|
23
24
|
.Range("1:2").Delete
|