2 つのセルの内容を 1 つのセルの内容に結合する方法

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)

j = 1 から UBound(arr, 2) - 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) then

s = 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

11

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 サイトの他の関連記事を参照してください。