| |
いつもお世話になっております。
行を追加したい行を選択した後、選択した行の上の行の書式のみを
コピーしたものを、選択した行に貼り付けるマクロを組みました。
具体的には下記のように
Ａ列｜Ｂ列（氏名）｜ Ｃ列（番号）
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
１ ｜ 山田一郎 ｜ １００
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
２ ｜ 山田次郎 ｜ １０１
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
３ ｜ 山田三郎 ｜ １０２
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
上記の書式でないデータ ←この行を選択
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Ａ列｜Ｂ列（氏名）｜ Ｃ列（番号）
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
１ ｜ 山田一郎 ｜ １００
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
２ ｜ 山田次郎 ｜ １０１
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
３ ｜ 山田三郎 ｜ １０２
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
｜ ｜ ←上の行の書式のみコピーした行
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
上記の書式でないデータ ←選択してた行
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
このように選択していた上の行の書式のみをコピーして貼り付ける動作を行います。
行を２行選択すると、２行の貼り付けを行うように選択した行の分だけ行を
貼り付けるようにしています。
しかし、動作こそ上手くいくものの挙動がおかしいため、
もっと効率の良いマクロの組み方があればお願い致します。
それに加えて、Ａ列のみオートフィルをかけ、
追加と同時に番号が自動的に振られるようにもしたいです。
マクロは以下の通りです。
Sub Macro1()
Dim i As Long
Dim RowCnt As Integer
RowCnt = Selection.CurrentRegion.Rows.Count - 1 '選択している行数のカウント
Selection.Insert Shift:=xlDown
For i = 1 To RowCnt
Selection.Offset(-1).Copy
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next i
Application.CutCopyMode = False
End Sub
分かりにくいかもしれませんが、よろしくお願い致します。
|
|
げっち
- 11/10/18(火) 15:56 -
