| |
▼げっち さん：
>
>途中の行に挿入というケースも有りえます。
途中に、行挿入すると、それらの書式は以前の書式がそのまま残っています。
なので、すでに書式が設定してある途中の行に 行挿入するばあいは 書式の
Copyはわざわざする必要がないってことになりませんか？
Sub Try1()
Dim r As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set r = Selection
If r.Columns.Count <> Application.Columns.Count Then
Set r = Selection.EntireRow
End If
r.Insert
End Sub
データ行の下の現在書式がセットされていない行を選択して
1行上の書式だけをそれらの選択行にCopyすることがあるなら、
Sub try2()
If TypeName(Selection) <> "Range" Then Exit Sub
If Selection.Columns.Count <> Application.Columns.Count Then
Selection.EntireRow.Select
End If
Selection.Insert
Selection.Offset(-1).Resize(1).Copy '選択行の一行上をCopy
Selection.PasteSpecial xlPasteFormats '選択行全体に 書式貼り付け
End Sub
とかで、ってことかな？
|
|
kanabun
- 11/10/19(水) 15:12 -
