回答率: 85.47%

質問するログイン新規登録

トップ VBAに関する質問複数行にまたがる大中小見出しを統合するプログラム

編集履歴

回答編集履歴

1

コードの改善

2017/08/19 18:15

投稿

スコア33742

test CHANGED Viewed

@@ -16,27 +16,29 @@
         For i = 1 To .Cells(1, 1).CurrentRegion.Columns.Count
-            If .Cells(3, i) <> "" Then
+            Set R = .Cells(3, i)
-                .Cells(3, i) = .Cells(1, i).MergeArea(1, 1) & "/" & _
+            If R <> "" Then
-                               .Cells(2, i).MergeArea(1, 1) & "/" & _
+                R = R.Offset(-2).MergeArea(1, 1) & "/" & _
-                               .Cells(3, i)
+                    R.Offset(-1).MergeArea(1, 1) & "/" & _
-            ElseIf .Cells(3, i).MergeArea.Rows.Count = 2 Then
+                    R
-                .Cells(3, i).UnMerge
+            ElseIf R.MergeArea.Rows.Count = 2 Then
-                .Cells(3, i) = .Cells(1, i).MergeArea(1, 1) & "/" & _
+                R.UnMerge
-                               .Cells(2, i)
+                R = R.Offset(-2).MergeArea(1, 1) & "/" & _
-            ElseIf .Cells(3, i).MergeArea.Rows.Count = 3 Then
+                    R.Offset(-1)
-                .Cells(3, i).UnMerge
+            ElseIf R.MergeArea.Rows.Count = 3 Then
+                R.UnMerge
-                .Cells(3, i) = .Cells(1, i).MergeArea(1, 1)
+                R = R.Offset(-2).MergeArea(1, 1)
            End If