Excelでの罫線のみのコピーについて

質問

エクセルのVBAを使って罫線のみのコピーコマンドを作ろうかと考えています。選択範囲をForEachで、Selectionループをかけてとりあえず配列にパラメーターを取り込み、同じくループで、Rangeに貼り付けようと考えました。が、3次元配列の動的割り当てが上手く行きません。(ローカルウィンドで見ると、配列が定義されていませんが、エラーも出ません)何故でしょうか？どなたか教えて頂けないでしょうか？また、そんな方法よりも、こうした方がいいよ！！ってのがありましたら教えて頂けないでしょうか？宜しくお願いします。
Dim MyLine() As Variant
Dim I As Integer
ReDim MyLine(Selection.Count, 3, 2)
I = 0
For Each myrang In Selection
MyLine(I, 0, 0) = myrang.Borders(xlEdgeTop).LineStyle '上端
MyLine(I, 0, 1) = myrang.Borders(xlEdgeTop).Weight '上端
MyLine(I, 0, 2) = myrang.Borders(xlEdgeTop).ColorIndex '上端
I = I + 1
Next
とりあえず上端のみを載せました。実際によ全てのパラメータを配列に取り込むつもりなので、3次元にしています。

回答No.4

NNAQ

雛形に表示形式・配置・フォント・罫線など、全ての書式を設定して、
書式のみコピー＆ペーストするのでは、だめなのでしょうか？

'#3のリンク先をちょっといじっただけの罫線のみのコピーコマンド
Sub test()
Dim myrang As Range 'In Selection コピー元
Dim rng As Range '貼り付け先
Dim b As Border '一本の罫線
Dim i As Integer, j As Integer 'ループ用
'貼り付け先のシートと左上セルを指定
Set rng = Sheets(2).Range("b2")
With Selection
Set rng = rng.Resize(.Rows.Count, .Columns.Count)
End With
i = 1
For Each myrang In Selection
'罫線1本ずつ処理（斜め罫線含む）
'上下左右だけなら j = xlEdgeLeft To xlEdgeRight
'または j = 7 to 10（#1の回答を参照）
For j = xlDiagonalDown To xlEdgeRight
Set b = myrang.Borders(j)
If b.LineStyle <> xlNone Then '「罫線なし」でないなら
With rng.Cells(i).Borders(j) '貼り付け先に罫線設定
.Weight = b.Weight
.ColorIndex = b.ColorIndex
.LineStyle = b.LineStyle
End With
End If
Next j
i = i + 1
Next myrang
End Sub