• 締切済み

各列を各シートに振り分けるには

Ａ列を新しいシートに Ｂ列を新しいシートに Ｃ列を新しいシートに・・・ というふうに、各１列を各シートに振り分ける方法は ありますでしょうか。 マクロ記録をしてみたのですが自分では上手くいかなくて；

みんなの回答

  • kybo
  • ベストアンサー率53% (349/647)
回答No.1

特に難しくはありません。 以下のようにしてみてはどうでしょうか？ Sub macro() Dim I As Integer With ActiveSheet For I = 1 To .Range("IV1").End(xlToLeft).Column .Columns(I).Copy Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Paste Next I End With End Sub

sifon-cake
質問者

お礼

ご親切にありがとうございます。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Sheet2にある情報をSheet1のA1に１列で

    マクロを作りたいのですが、以下のようなものをどうすればできるかで詰まっています。 Sheet2にある情報をSheet1のA1に１列（A列B列C列の順）で並ぶようにしたいです。 Sheet2の内容は変わることがあるので、データがどの行まで入っているかはマクロを走らせるときにチェックしないとわからないかと思います。 [Sheet1] 111 222 333 aa bb aaa bbb ccc ddd eee -------------------------- [Sheet2] A B C 1 111 aa aaa 2 222 bb bbb 3 333 ccc 4 ddd 5 eee 素人な質問かもしれないですが、調べてもわからなかったので、教えていただけると幸いです。

  • book1シート1のデータを別bookシートに移す

    a1シート1のデータ1,2（データ1.5列G行～18列G行,～9000個、データ2.25列G行～38列G行,～9000個）を b1シート1,c1シート1に移行したいのですが、 a1シート1のデータは、9000個と9000個とします。 b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。 このとき移行したいb1シート1(5列G行～18列G行,～16000個）は最終行からでてしまいます。 でてしまう分をc1シート1(5列G行～18列G行,～2000個）に書き移したいと思っています。 分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。 このとき、データ1とデータ2の連結は、空白行なしです。 b1シート,c1シートは、a1シートとは、別bookです。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 ｍ2010です。

  • 一致するデータを複数シートから別のシートへ移動

    Sheet1～Sheet3を用いて、 Sheet1とSheet2でそれぞれのC列の項目が一致するデータを抽出し、 該当するデータの Sheet1B列⇒Sheet3D1 Sheet2A列⇒Sheet3A1 Sheet2B列⇒Sheet3B1 Sheet2C列⇒Sheet3C1 に移動するためのマクロを組みたいと思っています。 Sheet2からSheet1に検索をかけて、 Sheet2C列≠Sheet1C列であればSheet2のA1行を削除していき Sheet2C列＝Sheet1C列であれば Sheet2A～C列をSheet3A～C列へ移動するところまでは出来ました。 ※なお、Sheet3のA1行に文字列があればセルを1行追加する設定にしています。 しかし、それはA1行の文字列をそのままコピペしているだけなので Sheet1B列の一致データをSheet3D1へ移動するやり方が思い浮かびません…。 Sheet2と同じくA1行を削除していこうとしてもうまくいきませんでした。 どんどんマクロも指示文ばかりが増えてわけが分からなくなってきてしまい、挫折しています。 シンプルにするにはどうすればいいでしょうか？ また、マクロの内容を載せたいのですが 会社の業務端末で組んでいるため転記できません； 申し訳ありませんが、どうかご指導ください。

  • エクセルでSheet1の特定の列をSheet2に反映させたい

    エクセルの質問です。初心者です。 Sheet1ではA B C D E F列を使っています。 Sheet2にA B C列を反映させ、Sheet2の他の列にはSheet1とは別の情報を入れたいです。 変更するときはSheet1を変更するとして、Sheet1で行を増やしてもSheet2に勝手に反映する方法はありますか？

  • データを別bookシートに移す

    a1シート1のデータ1,2（データ1.5行G列～18行G列,～9000個、データ2.25行G列～38行G列,～9000個）をb1シート1,c1シート1に移行したいのですが、 a1シート1のデータ１,2は、9000個と9000個とします。 b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。 このとき移行したいb1シート1(5行G列～18行G列,～16000個）は最終列からでてしまいます。 出てしまう分をc1シート1(5行G列～18行G列,～2000個）に書き移したいと思っています。 分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。 このとき、データ1とデータ2の連結は、空白行なしです。 b1シート,c1シートは、a1シートとは、別bookです。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 ｍ2010です。　 a1シート1 /ABCDEFGHI-------------MHJ 1データ1 2------9000個 3 4 5------○○～～～～～○○ 6------○○～～～～～○○ 7------○○～～～～～○○ . . . 17-----○○～～～～～○○ 18-----○○～～～～～○○ 19 . . 23データ2 24-----9000個 25-----○○～～～～～○○ 26-----○○～～～～～○○ . . . 37-----○○～～～～～○○ 38-----○○～～～～～○○ 39 b1シート1 /ABCDDEFGHI-----------MHJ-------WQP 1データ1,データ2 2-------16000個 3 4 5-------○○～～～～～○○～～～○○ 6-------○○～～～～～○○～～～○○ 7-------○○～～～～～○○～～～○○ . . . 17------○○～～～～～○○～～～○○ 18------○○～～～～～○○～～～○○ 19 データ1,データ2の継ぎ目に空白なし。 マクロの記録では、 Sub Macro1() ' ' Macro1 Macro ' ' Range("G5").Select ActiveSheet.Paste Range("MHJ5").Select ActiveSheet.Paste Range("F4").Select End Sub c1シート1 /ABCDEFGHI～～ 1データ2の残り 2------2000個 3 4 5------○○～～○○ 6------○○～～○○ 7------○○～～○○ . . . 17-----○○～～○○ 18-----○○～～○○ 19 この質問は、難しいのでしょうか。 書き方がわるいのでしょうか。 よろしくお願いします。

  • エクセルの複数ワークシートの列を縦に並べる方法

    エクセルの１ファイル中にある複数のワークシートの列（項目は同じ）を 新しいワークシート列に統合する機能はありますか？ ワークシート(1)　列Ａ－１　列Ｂ－１　列Ｃ－１ ワークシート(2)　列Ａ－２　列Ｂ－２　列Ｃ－２ ワークシート(3)　列Ａ－３　列Ｂ－２　列Ｃ－３ 新ワークシート　列Ａ－１　列Ｂ－１　列Ｃ－１ 　　　　　　　　　　列Ａ－２　列Ｂ－２　列Ｃ－２ 　　　　　　　　　　列Ａ－３　列Ｂ－３　列Ｃ－３ と、いう具合です。コピーすればいいのですが、 一括でできる方法があれば、教えてください。 よろしくお願いいたします。 　　　　　　　　　　　　　　　　　　　

  • ある列のリアルタイム数値を3分毎に列をずらしながら記録するEXCELマクロを作りたい

    EXECL2002 SP3を使っています。 B2からB99まで数式が入力されています。 この数式の結果はリアルタイムで変わります。 このリアルタイムデータを、 記録するマクロを作成したいと考えています。 9時1分から20時1分まで３分毎にデータを取得し、 C列、D列、E列、と列をずらしながら記録していきます。 以下のようなイメージになります。 ☆数式の状態 　　　　Ａ　　　Ｂ 1　　　　　　　　=now 2 　　　東京　　=tokyo.temperature 3 　　　千葉　　=kanagawa.temperature 4 　　　埼玉　　=saitama.temperature ☆9時1分のシートの状態 　　　　Ａ　　　Ｂ　　　Ｃ 1　　　　　　　　9:01　　9:01 2 　　　東京　　11.5　　11.5 3 　　　千葉　　11.9　　11.9 4 　　　埼玉　　10.8　　10.8 ☆9時4分のシートの状態 　　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ 1　　　　　　　　9:04　　9:01　　9:04 2 　　　東京　　11.6　　11.5　　11.6 3 　　　千葉　　12.1　　11.9　　12.1 4 　　　埼玉　　11.0　　10.8　　11.0 ☆9時7分のシートの状態 　　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ 1　　　　　　　　9:07　　9:01　　9:04　　9:07 2 　　　東京　　11.8　　11.5　　11.6　　11.8 3 　　　千葉　　12.4　　11.9　　12.1　　12.4 4 　　　埼玉　　11.1　　10.8　　11.0　　11.1 上記の作業を実現できるマクロを 教えていただけませんでしょうか。 よろしくお願いいたします。

  • エクセルのＡ列に入力したデータを別シートと連動させる方法

    エクセル２０００です。 Ａ列　　　Ｂ列　　　Ｃ列 言葉　　　意味　　　例文 とシート１に入ってるデータがあります。 ５００行程入っているのですが、Ａ列のデータだけをシート２にコピーして一覧で見られるようなシートを作りたいと思っています。 でもＡ列だけだと縦長でとても見づらいため、Ｂ列以降も使い全て２０行位にしたいのですが、Ａ列だけをコピーしてシート２に貼り付けた時に自動で各列２０行位に収まるような関数やマクロの方法ってありますでしょうか？ また今後もシート１、Ａ列の言葉が増えた時にシート２も関連して増えるようにすることも出来ますでしょうか？ どうか教えて下さい！

  • エクセル　複数シートのデータを1シートにまとめるマクロ

    エクセルの複数シートにデータがあります。同じ条件の人のデータだけをひとつのシートにまとめたいのですが、マクロを教えていただけますでしょうか。それとも、マクロ以外に良い方法がありますか？　エクセル初心者なので、あたりまえのことも知らないかもしれません。。。　 【データ】 ●シート１からシート20まで、同じ配列でデータがあります。 ●１行目は見出しです。２行目から１人づつのデータです。（多くても65行までと思っています。） ●A列に到達度、B列に出欠をいれました。 ●C列からM列が氏名、課題、その他のデータです。 ●リストはシート21にあります。 　【こんな作業でしょうか？】 ●シート１から20で　A列が「C」または「D」ならば　その行のA列からM列をコピーして　シート21のA列からM列に形式を値にして張り付ける ●シート１から20で　B列が「欠」ならば　その行のA列からM列をコピーしてシート21のA列からM列に形式を値にして張り付ける （っというのが私の乏しい知識で考えた方法なのですが、これでは不具合がでますか？　もちろん、この方法じゃなくもっといいのがあれば、それをやってみたいです。）

  • A列にあったものには１、C列にあったものには２

    シート１の内容をVBAをつかってシート２のようにしたいです。 つまり、シート１の２行目以降のデータをシート２のB列につなげて、 A列には　シート１の１行目に記載している番号をふっていきます。 もともとA列にあったものには１、C列にあったものには２、E列にあったものには３と振りたいのですが、どのようにマクロを書けばいいでしょうか？ [Sheet1] 　　A　 B　 C　 D　 E 1　1　 2　 3 2　aa aaa aaaa 3　bb bbb bbbb 4　cc cccc 5　 dddd ----------------------------- [Sheet2] A B 1 1 aa 2 1 bb 3 1 cc 4 2 aaa 5 2 bbb 6 3 aaaa 7 3 bbbb 8 3 cccc 9 3 dddd

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する