• ベストアンサー

セル結合をマクロで行ないたい(その2)

度々お世話になっております。 エクセル2000ですが、例えばA1:C10の範囲を選択した状態で、一発で横方向のみのセル結合をする(A1,B1,C1を結合、A2,B2,C2を結合、・・・A10,B10,C10を結合)マクロは可能でしょうか?

質問者が選んだベストアンサー

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.1

こんな感じでしょうか。 Sub mergeCells_Row()   Dim rw As Long 'セル   With Selection     For rw = 1 To .Rows.Count       Range(.Cells(rw, 1), .Cells(rw, .Columns.Count)).MergeCells = True     Next   End With End Sub 参考ですが、267734は Union(ActiveCell, ActiveCell.Offset(0, 1)).MergeCells = True のように書けます。

MSZ006
質問者

お礼

ご回答ありがとうございます。 教えていただいた方法で思っていたとおりのことができました。これで作業が捗ります。ありがとうございました。

関連するQ&A

  • Excel(セルの結合マクロ)

    いつもお世話になっております。 Excelのマクロで、選択範囲の中で、下のセルが空白のものは、上のセルと結合されるマクロを作りたいと考えています。 (例1:A1セルに”TEST”が入力されており、A2,A3セルが空白として、A1:A3を選択し、マクロを実行するとA1からA3がセル結合される  例2:A1に”TEST2”B2に"TEST3"が入力されており、A1:B3を選択すると、A1からA3が結合され、B2とB3も結合される) 説明が下手で申し訳ないのですが、お力を貸していただけませんでしょうか? よろしくお願いいたします。

  • セルの結合マクロについて

    セルの結合マクロについてご相談させてください。 セルのA2とA3を結合,B2とB3を結合。 セルのA4とA5を結合,B4とB5を結合。 セルのA6とA7を結合,B6とB7を結合。 というように、A2,A4,A6・・・、B2,B4,B6・・・にデータがあれば、結合するマクロを作成したいです(データがなければそこまでのデータを結合)。 例えば、A2とA3両方にデータがあった場合、A2の内容で表示されるようにしたいです(B2とB3についても同様)。 複雑でどのようにマクロを書けばよいのか困っていました。 恐れ入ります、どのようにすれば良いのかわかる方がいましたら教えていただけないでしょうか。

  • エクセルでセル結合しようとすると

    A1に著者名、B1に作品名、C1に出版社、D1に出版年と入力した10行ほどデータを、セル結合によって一行ずつ一つのセルにしたいと思い、 全データを選択した状態で、 ツールバーにドラッグした「横方向に結合」をクリックすると、 「選択範囲には複数のデータ値があります。1つのセルとして結合すると選択したセル範囲にある最も左上端にあるデータのみが保持されます」 と出て、左端以外のデータが消えちゃうんですけど、全てのデータを保存するのはできないんでしょうか?

  • エクセル2013 セル結合 一度にできる?

    これまで、エクセルでセル結合の(やや?)特殊な機能を使用していました。 それは「横方向への結合」といったような機能でした。 複数のセルを選択し、 そのボタン(機能)を実行すると、 選択範囲が、全て、横方向に結合されます。 これによって、一度に複数の、横方向に結合されたセルを作ることができました。 一行分のセルを結合してから、次にフィルやコピーで増やしていくよりも、手間が一つ省けるので便利だと思っていました。 エクセル2013に変わって、この機能を示すボタンが見つかりません。 これは、なくなってしまったのでしょうか?

  • セルの結合による影響

    エクセルのセル範囲を結合させた時の、結合したセル範囲内のセルが示す値について教えてください。 まず、B2:D5のセル範囲を結合します。結合したセル範囲を選択して、数字10を入力します。 任意のセルを選択して、式"=B2"を入力するとセルには、10が表示されます。次に"=C2"を入力すると、0(零)が表示されます。同じく他の、セル範囲のメンバーで同じことをしてもすべて0(零)が表示されます。 次に、式"=B2:C2"を入力すると、10が表示されます。しかし、式"=B2:D2"では、0(零)が表示されます。 さらに、式"=B2:C4"、式"B2:C3"、式"=B2:D5"では、#VALUEが表示されます。 いったい、一番最初に入力した10の数字はどこに格納されているのでしょうか?また、結合したセル範囲ないで、任意のセル範囲を参照してしまった場合、何を参照することになるのでしょうか?単にセル範囲の左上の値ではないようですが? 参考に、式"C2:D2"では、0(零)、式"=C2D3"では、同じように#VALUEとなります。(相対参照にはなっているようです?)詳しい方いらっしゃいませんか? よろしくお願いします。

  • セルの結合について

    いつもお世話になっております セルの結合がどうしてもうまく行かなくて困っております。   A1    B1   C1   東京   1組  000001   とエクセルで表を作りましたが、 この3つを結合させて、ワードに貼り付けたいと思っています。 セルの結合をすると、最所の東京も文字しか出ません。 どのようにすればいいのでしょうか? またワードに貼り付ける方法も、教えていただければ幸いです。 宜しくお願いします。

  • EXCEL97で、結合セルをコピー、値貼付けはできないのでしょうか

    EXCEL97を使用しています。 結合セルと結合していないセルが共に含まれた範囲を指定してコピーし、別のセルに『形式を選択して貼付け』の『貼付 値』を行った場合に「この範囲には同じ操作のセル結合が必要です」とのメッセージが出て、貼付けできません。 ※ 上記の選択範囲の例   A1とB1をセル結合した上、A1:B4を範囲指定(A2:B4は通常セル) 書式設定のボタンの『←a→』という形のものを使っているのですが、95の時はセル結合機能までが付与されてなかったので、問題なかったのですが、97になって困っています。 以下のようなアイデアはありますが、それ以外に良いものはあるでしょうか。 1.セル結合した部分とセル結合していない部分を2回に分けて行う 2.上記ボタンを使用せずに、セルの書式の横位置を『選択範囲内で中央』を選択

  • Excelのセルの結合

    ExcelでA1からA8までセルの結合をして、 同じようにB1からB8、C1からC8・・・・とセルの結合をしたいのですが、何か簡単な方法は無いでしょうか? 行数がかなりあるので、「繰り返し」ですときつい感じです。 よろしくお願いします。

  • エクセルの結合したセルをマクロで縦に分割する方法

    エクセルの、結合したセルをマクロで縦にだけ分割する方法を教えて下さい。 例えば【A1:C3】が結合してあって、「あ」と入力してあるとします。 それを【A1:C1】と【A2:C2】と【A3:C3】に分割して、さらにそれぞれのセルに「あ」という文字を残したいのです。 最悪でも、【A1:C1】には「あ」が必要です。 いろいろ検索しましたが、ちょうどよい回答にみつかりません。 XPでエクセル2003です。 よろしく御願いします。

  • エクセルのマクロで結合セルに値を貼り付けたい

    お世話になります。 マクロ初心者で本やネットで色々調べたのですが分からないため 教えていただけますと幸いです。 Sheet1にはB1:B3、B4:B6…と3行縦に結合された表があり、 Sheet2のA列には単独セルに商品の名前が入っております。 膨大な量のため、Sheet2のA列に入っている情報を Sheet1の縦に結合されたセルに一つずつマクロで転記したいと 考えております。 Range("B1:B100").Value = Range("A1:A100").Value のように記載すると、2個飛ばしで入力されてしまうので、 結合されている分飛ばされないで一つずつ転記したいのですが どのようにしたら良いでしょうか。

専門家に質問してみよう