エクセルの表を印刷するには見栄えの為にセルの結合を行ったら、並べ替えをするとエラーになって困ったことありませんか？

Mergeメソッドを書き加えれば、自動的にセルの複数一括結合・解除を自動的に行ってくれるので、並べ替え時のエラーを回避できる方法をご紹介します。

Mergeメソッド

VBAでセルの結合・解除は、Mergeメソッドを使いますが、エラーを防ぐ為に結合・解除するセルの範囲の左上端の入力値がセルを指定します。

その為にその他のセル入力値は削除されるので注意してください。

Mergeメソッドでセル結合

まず、Mergeメソッドの基本的な使い方の例として、セルA1とセルB1の隣同士を結合するVBAコードをご紹介します。

ここではユーザーフォームに配置したコマンドボタンに記載している例です。

このようにとても簡単で、ここではRangeを使いましたが、繰り返し処理の変数を使う時はCellsを使うので下記のようになります。

今回の例は隣同士のセルを結合するVBAコードですが、もちろんA1:C1とすれば横3列を結合、A1:B2とすれば縦横4つのセルが結合できます。

UnMergeメソッドでセル解除

結合の次はセルの結合解除も重要ですが、とても簡単な事で結合時に使った「Merge」を解除の「UnMerge」に変えるだけでセルを解除できます。

このように簡単にVBAコードを書くことができます。

行単位で複数のセル結合・解除

1か所のセルの結合・解除を行うのならばVBAを使わないと思いますが、複数の行をまとめて一括処理で結合・解除を行わなくてはいけないのでVBAを使うと思います。

ここでは、Mergeメソッドの引数AcrossをTrueに設定することで、選択範囲のセルを行単位で結合することができるようになります。

例としてRangeを使ってセル範囲A1:B10を行単位で結合するVBAコードをご紹介します。

これでA1とB1が結合A2とB2が結合・・・A10とB10が結合と行単位結合の完成です。

※引数Trueを入れ忘れるとA1からB10が全て結合されるので注意！

ちなみに行単位で結合したセルを結合解除する方法は、基本的なセル結合解除と一緒です。

セル結合のある表の並べ替え

セルの結合・解除を行いながらエクセルで作った表の並べ替えをVBAを使って実行する方法をご紹介します。

ここでは下の図のようにセルB2～C10を行単位で結合して点数を見やすくするVBAコードで、同時に点数の多い順に並べ替えも同時に行います。

ここでは、実際に使っているように画面のちらつきを防ぐVBAコードと、シートの保護・解除も付け加えています。

波乗りアヒル

並べ替えエラーを防ぐためにこのような順でVBAコード記述すれば、エラーが出なくなります。
順番を間違えるとエラーになりますよ！

関連記事

CSVファイルなどを取り込んだ時に、苗字と名前が別々のセルに分かれていることが多いと思いますが、１つのセルに結合して表示したいと思ったことありませんか？

例えば、セルA1の値が「山田」でセルB1の値が「太郎」、この2つをくっつけてセルC1に「山田太郎」こんな感じ！

数が少なければ、ひとつひとつ手作業でできるかもしれませんが、大量のデータの場合は時間が相当かかりますので面倒ですよね。

そこでここでは「＆」を使って別々のセルに入力された値をくっつけて（結合）１つのセルに表示する方法をご紹介します。

別々のセルに入力された「苗字」と「名前」を結合

図のように、セルA列に「苗字」セルB列に「名前」があり、セルD列に苗字と名前を結合した「氏名」を表示されるようにします。

さらにセルF列には氏名の間にスペースが入れることもできるので、応用編として記載しています。

苗字と名前の結合

とても簡単な方法で、氏名として表示させるセルD2に下記のように数式をにゅる力すれば、瞬時に氏名結合の完成です。

いかがですか？

あっという間に氏名結合できましたよね。

残りの2人目以下にはコピーすれば簡単に全員の氏名結合が完成します。

では次に、苗字・空欄・名前「氏　名」というように結合してみましょう。

苗字と名前の間にスペースを入れて結合

エクセルで空欄（スペース）を入れるには「”　”」と入力すれば、全角文字列1つ分空欄と意味になっていますので、エクセルの数式は下記のようになります。

このようにセルF2に入力すると苗字と名前の間にスペースが入った「氏　名」に簡単にすることができます。

いかがですか？とても簡単でしたね

波乗りアヒル

ちょっと応用で空欄の代わりにこんなこともできますが、活用する機会は少ないかな？

さらに、数字同士をくっ付けたら・・・

セルAP列にセルAW列とAX列の数字を結合したら、見た目は数字がくっついたけど、これは文字列なのでVLOOKUP関数などでは扱えないので注意！！

波乗りアヒル

検査値は数字でないといけないので、文字列の値ではエラーになりますよ！

関連記事

入力済みセルの値を消去することがあり、1個1個手作業で空白にするのが面倒だと思ったことはありませんか？

Excel-VBAのコマンドボタンを押すことにより、指定した複数セルの値が一瞬で一括消去されて空白にするClearContentsを使った方法をご紹介します。

ClearContents

ClearContentsを使うには、データ消去したいセル番号を書いてからClearContentsで挟んであげます。

表示中のシート上でセル1か所のデータ消去

この場合シート名が指示されていないので、開いているシート上でないと、全く違うシートのセルAP3の値が消去されてしまうのでご注意を！

シート名を指定してセル1か所のデータ消去

どのシートを表示中でも、シート名を指定しているので確実に消去することができるので、トラブルを防ぐためにもシート名を加えておく方が大事ですよ。

2か所のセルのデータ消去

セル番号の間に「,」を付けるだけで、複数セルをまとめて消去することができます。

セルの範囲を指定してデータ消去

セル番号の間に「：」を付けるだけで、セルの範囲をまとめて消去することができます。

波乗りアヒル

.ClearContentsを使ってデータを一度クリアしてから、作業をするほうが間違えやエラーが無くなるので、必須のVBAコードですね。

関連記事

小さなお店ではスタッフのシフト表をエクセルで管理している事が多いと思いますが、時間別出勤リストを表示させるときにお休みの人は非表示にして見やすくしたいと思いませんか？

Excel-VBAを使えば簡単に不要な行や列を非表示にしたり再表示させる方法をご紹介します。

Hiddenプロパティ

Hiddenプロパティを使う事により、個別の行や列に対して表示・非表示の設定ができるようになります。

これにより、IFステートメントを組み合わせることで、条件に応じて非表示にしたり、再表示させることが簡単にできるようになりますので、まずは基本的な使い方からご紹介します。

決まった1行を非表示にする

例えば3行目を非表示にするだけならば、ユーザーフォームに配置したコマンドボタンに下記VBAコードを書くだけです。

たったこれだけですが、実用的ではありませんね。

決まった範囲の行を非表示にする

これも実際には使っていないのですが、複数行（例えば3行目～5行目）を非表示にするには、下記のようなVBAコードを記載します。

非表示した行を表示させる

次に、非表示にしてある行を表示させるには、Trueの部分をFalseに代えるだけです。

決まった1列を非表示にする

行の次は列の日表示させる方法をご紹介します。

行の時と同様に3列目を非表示にするだけならば、行の部分「Rows」を列を表す「Columns」に置き換えて、3列目はＣ列に代えるだけです。

行の時と異なるのは、（）内が数字ならば(3)と記載するだけなのですが、列の場合はアルファベットなので(“C”)と””が必要になることぐらいです。

決まった範囲の列を非表示にする

複数列の場合も行の時と同じなので3列目から5列目は、C列～Ｅ列となります。

このように行と列を非表示・表示させ方法は同じように扱うことができますし、表示方法も同じTrueをFalseにするだけです。

そして、行と列を同時に行うならば続けてVBAコードを記載すれば可能です。

それでは、次に実用的な条件に応じて行を非表示にする例としてのVBAコードをご紹介します。

条件に応じて行を非表示にする

セルA1の値が0の時に非表示にして、それ以外ならば表示させるVBAコードです

波乗りアヒル

このように使えば条件に応じて表示・非表示ができますよ。

関連記事