エクセルでデータの入っているセルを罫線で囲みたいが結合セルの部分も罫線で囲みたい。

初心者ですが、データの入っているセルのみを罫線で囲むVBAをいろいろネットで参照させていただいて作ってみたのですが、結合セルを含めたセル範囲を選択すると、添付した写真のように結合しているセルは罫線で囲むことができません。この場合、結合セルにも罫線で囲む方法を教えていただきたく質問させていただきました。よろしくお願いします。

Sub test()

If TypeName(Selection) <> "Range" Then Exit Sub
For Each C In Selection
If C.Value <> "" Then
With C.Borders
C.Borders.LineStyle = True
C.BorderAround Weight:=xlThin
C.Borders.ColorIndex = xlAutomatic
End With
End If
Next C
End Sub

質問者からの補足コメント

• 

  有難うございました。
  望んだとおりにできました。感謝です。m(_ _)m

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/11/13 08:53

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/11/13 08:25

こんにちは！

色々やり方はありますが、一例です。

Sub Sample1()
Dim c As Range, myRng As Range
For Each c In Selection
If c <> "" Then
If c.MergeCells Then
Set myRng = c.MergeArea
Else
Set myRng = c
End If
myRng.Borders.LineStyle = xlContinuous
End If
Next c
End Sub

こんな感じではどうでしょうか？m(_ _)m