- ベストアンサー
Excel VBAで結合されたセルの数
列方向に項目番号、行方向に内容が記入された表があります。 この、項目番号のセルは結合されており、その結合数は色々（3～9）です。 この時、例えば上から3項目を選択した際、VBA上でそれが上から3段目である事が判る様にしたいのですが、どの様にすればいいのでしょうか？ セルの結合数が同じ場合は行番号から判断出来るのですが、結合数が一定で無い場合の方法が分からなくって困っています。 宜しくお願い致します。
- ae-1sp
- お礼率75% (92/122)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
シート上の結合セルを見つける。 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_200.html ご参考まで。
関連するQ&A
- Excel VBAで結合セルに連番を振っていくには？
Microsoft Excel 2003での質問です。 表を作成しました。 結合セルが複数ある1列に（セル数はまちまち・複数の列には非結合）、連番を振っていく作業をしています。 これをVBAを使って自動化したいのです。 列に連番がすでに入力されている最終行の下のセル（つまりこれから連番が入る空白セル）を選択、 範囲指定し（セル数はまちまちなのでこれは手作業）、 セルを結合させるまではできたのですが、 この結合させたセルに、[（一つ上の結合セル）＋（１）]の値を入力させるにはどうプログラムしたらよいでしょうか？ わかりにくい説明で恐縮ですが、どなたかご教示ください。
- ベストアンサー
- オフィス系ソフト
- Excelの結合したセルの検索
Ｅｘｃｅｌで列方向に結合したセルを検索し、結合セルの先頭の行番号を 取得する方法を考えていますが、良いアイディアが浮かびません。 ＶＢＡで良い方法、又はサンプルがありましたら教えて下さい。
- ベストアンサー
- Visual Basic
- エクセルＶＢＡでセル結合
いつもお世話になっています。 エクセル2003でＶＢＡを使って下記をしたいのでその、ＶＢＡ構文を教えて下さい。 特定の列のあるセルに文字が入っています。 （文字が入っている列は固定ですが、行番号はデータによって変わります。例えば、Ａデータの場合は「Ｊ３０」、Ｂデータの場合は、「Ｊ５５」だったりします。） この文字が入っているセルをＶＢＡで検索し、検索したセルを右隣のセルと結合します。（先ほどのＡデータの場合、Ｊ３０：Ｚ３０に結合します。） 更に、文字が入っているセルが２以上の複数の場合があります。（先ほどのＡデータの場合、「Ｊ３０」と「Ｊ４０」と「Ｊ４５」という感じです。文字が入っているセルの数はデータにより異なります。） 結合が終わり、このシートのデータがあるところだけに罫線を引きます。（このシートのデータというのは、前述の文字とそれ以外は、「数字」と「・」です。 ややこしいですが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル2013のVBAで結合セル基準Offset
エクセル2013のVBAで、ActiveWorkbook.ActiveSheetの、例えばC3からI3まで結合されているセルを基準ActiveCellにして、行方向は4から17セルまで列方向はC列からI列までをコピーしたいのですが、思ったようにOffsetで位置がとれず列がどうしてもずれてしまいます。 どのような指定をすればできるでしょうか？ すいませんが、よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- エクセルＶＢＡで、一部のセルの結合をしたい
エクセルの表で、同じ内容の行を結合したいのですが、一か所の列のみ結合をせずそのままにしておく必要があります。どなたかＶＢＡを教えていただけないでしょうか？ イメージとしては次のようになります。 a b c d e 1 g a b c d e 2 g a b c d e 3 g これを下記のようにしたい a b c d e 1 g 2 3 社内システムに入力されているデータをＣＳＶにて抽出しそれをエクセルで加工しているのですが、 aを物件番号とするとｂ～e,gは物件１件につき一個の項目が入っているのに対し、数字の部分のみ１件につき複数の内容が選択されているのです。そのため、データを抽出すると数字のセル部分以外もすべての行でデータが落ちてくるのです。 そこで、見やすくするために、１～３の内容以外の部分はセルを結合させたいのです。 ここでは３行にしていますが、１行のときもあれば７行くらいになっていることもあります。 列はすべて同じ数になりますが現段階では何列か覚えておりません。すみません。 説明が下手で申し訳ないのですが、わかっていただけるでしょうか？ 私はＶＢＡを習い始めたばかりでまったくわからず、自分で作成することができませんでした。ネットで探したものをコピペしてみたりしたのですが、どうもうまくいかず・・・ でもなんとかしたいのです！ みなさんのお力をお借りしたいと思います。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA でセルの結合
久しぶりに質問したいことがあります。 初歩的なVBA操作しかできない者です。 以下のようなマクロを組みたいのですがどのようにしたらよいでしょうか？ A B C 1 東京 2 東京 3 京都 4 京都 5 京都 6 埼玉 7 埼玉 ・ ・ ・ ・ ・ ・ 上の状態から下のようにしたい A B C -------- 1 東京 2 -------- 3 4 京都 5 -------- 6 埼玉 7 -------- ・ ・ ・ ・ ・ ・ （最終行は任意） B列で同じ項目名のセルを結合したいです。 B列は名前順に並び替えられていて、１～１０行ぐらいで同じ項目名があり行数は共に任意です。 なおイメージ図の「------」はセル結合のイメージですので、実際には 実践で囲います。 分かりづらし説明で申し訳ありませんがよろしくお願いします。
- 締切済み
- その他MS Office製品
- エクセル2003 VBAで セル内を 一発呼び出し
エクセル2003 オートフィルタではなく VBAで セル内を 一発呼び出ししたいので。 よろしく お願いします。 表 列A~E（結合２行） ：商品名と内容 列H~K（結合２行） 住所氏名電話番号を記載してます。 １年分を オートフィルターで 氏名 や 商品名で 探すのは 結構 時間がかかります。 同じものが ほぼ少ないため。。。 そこで たまに 同じ氏名 同じような 品を 検索する セルを ２個ほど作って そこへ セル１へ 商品名を入力すると 該当する 行のみ 表示される。 セル２に 名前をを入力すると 該当する 行のみ 表示される。 また、セルを赤色に塗った部分の結合行（２～３行）を 赤色に塗りつぶした行のみ 表示も できれば うれしいです。 コマンドボタン等を使ってもいいので お願いします。 そんな VBAを 作っていただけませんでしょうか＾＾； お手数おかけしますが どなたか よろしく お願いします。
- 締切済み
- オフィス系ソフト
- エクセル印刷で上下の結合セルが別ページにならない方法？
エクセル2000です。 一枚のシートに表が複数あります。 表中のセルはすべて数式が入っています。 A列は続き番号がふってあります。 B列～E列は上下のセルが結合しています。（2行分） F列は結合していません。 G列は上下の結合あります。（2行分） このような様式の表が、同一シートに1行あけて上から下へ続いています。 しかも、計算結果により表中の行が空白になる場合がよくあります。 その場合、は表中の空白行は非表示になるようにマクロで設定しています。 このシートを印刷した場合、2行を上下で結合したセルが、別ページに分かれてしまうことがよくあります。計算結果で表示がかわるので改ページを事前に入れておけません。 結合セルがページで分割されないようにするにはどうしたらよいでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルで結合セルの内容を解除した各セルに転記する
いつも大変お世話になっております。 過去にも同じ要求があり、何度か手作業で対処してきたのですが、今回は表が大きいので何とかならないかと。 具体的には特定の列（例えばA列）が3行から6行の接合セルになっている表で、A列の結合を解除したときにA１：A5、A６：A7と言った不規則に結合されている行の結合セルの内容を、結合を解除したときに各セルに転記したいのですが関数では無理なようで、当方のVBAの知識では解決できないのでどなたかお助けください。 尚、シート全体の結合セルを対象にするとまずいので、解除対象の列は指定した列のみで動くことが必要です。 複数列の結合列の解除の場合は、複数回に分けての実行もOKです。
- ベストアンサー
- Excel（エクセル）
- Wordの表（セルの結合あり。）に貼り付けると、左右凸凹に貼り付く
質問自体は、実際に見れば簡単なことなんですが、 言葉で書くので煩わしくなってしまいます。 Wordで作っている文章の中に表があります。 ただし、その表は単純な表ではなくて、 セルの分割や結合が行われています。 表自体は長方形をしていますが、セルの結合によって、行によりセルの数が違います。 詳しく書くと、 表は４列で、 列をエクセルのように假に左からＡ、Ｂ、Ｃ、Ｄとすると、 Ｄ列はどの行も結合されていません。 １行目は、Ａ１・Ｂ１・Ｃ１が結合されている状態。 ２行目と３行目は、Ａ２とＡ３が結合されていて、 Ｂ２とＣ２、Ｂ３とＣ３が結合されている。 ４・５・６行目は、Ａ４・Ａ５・Ａ６が結合されていて、 Ｂ４・Ｃ４が結合、Ｂ５・Ｂ６が結合。 ７行目は、（１行目と同じく）Ａ７・Ｂ７・Ｃ７が結合。 （多分、表を作るときは分割も使ったと思いますが、 説明が面倒になるので、分割という言葉は使いませんでした。） さて、結合がされていないＤ列に、 エクセルのある列のデータを貼り付けたいと思います。 貼り付けたいデータをコピーして、 上記のWordの表のＤ列を選んで貼り付けます。 すると、意図に反して、うまくＤ列に貼り付きません。 どの行でも、必ず、左から２つめのセルに貼り付いてしまいます。 上記のようにセルの結合が行われているために、 左右に凸凹に貼り付いてしまいます。 例えば、 ３列になっている２行目や３行目は、結合されている （左から）２つめのセル（Ｂ２・Ｃ２、Ｂ３・Ｃ３）に、 ４列になっている５行目や６行目は２つめのセル（Ｂ列）に貼り付いてしまいます。 このように、行のセルの数にしたがって凸凹に貼りつくのではなく、 行のセルの数にかかわらず縦一直線に貼り付けたいのですが、 どうすればよいでしょうか。 Ｗｏｒｄは２０００
- ベストアンサー
- オフィス系ソフト
お礼
おかげ様で解決出来ました。 いいサイトをご紹介いただきありがとうございます。