EXCEL 異なった行に振り分ける方法

質問

自動記録マクロがやっと出来る超初心者です。
よろしくお願いします。

ＥＸＣＥＬです。
Ａ１のセルに　１か２か３の数字が入っています。
２行目にＡ２～ＣＸ２まで項目が入っています。

Ａ１が１の時
２行目のＡ２～ＣＸ２列の内容を４行目に移し

Ａ１が２の時
２行目のＡ２～ＣＸ２列の内容を５行目に移し

Ａ１が３の時
２行目のＡ２～ＣＸ２列の内容を６行目に移します。

どのようにしたら良いのか教えてください。
マクロ超初心者ですので、わかりやすく教えていただける大変助かります。よろしくお願いいたします。

回答No.2

ham_kamo · ベストアンサー

No.1です。
移動でなくて、コピーですね。それで、一点確認があるのですが、

> また、その値＋１の行に必ず移す、という規則性があります

とありますが、質問文ではA1が1のときは4行目、というように＋３になっています。とりあえず＋３で書いてみました。A1が文字列やマイナス、空白の場合はエラーを出すようにしていますが、０以上の数値だと４以上でもエラーにはしていません。
ご希望の動作と違うようでしたら、また補足をお願いします。

Sub Furiwake()
　　Dim CopyRow As Variant
　　CopyRow = Range("A1").Value
　　If Not IsNumeric(CopyRow) Or CopyRow < 0 Then
　　　　MsgBox "A1のセルに０以上の数値を入力してください", vbExclamation, "入力エラー"
　　　　Exit Sub
　　End If
　　CopyRow = CopyRow + 3
　　Range("A2", "CX2").Copy (Cells(CopyRow, 1))
End Sub

お礼

助かりました。
本当に有難うございました

回答No.1

ham_kamo

「移す」というのは、２行目は空になる、ということでいいですか？
それならこんな感じでしょうか。A1の値がもっとたくさんあり、その値＋１の行に必ず移す、という規則性があればSelect CaseでなくIf文を使った方がいいと思いますが、とりあえずこれで。（If文を使ったやり方はご自分で考えてみてください）

Dim CopyRow As Integer
Sub Furiwake()
　　Select Case Range("A1").Value
　　　　Case 1
　　　　　　CopyRow = 4
　　　　Case 2
　　　　　　CopyRow = 5
　　　　Case 3
　　　　　　CopyRow = 6
　　　　Case Else
　　　　　　Exit Sub
　　End Select
　　Range("A2", "CX2").Cut
　　ActiveSheet.Paste (Cells(CopyRow, 2))
End Sub

補足

早速有難うござました。
すみませんでした。言葉がたらなくて申し訳ございません。
「移す」ではなく。「コピー」です。
すみませんがよろしくお願いします。

IFを使ったやり方の方が易しいようですので
申し訳ございませんが、よろしかったらそちらも教えていただけますか。

また、その値＋１の行に必ず移す、という規則性があります

よろしくお願いいたします。