Note: The other languages of the website are Google-translated. Back to English

列に空白のセルが見つかるまでセル値を連結するにはどうすればよいですか?

docは空白になるまで連結します1

たとえば、いくつかの空白セルを含む値のリストがあります。次に、空白間のデータの各セットをセルに連結し、次のスクリーンショットに示すように、結合された値を別の列にリストします。 列に空白のセルが見つかるまでセルを連結するにはどうすればよいですか?

VBAコードの列で空白のセルが見つかるまで、セルの値を連結します

Kutools for Excelを使用して、列に空白のセルが見つかるまでセル値を連結します


矢印青い右バブル VBAコードの列で空白のセルが見つかるまで、セルの値を連結します

空白の間にセルのセットを連結する直接的な方法はありませんが、次のVBAコードを適用して処理することができます。 次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード:空白のセルが見つかるまでセル値を連結します

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. 次に、 F5 このコードを実行するためのキーを押すと、連結するデータ範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

docは空白になるまで連結します10

4。 次に、をクリックします OK、別のプロンプトボックスが表示されたら、セルを選択して連結結果を出力してください。スクリーンショットを参照してください。

docは空白になるまで連結します11

5. そして、 OK ボタンをクリックすると、列リストのデータが空白の間に連結されます。スクリーンショットを参照してください。

docは空白になるまで連結します1


矢印青い右バブル Kutools for Excelを使用して、列に空白のセルが見つかるまでセル値を連結します

あなたが持っている場合 Kutools for Excel、その組み合わせ 変換範囲 及び 組み合わせる 機能、あなたはまた、できるだけ早くこの仕事を終えることができます。 ザ・ 変換範囲 ユーティリティは、単一の列を範囲に変換するのに役立ちます。 組み合わせる 機能は、変換された範囲を列に連結するのに役立ちます。

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. 

インストールした後 Kutools for Excel、次のようにしてください。

1. 連結するセルを選択し、をクリックします クツール > レンジ > 変換範囲、スクリーンショットを参照してください:

2。 の中に 変換範囲 ダイアログボックス、チェック 範囲に単一の列 オプションの下に 変換タイプ、次に選択 空白のセルでレコードを区切る レコードあたりの行数、スクリーンショットを参照してください:

docは空白になるまで連結します3

3. 次に、をクリックします。 Ok、およびプロンプトボックスが表示され、結果を出力するセルを選択するように通知されます。スクリーンショットを参照してください。

docは空白になるまで連結します4

4に設定します。 OK をクリックします。 OK、および単一列のデータは、空白のセルによって複数の行と列に変換されています。スクリーンショットを参照してください。

docは空白になるまで連結します5

5。 変換されたデータは複数の列にあるため、それらをXNUMXつの列に結合する必要があります。データ範囲を選択して、をクリックしてください。 クツール > マージ&スプリット > データを失うことなく行、列、またはセルを組み合わせる、スクリーンショットを参照してください:

6。 の中に 列または行を組み合わせる ダイアログボックスで、次のオプションを実行します。

(1.)選択 列を組み合わせる オプションから 次のオプションに従って選択したセルを組み合わせるには;

(2.)次に、連結された値を区切る区切り文字を指定します。

(3.)結合されたセルをどのように処理するかを選択します。 元のデータを保持または削除したり、結合されたセルをマージしたりすることもできます。 スクリーンショットを参照してください:

docは空白になるまで連結します7

7。 設定が終わったら、 Ok or お申し込み ボタンをクリックすると、セルは特定の区切り文字でXNUMXつの列に連結されます。スクリーンショットを参照してください。

docは空白になるまで連結します8

今すぐExcel用のKutoolsをダウンロードして無料トライアル!


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (7)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
別の列に基づいて作成する場合は、どのように行いますか? 私は同様のデータを持っていますが、列Bは数字であり、列Iのメモ(果物のように)です。列Bに数字しかない別のセルができるまで、列Iのすべてのメモを結合します。 Bの下に文字がある場合や、セルが空白である場合があります。そのため、数字になるまで組み合わせる必要があります。 それでは、最終的に、結合を開始した場所に出力して戻すことができますか? IEの最初の番号のすべてのメモは列jにありますが、次の番号が5行下であれば問題ありませんが、列jに入るだけですが、番号と同じ行番号が見つかりますか?
このコメントは、サイトのモデレーターによって最小化されました
メソッド3に基づいてこのモジュールを実行しようとすると、1行目の「DimxRg As Range」に構文エラーがあることを示しています。どうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、JJ、コードは私のワークシートでうまく機能します。どのExcelバージョンを使用していますか?または、ここに問題の概要を挿入できます。
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい仕事仲間、とても便利
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
どういたしまして。 お役に立ててうれしいです。 ご不明な点がございましたら、お気軽にお問い合わせください。 すてきな一日を。
敬具
マンディ
このコメントは、サイトのモデレーターによって最小化されました
やあ! 値を変更した後 (例: リンゴの代わりにスイカ)、式が機能しないのはなぜですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、クリスティーナ

この記事では VBA コードを提供しますが、数式は提供しません。 セルの内容を変更した場合、正しい結果を得るにはコードを再実行する必要があります。
ありがとうございました!
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護