ここから本文です

アクティブシートから指定したシートへデータを移動するマクロ

yur********さん

2013/10/911:13:23

アクティブシートから指定したシートへデータを移動するマクロ

お世話になります。
VBA初心者なんですが、Sheet1に表示されているセル上の数字を切り取ってSheet2のセル上に左へ詰めて表示させたいです(イメージとしては画像のとおりです)。

Sub アクティブシートから指定したシートへデータを移動()

Dim i As Long
For i = 2 To 10 Step 2

Worksheets("sheet1").Activate
ActiveSheet.Cells(1, i).Cut Destination:=Worksheets("sheet2").
Next i
End Sub

上のコードの「Worksheets("sheet2").」以降のコードをどうすればいいのかわからずに、自分で調べては思いつく限り色々なコードを書き加えましたが、格闘すること丸1日(泣)、無駄な時間だけがすぎてどうしてもsheet2に表示させるときに左へ詰めて表示されません。
どういったコードにすれば、私がやりたいことは実現できますか?教えてください。よろしくお願いします。

Sheet2&quot,Dim i As Long,2 To 10 Step 2,Worksheets,Cut Destination,Cut Worksheets,Sheet1&quot

閲覧数:
405
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

msk********さん

2013/10/911:27:55

一例です。
Sheet1からSheet2へ固定ですよね。

Sub アクティブシートから指定したシートへデータを移動()
Dim i As Long
With Worksheets("sheet1")
For i = 2 To 10 Step 2
.Cells(1, i).Cut Worksheets("sheet2").Cells(1, i / 2)
Next i
End With
End Sub

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる