- ベストアンサー
エクセルマクロの結合・展開方法
FINE9の回答
- FINE9
- ベストアンサー率50% (2/4)
昨日の者です。 A1、A2にテキストがあるという前提です。 Sub test2() Dim ax As String 'A1セルに入っているテキストを代入するための変数 Dim num As Integer, i As Integer '個数や回数を代入するための変数 Dim arr As Variant '配列を格納 Dim tex As String '文字列を代入するための変数 'A1セルの最後にカンマが入っているかを判定し、 A列にテキストを展開していく Range("A1").Select ax = ActiveCell.Formula 'A1セルのテキストを変数axに代入 If Right(ax, 1) = "," Then Range("A2").Select ax = ax & ActiveCell.Formula '変数axにA2セルのテキストを結合 Else Range("A2").Select ax = ax & "," & ActiveCell.Formula '変数axのうしろにカンマを入れてA2セルのテキストを結合 End If arr = Split(ax, ",") Range("A1").Select For i = 0 To UBound(arr) num = i + 1 Cells(num, 1).Value = arr(i) Next i 'B～D列を展開 For i = 1 To 3 ActiveCell.Offset(, 1).Select tex = ActiveCell.Formula Selection.Resize(num, 1).Select Selection.Formula = tex Selection.Resize(1, 1).Select Next i End Sub
関連するQ&A
- エクセルのマクロについて質問です。
下の表を展開したいです。 A B C D E F G １ C102,C103,C104 aaa bbb ccc ddd～ ２ R102,R103,R105 YYY RRR EEE GGG～ ３ R106,R107,R108 空白(上と同じ) ４ 空白 ５ L102,L103,L105 QQQ MMM NNN BBB～ という表を、 １ C102 aaa bbb ccc ddd ２ C103 aaa bbb ccc ddd ３ C104 aaa bbb ccc ddd ４ R102 YYY RRR EEE GGG というように最後まで展開していきたいです。 下のマクロだとB列以降が全て一番上と同じ文字列がコピーされてしまいます。 よろしくお願いします。 Sub test2() Dim ax As String 'A列のセルに入っているテキストを代入するための変数 Dim ax2 As String 'axを統合したテキストを代入するための変数 Dim num As Integer, i As Integer '回数を代入するための変数 Dim arr As Variant '配列を格納 Dim tex As String 'B列以降の文字列を代入するための変数 'A列にいくつデータが入っているかを確かめ、その数をnumに代入 Range("A1").Select Selection.CurrentRegion.Select num = Selection.Rows.Count Range("A1").Select 'A1のテキストの最後にカンマが入っているかを判定。なければカンマをつける。 'A列のデータが入っている最後のセルまで上記の処理を行う。 '各テキストは変数axに代入、ax2で統合する For i = 1 To num ax = ActiveCell.Text If Right(ax, 1) = "," Then ax = ax Else ax = ax & "," End If If i = 1 Then ax2 = ax Else ax2 = ax2 & ax End If ActiveCell.Offset(1).Select Next i ax2 = Left(ax2, Len(ax2) - 1) arr = Split(ax2, ",") Range("A1").Select For i = 0 To UBound(arr) num = i + 1 Cells(num, 1).Value = arr(i) Next i Range("A1").Select Selection.CurrentRegion.Select num = Selection.Rows.Count 'B～D列を展開 For i = 1 To 3 ActiveCell.Offset(, 1).Select tex = ActiveCell.Formula Selection.Resize(num, 1).Select Selection.Formula = tex Selection.Resize(1, 1).Select Next i End Sub
- ベストアンサー
- オフィス系ソフト
- Ｅｘｃｅｌシートの統合するマクロなどがありましたらお教えください。
各支店（約200）からExcelシートで送信されてくる報告内容を別のシートに一気にまとめるマクロ等はないでしょうか？ご存知の方よろしくお願いします。 （例） Ａ支店 項目 aaa bbb ccc ddd eee 10 20 30 0 0 8 8 0 0 0 以下約300件 Ｂ支店 項目 aaa bbb ccc ddd eee 11 22 33 0 0 9 9 0 0 0 以下約300件 別シートに 項目 aaa bbb ccc ddd eee 10 20 30 0 0 8 8 0 0 0 11 22 33 0 0 9 9 0 0 0 以下省略 よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- Excelの関数に詳しい方、お願いします。
わかりづらい説明かもしれませんが、よろしくお願いします。 例として、 AAA*BBB*CCC*DDD*EEE*FFF AAA*BBB*CCC*DDD*EEE*FFF AAA*BBB*CCC*DDD*EEE*FFF AAA*BBB*CCC*DDD*EEE*FFF AAA*BBB*CCC*DDD*EEE*FFF ・ ・ ・ といった文字列がエクセルの先頭列Ａ１～Ａ100までずらりと並んでいるとします。 各アルファベットには任意の数字（日付など）が入るとして、この並んだ百件のデータからＣＣＣの部分の最大値を表示するための適切な関数があれば教えていただけないでしょうか？ 現在少々急いでいるため言葉足らずで申し訳ありませんが、よろしくお願いいたします.
- ベストアンサー
- オフィス系ソフト
- EXCELのVBAで空白列を削除して左づめにできますか？
いつも参考にしています。まだ、マクロの記録にチョット手を加えて自動化？している程度の腕前ですが？ 仕事の都合で下記の問題を解決しなくてはならなくなり、皆様のお知恵をお借りしたいと思い質問させて頂きます。 エクセルのワークシートに空白のセルがランダムに入っているデータがあります。これを、ある列まで（例ではD列までの左の空白セルをなくして左づめのデータとしたいのです。 （例） | A | B | C | D | E | 1|AAA|BBB|CCC|DDD|EEE| 2| |BBB|CCC|DDD|EEE| 3|AAA| |CCC|DDD|EEE| 4|AAA| |CCC| |EEE| 5| | | |DDD|EEE| ↓ | A | B | C | D | E | 1|AAA|BBB|CCC|DDD|EEE| 2|BBB|CCC|DDD| |EEE| 3|AAA|CCC|DDD| |EEE| 4|AAA|CCC| | |EEE| 5|DDD| | | |EEE| ここで、E列以降は詰めないでほしいのです。 できれば、VBAで実現したいのですが、どのような考えで、どのようなコード？を書けばよいのか教えてください。 質問の仕方も用途を得ないで、失礼な質問になっていると思いますが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelで同一のデータを抽出して横並びに
A B C D 商品コード 注文数 商品コード 注文数 aaa 15 ccc 4 bbb 12 ddd 6 ccc 10 aaa 22 ddd 6 eee 10 eee 5 bbb 7 fff 8 kkk 9 kkk 7 lll 4 上記のようなデータを 以下のように同じ商品コードを横並びに表示させたいのですが どういったcountifとかで試したのですが上手くいかず、どのような関数を使えば可能でしょうか？ A B C D 商品コード 注文数 商品コード 注文数 aaa 15 aaa 22 bbb 12 bbb 7 ccc 10 ccc 4 ddd 6 ddd 6 eee 5 eee 10 fff 8 kkk 7 kkk 9 lll 4 宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
- VBAの正規表現
VBAで正規表現による置換をしたいです。 以下のような行が複数あります。 1 aaa bbb ccc ddd 2 aaa bbb ccc ddd 3 aaa bbb ccce ddd 4 aaa bbb eccc ddd ccc の部分のみ置換したいです。 dim hensuu as string dim replace as string replace = eee hensuu = ccc (省略) strPattern = "(\s*)" & hensuu & "(\s+)" rep = RegExpObj.Replace(buf, "\1" & replace & "\2") 行数1,2 のみを置換したのですが、4も置換されてしまいます。 (\s*) の "*" が良くないのは理解していますが、"+" にしてもうまくいきません。 どなたかどのようにしたら1,2のみ置換できるようになるかをご教授お願いできませんでしょうか よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- SQLについて
aaa bbb ccc ddd eee ggg hhh ---------------------------------------------- 111 111 111 111 111 111 111 112 112 112 112 112 112 111 112 113 113 113 113 113 111 114 114 114 114 114 114 111 114 114 114 114 114 114 112 114 115 115 114 114 115 111 114 115 115 114 114 115 112 116 116 116 116 116 116 111 116 116 116 116 116 116 112 116 116 116 116 116 117 111 116 116 116 116 116 117 112 118 118 118 118 118 118 118 上記のようなデータより、SQLのSELECTを使用して、以下のように抽出したいです。 抽出条件は以下が全て満たしているものとなります。 ・aaa,ccc,ddd,eee,gggが重複、hhhが小さいもの ・bbbが異なるもの aaa bbb ccc ddd eee ggg hhh ---------------------------------------------- 112 112 112 112 112 112 111 ・・・(1) 112 113 113 113 113 113 111 ・・・(1) 114 114 114 114 114 114 111 ・・・(2) 114 115 114 114 114 115 111 ・・・(2) (1)はaaa,ccc,ddd,eee,gggが重複、bbbが異なるため抽出対象 (2)はaaa,ccc,ddd,eee,gggが重複、bbbが異なるため抽出対象 また、hhhが小さいもの 以上、よろしくお願いします。
- ベストアンサー
- PostgreSQL
- 正規表現で一つ目の区切り文字で区切りたいのですが・・・
aaa/bbb/ccc/ddd aaa/bbb/ccc/ddd/eee aaa/ccc/ddd $a=~/(.*)\/(.*)/; $1はそれぞれ aaa/bbb/ccc aaa/bbb/ccc/ddd aaa/ccc と成ってしまいます。 このように 「最後の/」で分けられてしまいます。 一つ目の/で分けるにはどうしたらよいでしょうか。
- ベストアンサー
- Perl
- アクセスのVBEの初歩的な質問
アクセス（に限らないとは思うのですが）のVBEを今、一生懸命勉強しているのですが、初歩的なところで、つまずいています。 あああ いいい ううう えええ 1 1 あいうえお かきくけこ 1 2 あいうえお かきくけこ 1 3 あいうえお かきくけこ 2 1 あいうえお かきくけこ 2 2 あいうえお かきくけこ 2 3 あいうえお かきくけこ 3 1 あいうえお かきくけこ 3 2 あいうえお かきくけこ 3 3 あいうえお かきくけこ というような、データを自動で入力したいのです。多分、for next と、do until あたりを組み合わせるとできると思うのですが、どうしてもうまくいきません。 とりあえず、以下のような、めちゃめちゃ効率の悪いコードを書いたのですが、もっと効率よくするには、どうしたらいいでしょうか？ ………………………………………………… Private Sub コマンド6_Click() Dim Aaa As Integer Dim Bbb As Integer Dim Ccc As String Dim Ddd As String DoCmd.GoToRecord , , acFirst Aaa = 1 Bbb = 0 Ccc = "あいうえお" Ddd = "かきくけこ" For i = 1 To 3 Bbb = Bbb + 1 あああ = Aaa いいい = Bbb ううう = Ccc えええ = Ddd DoCmd.GoToRecord , , acNext Next i Aaa = 2 Bbb = 0 For i = 1 To 3 Bbb = Bbb + 1 あああ = Aaa いいい = Bbb ううう = Ccc えええ = Ddd DoCmd.GoToRecord , , acNext Next i Aaa = 3 Bbb = 0 For i = 1 To 3 Bbb = Bbb + 1 あああ = Aaa いいい = Bbb ううう = Ccc えええ = Ddd DoCmd.GoToRecord , , acNext Next i End Sub …………………………………… ほんとうに、おはずかしいのですが、どうかご指導くださいませ。m(__)mm(__)m
- ベストアンサー
- オフィス系ソフト
- EXCEL97のマクロ処理について
EXCEL97のマクロ処理について教えてください。 下記のシート例のようなシート（アクセスのクロス集計のようなもの）を最初に複数範囲指定(アクティブ)します。その後にその範囲指定したなかで項目が1～５まで全て同じモノだけを統一して、種類で存在するものも統一させます。一つ目のものに種類１がなくても同一のものに種類1があれば統一後のデータは種類1の列に"1"がつくようにします。ちなみに種類はその時によりどれだけ存在するかわからないのが前提です。削除するデータは回路Noが大きいものを消すようにします。下がそのデータの例です。 =============== エクセルシート例 =================================== 回路No 項目１ 項目２ 項目３ 項目４ 項目５ 種類１ 種類２ 種類３ ... １ AAA BBB CCC DDD EEE １ １ １ FFF DDD UUU DDD OOO １ １ １ UUU PPP TTT DDD EEE １ １ ２ AAA BBB CCC DDD EEE １ １ ２ XXX QQQ SSS NNN MMM １ １ ↓ マクロ処理後 回路No 項目１ 項目２ 項目３ 項目４ 項目５ 種類１ 種類２ 種類３ ... １ AAA BBB CCC DDD EEE １ １ １ １ FFF DDD UUU DDD OOO １ １ １ UUU PPP TTT DDD EEE １ １ ２ XXX QQQ SSS NNN MMM １ １ ================================================================== シート選択後ボタンによりマクロ処理されるように考えています。どうか宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
いつもありがとうございます。 これをA2、A3、A4と繰り返す指示をするのは Do～LooPでやるんでしょうか？