No.2ベストアンサー
- 回答日時:
No.1です!
補足を読ませていただきました。
Sheet1のB・C列をSheet2のA・B列の最終行以降に!ということなので・・・
おそらくSheet1のB・C列の行数(データ量)が違うのが普通だと思いますので、
2列を範囲指定 → Sheet2のA列もしくはB列の最終行以降に貼り付け!という操作では
空白セルが出来てしまうと思います。
もちろんそれを削除するコードを作れば良いのですが、今回は2列だけだというコトですので
単純に前回の操作を2回繰り返すコードにしてみました。
Sub test2()
Dim i, j As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
i = ws1.Cells(Rows.Count, 2).End(xlUp).Row
j = ws1.Cells(Rows.Count, 3).End(xlUp).Row
Range(ws1.Cells(2, 2), ws1.Cells(i, 2)).Copy
ws2.Activate
ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Range(ws1.Cells(2, 3), ws1.Cells(j, 3)).Copy
ws2.Activate
ws2.Cells(Rows.Count, 2).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
End Sub
こんな感じではどうでしょうか?
※ じっくり考えればもっと良い方法があるかもしれません。
この程度でごめんなさいね。m(_ _)m
No.1
- 回答日時:
こんばんは!
Sheet1・Sheet2ともに1行目は項目行でデータは2行目以降にあるとします。
一例です。標準モジュールにコピー&ペーストしてマクロを試してみてください。
Sub test()
Dim i As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1") '←Sheet名(sheet1の部分)は実際のSheet名に!
Set ws2 = Worksheets("sheet2") '←こちらのSheet名も実際のSheet名に!
i = ws1.Cells(Rows.Count, 2).End(xlUp).Row
Range(ws1.Cells(2, 2), ws1.Cells(i, 2)).Copy
'↑Sheet1の1行目から場合は「ws1.Cells(2, 2)」を「ws1.Cells(1, 2)」に!
ws2.Activate
ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
End Sub
こんな感じではどうでしょうか?m(_ _)m
この回答への補足
ありがとうございます。
バッチリできました。
因みにSheet1のB列だけじゃなくB列とC列の両方をコピーして、
Sheet2のA列とB列に同じように貼り付けの場合なら、どこを変化させたら良いのですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
別シートの最終行に貼り付けするマクロを教えてください。 シートYのE3からE15までをコピー シート
Excel(エクセル)
-
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
-
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
-
4
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
5
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
6
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
ExcelのVBAで最終行の下にコピーする方法
その他(Microsoft Office)
-
9
VBA 空白行に転記する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
大昔から、クンニ、フェラって...
-
CDレコの曲の消し方を教えてく...
-
Galaxy s10とGalaxy A41はどち...
-
VBA ソートすると、1、11、...
-
1日3回セックスって多いですか...
-
射精したあとの匂いって他人に...
-
夫にセックスがないのなら他人...
-
おっぱいを舐める
-
彼とのエッチで、彼がイクのが...
-
先日彼氏とラブホに行ったら電...
-
彼女をオカズにして抜くのって...
-
2人でエッチできる場所を探して...
-
女性は電マ、ローター、バイブ...
-
女性のあそこが緩い、きついと...
-
絶倫について。 絶倫とは何を持...
-
彼のペニスが挿入時に柔らかく...
-
彼氏に顔射されて悲しいです
-
3Pを経験された方にお尋ねした...
-
あそこって・・みんな 舐める?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
VBA ソートすると、1、11、...
-
CDレコの曲の消し方を教えてく...
-
相対参照から絶対参照に変換す...
-
シンナーの夏型と冬型の違いは?
-
大昔から、クンニ、フェラって...
-
VBAが止まります。
-
EXCELで3行を一組にして結合す...
-
Word 黒塗り部分の文字のみ削除...
-
データの平均を1分値にまとめる...
-
エクセルのVBAでTTESTがエラー...
-
直線コネクタの中央にコネクタ...
-
別ブックの空白行に転記
-
bluetoothのclass1とclass2の互...
-
Excelで抽出・連続印刷したいです
-
ExcelVBAで指定文字(この場合...
-
最適な組み合わせの自動計算
-
VBA AB列”3000”以上の数字の行...
-
エクセル最終行の下に貼り付け
-
YmobileからSoftbankに乗り換え...
おすすめ情報