Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12051 / 76734

←次へ　｜　前へ→


	【70209】Re:上の行を書式のみをコピーして、選択した行数分だけ次の行に挿入したい

げっち - 11/10/19(水) 19:22 -


	引用なし

	パスワード

▼SS さん：

>横から失礼します。
>やりたいことは、こんな感じですか？
>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 さんも回答ありがとうございました。
今後の参考にさせて頂きます。

5 hits

▼

【70176】上の行を書式のみをコピーして、選択した行数分だけ次の行に挿入したい げっち 11/10/18(火) 15:56