• 締切済み

エクセル　VBA　複雑な行列入れ替えコピー

hisappyの回答

  • hisappy
  • ベストアンサー率46% (184/392)
回答No.2

Ａ列に並んでいるデータを単純に３つずつ並べなおすのと データの内容によって移動先が変化するのかで ＶＢＡの組み方もかわってきますが… 後者ならこんな感じでしょうか。 フローなコーディング版。 for(A1～Aの最終行) 　セル内容判定 　　１番：Ｂ列に移動。 　　２番：Ｃ列に移動。 　　３番：Ｄ列に移動。 end for Ａ列削除。 実際にはＢ、Ｃ、Ｄの各列での現在行管理が必要です。 エラーなデータが存在していた場合の処理も 場合によっては必要でしょう。

ryoryo1979
質問者

お礼

ありがとうございます！ 素人なのでもう少し詳しく教えていただけないでしょうか？ すいませんが宜しくお願い致します。

この回答がついた質問に戻る
回答 全件
'(1)からはじまる文字列をA列に '(2)からはじまる文字列をB列…
'3行ずつがセットになっていて2行目、3行目を1行目と同じ行の '列…
こんな感じで Sub test() Dim i, ii, ii…
B1 =INDIRECT("$A"&(ROW()-1)*3+(COLU…
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセル　VBA　複雑な行列入れ替えコピー

    VBAを使って複雑な行と列を入れ替えをしたいのですが？どなたか伝授していただけませんでしょうか？ 　　　A　　　　B　　　　C 1　東京都　　ペット　マルチーズ 2　神奈川県　ペット　チワワ 3　埼玉県　　ペット　柴犬 4　千葉県　　ペット　プードル 　・ 　・ 　・ 1,000行あります。 これを 別シートに20行づつ1行にまとめて 東京都　ペット　マルチーズ　神奈川県　ペット　チワワ　・・・ のようにしたいのです。 コピー先のデータ行数は元が1,000行だったので、結果50行になります。 よろしくお願いします。

  • Excel　行列入れ替え

    行列入れ替えを行いたいのですが、良い方法はありますでしょうか？ A列　　　B列　　　C列　　　D列　　　E列　　　F列　　　G列 111　　　222　　　　あ　　　　い　　　　う　　　　え 333　　　444　　　　あ　　　　い　　　　う　　　　え　　　　お ↓ A列　　　B列　　　C列 111　　　222　　　　あ 111　　　222　　　　い 111　　　222　　　　う 111　　　222　　　　え 333　　　444　　　　あ 333　　　444　　　　い 333　　　444　　　　う 333　　　444　　　　え 333　　　444　　　　お C列以降は内容により、フィールド数が異なります。 最終的にはA列ごとB列ごとに各値を含む割合を出したいと考えています。 ピボットテーブルで集計をしようと考えているのですが、横方向にデータが 入っていると上手く出来ませんでした。 もし、データの入れ替えをせず集計が出来れば、そういった方法も教えて 頂きたいです。 宜しくお願いいたします。

  • Excel　複雑なセル埋めのVBA

    エクセルで入力済みのデータをテーブル形式にするためにVBAを組んでいますが突き当たりました、お知恵を拝借させてください。現在成形出来ているのは以下の状態です。 　　　A列　　　　　B列　　　　C列 1行　　AA　　　　　　2　　　　　1 2行 3行　　BB　　　　　　3　　　　　2 4行 5行 6行 7行 8行 9行　　CC　　　　　　2　　　　　3 10行 11行 12行 13行 14行 これを以下のようにB列を埋めたいと考えています。A列を埋めるVBAは当方で分かります。 　　　　　A列　　　　B列　　　　C列 1行　　　 AA　　　　　1　　　　　1 2行　　　 AA　　　　　2 3行　　　 BB　　　　　1　　　　　2 4行　　　 BB　　　　　2 5行　　　 BB　　　　　3 6行　　　 BB　　　　　1 7行　　　 BB　　　　　2 8行　　　 BB　　　　　3 9行　　　 CC　　　　　1　　　　　3 10行　　　CC　　　　　2 11行　　　CC　　　　　1 12行　　　CC　　　　　2 13行　　　CC　　　　　1 14行　　　CC　　　　　2 B1に2が入っていてC1に1が入っているときはB1から下へ1，2の連番を1回入れます、B3に3と入っていてC3に2と入っているときはB3から下へ1,2,3の連番を2回繰り返します、同じようにB9以降も処理しています。連番のスタートは必ず1で、現在B列に入っている数字が連番の最後に当たる数値でC列が繰り返し回数という事です。上の例ではB列を書き直していますが、新たにD列にB列に入れたい連番の列を作る方法でもいいと思っています。 もし表が崩れていたら済みませんでした。恐れ入りますがポインタでも結構ですのでご教授下さい、よろしくお願いします。

  • VBA,行列入れ替え挿入

    　初めまして、よろしくお願いします。 　VBAで、シート 　Ａ　Ｂ　Ｃ　Ｄ　Ｅ １　　　　９ ２　　　　８ ３　　　　７ ４ ５ を 　Ａ　Ｂ　Ｃ　Ｄ　Ｅ １ ２ ３ ４ ５　　９　８　７ とＣ列（Ｃ１：Ｃ３）を５行目（Ｂ５：Ｄ５）へと行を挿入していくＶＢＡを教えて頂きたく、よろしくお願いします。

  • ＥＸＣＥＬ　関数をふくむ行列の入れ替え

    いまSheet1に3列*2行で Ａ1+Ａ10　Ｂ1+Ｂ10　Ｃ1+Ｃ10 Ａ2+Ａ11　Ｂ2+Ｂ11　Ｃ2+Ｃ11 といった関数が入っているとして、 別のシートに、この関数から導き出される値の行列を入れ替えた状態で表示したいのですが、どういった方法があるのでしょうか？ ちなみに値だけを行列の入れ替えをしたいのではなく、関数を活かしたまま行列を入れ替えたいのですが、一般的な「形式を選択して貼り付け」で行列の入れ替えにチェックをいれても、エラーが返ってきてしまいうまくいきません。 さらに、その別のシート上でＳＵＭなどの関数で縦・横・の集計など計算をしたいのですが・・・ いい方法があったら教えてください。

  • EXCEL VBAで

    EXCEL VBAで シート1のＡ２～Ｇ２までの列にＡ,B,C,D～と題名があり、それぞれの下の行には数字が並んでます。シート２のＡ２～Ｇ２までの列にもＡ,B,C,D～と題名がありますが、ランダムに並んでます。シート1のＡの行を、シート2のＡの行に、ＢにはＢへという風にコピーをさせるにはどのようにすればよいでしょうか。またシート1Ａ～Ｇのどれかが欠けている場合もあります。その場合はシート1にあるもののみコピーすることとします。 わかりにくいかも知れませんか、どうかよろしくお願いします。

  • VBA　エクセル　複雑な行列入れ替え

    VBAを使って以下のような行列変換を行いたいです。 【元のデータ】 　　A　　　B　　　C　　　D　　　E　　　F １　X11　 Y11　 X12　　Y12　 X13　 Y13　… ２　X21　 Y21　 X22　　Y22　 X23　 Y23　… ３　X31　 Y31　 X32　　Y32　 X33　 Y33　… ４　… … 1000行あります。 これを別のシートに以下のように行列を入れ替えたいです。 【変換後】 　　A　　　B　　　C　　　D　　　E　　　F １　X11　 Y11　 X21　　Y21　 X31　 Y31　… ２　X12　 Y12　 X22　　Y22　 X32　 Y32　… ３　X13　 Y13　 X23　　Y23　 X33　 Y33　… ４　X14　 Y14　 X24　　Y24　 X34　 Y34　… … どうぞおろしくお願い致します。

  • エクセル2003のVBAを教えて

    エクセル2003のVBAを教えてください。 次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、 　　　データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目 　(1)：種類だけを(C列)に取り出す。 　(2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。 　(3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ 種類(A列)　　　文字(B列) AA　　　　　　　あああ BB　　　　　　　いいい BB　　　　　　　いい BB　　　　　　　いいい CC　　　　　　　うう CC　　　　　　　うう DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ DD　　　　　　　ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 　　　文字(B列) あああ AA　　　　　　　　あああ いいい BB　　　　　　　　いいい BB　　　　　　　　いいい BB　　　　　　　　いいい うう CC　　　　　　　　うう CC　　　　　　　　うう ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ DD　　　　　　　　ええええ

  • エクセルのVBA「当てはまる場合、コピー」の方法

    Excell2003のVBAについてお尋ねします。 　　　 A1 101　　B1　102　　C1　 A2 102　　B2　104　　C2 OK A3 103　　B3　105　　C3 A4 104　　　　　　　　　C4　OK A5　105　　　　　　　　　C5　OK ・　　　・ ・　　　・ ・　　　・ 　　　↑　　　　　↑　　　　　　↑ 　　もとから　　指定する　マクロで A列に101から始まる番号が続いています。 B列で番号を入力してボタンを押します。 そうしますと、入力した番号の行にだけC列にOKという文字が入るようできますでしょうか。 イメージとしましては、来場してくれた会員を控えておきたいときに、 A列には会員番号があらかじめ入力されていて、 来場してくれた方の会員番号をB列にどんどん入力していきます。 ボタンを押すとB列で入力した方のC列に「来場」と入力されるような使い方を想定しております。 コピーペーストのVBAとVLOOKUPの数式の知識は（かろうじて）あるのですが、 VBAでどのように行ったらよいかわからずにおります。 お手数ですがよろしくお願いいたします。

  • Excel　セルの内容入れ替え

    以下のようなデータあり 【元データ】 　　A　　　　　　　　　B　　　　　　　　　C １　０　　　　　　　　　A　　　　　　　　　B ２　１　　　　　　　　　B　　　　　　　　　A ３　０　　　　　　　　　A　　　　　　　　　B A列が”１”の場合のみB列の値とC列の値を入れ替えたい。 【得たいデータ】 　　A　　　　　　　　　B　　　　　　　　　C １　０　　　　　　　　　A　　　　　　　　　B ２　１　　　　　　　　　A　　　　　　　　　B ３　０　　　　　　　　　A　　　　　　　　　B VBAで釦作成をし、クリックをすることで入れ替えができるようにと考えています。 ご教授よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する