| |
▼げっち さん：
横から失礼します。
やりたいことは、こんな感じですか？
Sub Macro2()
Dim R As Long, C As Long
Dim Cn As Integer
R = Selection.Row
C = Selection.Column
Cn = Selection.Columns.Count
Selection.Insert Shift:=xlDown
Range(Cells(R - 1, C), Cells(R - 1, C + Cn - 1)).Copy
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
>▼kanabun さん：
>
>返答ありがとうございます。
>
>>
>>>このエラーを回避するにはどうしたらいいのでしょうか？
>>ちょっとおやりになりたいことの詳細が分かりません。
>>すみません。
>>選択行は いつも 現在データが入っている範囲のすぐ下の（現在
>>未入力の）行ということですか？
>>それとも、途中の行に（複数行）挿入というケースもありですか？
>
>途中の行に挿入というケースも有りえます。
|
|
SS
- 11/10/19(水) 13:55 -
