ホームページ > 記事 > コンピューターのチュートリアル > 2 つのセルの内容を 1 つのセルの内容に結合する方法
例: セル A1 の内容は次のとおりです: Teacher
セル B1 の内容は次のとおりです: Hello
セル A1 と B1 の内容を次のように結合したいとします。こんにちは、先生。C1 の数式は次のとおりです: =A1&B1
### それでおしまい!2 つのセルを入力し、その内容を結合したい場合は、以下の私の方法に従ってください:
EXCEL で複数のセルを 1 つのセルに結合する場合、EXCEL の結合機能では左上隅の 1 つのセルの内容のみが保持され、他のセルの内容は破棄されることは誰もが知っています。場合によっては、結合されたすべての内容を 1 つのセルに保持する必要がある場合があります。以下は、この機能を実現するために作成した VBA マクロです。
まず、ALT F11 キーの組み合わせを押して VBA ウィンドウを開き、トップ メニューの [モジュールの挿入] を押してモジュールを挿入し、そこに次のコードをコピーします。
サブマージ1()
Application.DisplayAlerts = False
Set tt = Selection '選択した領域を割り当てます
a = tt.Rows.Count '選択行数
x = tt.Row '最初の行番号
y = tt.Column '列番号
s = tt.Columns.Count - 1 '列数を 1 つ減らします
For j = x To x a - 1
For i = 1 To s
セル(j, y) = セル(j, y) & セル(j, y i)
###次###Range(Cells(j, y), Cells(j, y s)).Merge 'Merge
###次###Application.DisplayAlerts = True
エンドサブ
サブマージ2()
t = """
tt = 選択を設定
x = tt.Row '最初の行番号
y = tt.Column '列番号
選択範囲内のそれぞれについて
t = t & a.値
a.Value = """
###次###セル(x, y) = t
選択.結合
Selection.WrapText = True '自動的に行を折り返す
エンドサブ
コピー後、このウィンドウを閉じ、EXCEL に戻り、もう一度 AIT F8 を押して、[実行] をクリックします。
それがあなたのお役に立てば幸いです!
EXCEL で VBA を使用して複数のセルのデータを 1 つのセルに結合し、削除する方法
サブaa()
###'選別###arr = Range("D3:M9").Value
For i = 1 to UBound(arr, 1)
k = j 1 の場合、UBound(arr, 2)へ
If arr(i, k)
tmp = arr(i, j)
arr(i, j) = arr(i, k)
arr(i, k) = tmp
終了の場合
###次### ###次### ###次###For i = 1 to UBound(arr, 1)
x = セル(i 2, 2)
f = 偽
s = arr(i, 1)
j = 1からUBound(arr, 2)の場合
If arr(i, j) = x then f = True '赤字で埋めるかどうか
If j > 1 then '重複を削除します
If arr(i, j)
arr(i, j - 1) thens = s & "," & arr(i, j)
終了の場合
終了の場合
###次###
Set rg = Range("N" & (i 2))rg.Value = s
If f then rg.Interior.ColorIndex = 3
###次###
エンドサブEXCEL vbaでセルの自動結合を実現
1
2
3
4
5
6
###7###8
9
10
12
13
14
15
16
17
18
19
20
###21### ###22### ###23###サブセルを自動的に結合し、()
Application.ScreenUpdating = False
j = Range("F"& Rows.Count).End(3).Row
Range("G3:G"& j).UnMerge
Range("G3:G"& j).ClearContents
n = 範囲("F3")
m = 3
Fori = 4Toj
IfRange("B"& i) = ""Then
n = n 範囲("F"& i)
###それ以外###Range("G"& i - 1) = IIf(n = 0, "", n)
Ifm
n = 範囲("F"& i)
m = i
EndIf
###次###Range("G"& i - 1) = IIf(n = 0, "", n)
Ifm
Application.ScreenUpdating = True
EndSub
Excel の複数のセルの内容を 1 つのセルに結合する方法
結合する必要がある Excel ドキュメントを開き、オブジェクトのセルを見つけます。
文字コネクタを使用する:
文字結合子「&」を使用して接続します。この方法は、いくつかのセルのデータを結合する場合に使用されます。例: B1=A1&A2;B1=A1&A2&A3 を 1 回押します。具体的な操作については画像を参照してください。
テキスト関数を使用する:
たとえば、CONCATENATE(A1,A2,A3,......A255) のように操作するには、テキスト関数 CONCATENATE() を使用します。ただし、CONCATENATE 関数は、最大 255 個のテキスト文字列を 1 つのテキスト文字列に連結できます。結合項目には、テキスト、数値、セル参照、またはこれらの組み合わせを使用できます。たとえば、ワークシートのセル A1 にある人の名が、セル B1 にその人の姓が含まれている場合、次の数式を使用して、2 つの値を別のセルに結合できます。
具体的な操作は図の通りです。
関数の使用方法:
CONCATENATE(テキスト1, [テキスト2], ...)
CONCATENATE 関数の構文には次のパラメーターがあります (パラメーター: 操作、イベント、メソッド、プロパティ、関数、またはプロシージャの情報を提供する値。):
テキスト1 必須。連結される最初のテキスト項目。
Text2, ... オプション。追加のテキスト項目、最大 255 項目。用語はカンマで区切る必要があります。
注 CONCATENATE 関数の代わりにアンパサンド (&) 計算演算子を使用してテキスト項目を結合することもできます。たとえば、=A1 & B1 は =CONCATENATE(A1, B1) と同じ値を返します。
情報機能の利用:
PHONETIC () はピンイン情報を表す文字列を取得するために動作します。主に日本語に対して使用されます。数字は使用できません。具体的な動作を図に示します。
情報機能の説明:
音声(参考)
PHONETIC 関数の構文には次のパラメータがあります (パラメータ: 操作、イベント、メソッド、プロパティ、関数、またはプロシージャの情報を提供する値): 参照が必要です。ふりがなテキスト文字列を含むテキスト文字列、または単一のセルまたはセル範囲への参照。
説明: 参照がセル範囲の場合、範囲の左上隅のセルにあるふりがなテキスト文字列を返します。参照が隣接しないセルの範囲である場合、エラー値 #N/A が返されます。
複数のデータ型のマージ:
このメソッドは主に文字データの内容と数値データを組み合わせます。
1. 数値データと文字データを結合する場合は、結合する数値データを整形して文字型(テキスト型)に変換する必要があります。
2. PHONETIC (リファレンス) 機能はデータエリアを使用して操作できるため、より便利です。
3. CONCATENATE(text1, [text2], ...) 関数はセルごとに追加する必要があります。
4. 結合された各セルでは文字結合子「&」を使用する必要があります。
VBA メソッドを使用して次のことを実現します:
以上が2 つのセルの内容を 1 つのセルの内容に結合する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。