|
||||||
 |
||||||
|
||||||
|
||
|
はじめての方へ- このQ&Aは役に立った
- 役にたった：0件
質問 |
||
| 質問者：mantel | 以下のようなセルの結合って、どうすればいいのでしょうか？ | |
|---|---|---|
困り度：
|
みなさん、是非教えて頂けないでしょうか。 エクセルで、以下のようにセルを即座に結合できる方法を探しています。 名前 お店 松本 Ａ 松本 Ｂ 松本 Ｃ 鈴木 Ｄ 山口 Ｆ 山口 Ｇ 山口 Ｈ 山口 Ｉ 山口 Ｊ ↓ 名前 お店 Ａ 松本 Ｂ Ｃ 鈴木 Ｄ Ｆ Ｇ 山口 Ｈ Ｉ Ｊ 名前毎に、次の列の名前が変わったら、その連続している名前のセルを全て結合したいのです。 全部で約７５００行、名前が５００程あるので、中々手作業だと時間がとられて仕方ありません。 どなたか、お力を貸して頂けないでしょうか。 よろしくお願い致します。 |
|
質問投稿日時：08/07/04 11:24 質問番号：4150289 |
||
回答 |
|
| 回答者：merlionXX | A列に名前がありA1から始まっているものとします。 以下の手順をおためしください。 1.Altキー＋F11キーで Visual Basic Editor画面を呼び出します。 2.画面上部のメニューバーから挿入、標準モジュールで出てきたコードウィンド（右側の白い広い部分）に以下のコードをコピペします。 '*****ここから下をコピペ***** Sub test01() With ActiveSheet i = 1 Do While .Cells(i, 1).Value <> "" j = i + 1 Do While .Cells(i, 1).Value = .Cells(j, 1).Value j = j + 1 Loop Application.DisplayAlerts = False .Range(.Cells(i, 1), .Cells(j - 1, 1)).Merge Application.DisplayAlerts = True i = j Loop End With End Sub '*****ここより上までをコピペ***** 3.Alt+F11キーでワークシートへもどります. 4.メニューから、ツール、マクロ、マクロで出てきたマクロ名（test01）を選択して実行 これでできます。 |
|---|---|
| 種類：アドバイス どんな人：一般人 自信：参考意見 |
|
| |
回答日時：08/07/04 12:54 回答番号：No.4 |
|
| この回答への補足 | この回答に補足をつける(質問者のみ) |
| この回答へのお礼 | merlionXXさん 説明をご丁寧に記入して頂いたおかげで、無事にセルの結合ができました。 どうもありがとうございました。 |
回答 |
|
| 回答者：ts3m-ickw | No.2です。1回しか使わないだろうからいいかなって思ったんですが、 jが参照範囲を超えてエラーになるのが嫌な場合はこちらを。 Sub Merge() i = 1 Do While (i < 7500 And j < 7500) j = i + 1 Do While Cells(i, 1).Value = Cells(j, 1).Value j = j + 1 If j > 7500 Then GoTo endm Loop Range(Cells(i, 1), Cells(j - 1, 1)).Select Selection.Merge i = j Loop endm: End Sub |
|---|---|
| 種類：回答 どんな人：一般人 自信：自信あり |
|
| |
回答日時：08/07/04 12:13 回答番号：No.3 |
|
| この回答への補足 | この回答に補足をつける(質問者のみ) |
| この回答へのお礼 | ts3m-ickwさん あっという間に対象の名前を全て結合することができました。 １つ１つクリックするだけなので、とても作業が簡素化されました。 本当にありがとうございました！ |
回答 |
|
| 回答者：ts3m-ickw | こんなマクロを組んで実行して、あとは左クリックかEnterを連打する。 Sub Merge() i = 1 Do While i < 7500 j = i + 1 Do While Cells(i, 1).Value = Cells(j, 1).Value j = j + 1 Loop Range(Cells(i, 1), Cells(j - 1, 1)).Select Selection.Merge i = j Loop End Sub |
|---|---|
| 種類：回答 どんな人：一般人 自信：参考意見 |
|
| |
回答日時：08/07/04 11:57 回答番号：No.2 |
|
| この回答への補足 | この回答に補足をつける(質問者のみ) |
| この回答へのお礼 | この回答にお礼をつける(質問者のみ) |
回答 |
|
| 回答者：Chiquilin | Ａ Ｂ Ｃ Ｄ １ 名前 お店 結合 ２ 松本 Ａ 1 ３ 松本 Ｂ 1 ４ 松本 Ｃ 1 ５ 鈴木 Ｄ 0 ６ 山口 Ｆ 1 ７ 山口 Ｇ 1 ８ 山口 Ｈ 1 ９ 山口 Ｉ 1 １０ 山口 Ｊ 1 ■C2セル =MOD(C1+(A1<>A2),2) フィルハンドルをダブルクリック C列を1行目から最終行まで選択して [フィルタ]→[オートフィルタ] まず「1」を抽出し行番号が青字の D列の2行目から最終行までを選択 Alt + ; で可視セル選択をして[セルの結合] 次に「0」を抽出して同じ処理を行う。 これで D列に結合された範囲が作成されるので オートフィルタを解 除後 D列をコピーして A列に[形式を選択して貼り付け]→[書式]を 選択して[OK] でいいと思います。 |
|---|---|
| 種類：回答 どんな人：一般人 自信：参考意見 |
|
| |
回答日時：08/07/04 11:53 回答番号：No.1 |
|
| この回答への補足 | この回答に補足をつける(質問者のみ) |
| この回答へのお礼 | Chiquilinさん 無事にセルの結合を行うことができました。 早急にお答え頂きありがとうございました。 |
- このQ&Aは役に立った
- 役にたった：0件
はじめての方へ