【自作マクロ】いらない部分を削除していただきたい。

質問

自分で行ってみたマクロですが、長く、見づらいです。
いらない部分を削除していただける方がいましたら、お願いいたします。
作業としては、

///////////////////////////////////

あああ　いいい　ううう　えええ　おおお　かかか
　　　　　あかさたなはまやらわん

の、「あかさたなはまやらわん」を削除し、セルの結合を解除し、
あああ、いいい　など文字のあるセルと下のセルを結合して格子をつける。

///////////////////////////////////

Sub 項目を1行にして摘要を削除する()
'
' 項目を1行にして摘要を削除する Macro
'

'
Range("C7:H7").Select
ActiveCell.FormulaR1C1 = ""
Range("C7:H7").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("C6:C7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("D6:D7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("E6:E7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("F6:F7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("G6:G7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("H6:H7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("C6:H7").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub

回答No.2

noname#215107 · ベストアンサー

’　　すべて、削除しました。
Sub 統合()
Dim i As Integer
For i = 0 To 5
Cells(8, 3 + i).Value = Null
Range(Cells(7, 3 + i), Cells(8, 3 + i)).Select
Selection.Merge
Selection.BorderAround ColorIndex:=0, Weight:=xlThin
Next
End Sub
’実行結果を画像に添付しましたが、こういうことでいいんでしょうか。

お礼

ありがとうございました！！！！！！！

回答No.1

mt2008

作り直すことをせず、不要部分をひたすら削除しました。
結合の部分は、ループを回して処理するともっとシンプルになります。
マクロ記録の結果と比較してみて下さい。

Sub Sample2()
　　Range("C7:H7")=""
　　Range("C7:H7").UnMerge
　　Range("C6:C7").Merge
　　Range("D6:D7").Merge
　　Range("E6:E7").Merge
　　Range("F6:F7").Merge
　　Range("G6:G7").Merge
　　Range("H6:H7").Merge
　　Range("C6:H7").Borders.LineStyle = xlContinuous
End Sub

お礼

ありがとうございました！
無事作業はできたのですが、急いでいたので、
先に回答をしていただいた方をベストアンサーにしました。
丁寧に教えていただいたのに、失礼いたします。