合併兩個單元格的內容爲一個單元格中的內容的方法

Andrew 更新時間 2025年1月3日

快连VPN:速度和安全性最佳的VPN服务

免费试用了解更多

如何合併兩個單元格內容爲一個單元格內容

例如：A1單元格內容是：老師

B1單元格內容是：您好

你想把A1和B1單元格內容合併成：老師您好，那麼C1的公式是：=A1&B1

即可！

如果你兩個單元格已經輸好了，這時又想合併內容，那麼你按照我下面的方法做即可：

大家都知道在EXCEL中，將多個單元格合併爲一個單元格時，EXCEL的合併功能只能保留左上角一個單元格的內容，其他單元格中的內容會被丟棄。而我們有時需要將合併的所有內容都被保留到一個單元格中，下面是我製作一個VBA宏，來實現這個功能。

首先按ALT+F11組合鍵，打開VBA窗口，按頂部菜單“插入-模塊”插入一個模塊，把下面代碼複製進去：

Sub 合併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

Cells(j, y) = Cells(j, y) & Cells(j, y + i)

Range(Cells(j, y), Cells(j, y + s)).Merge '合併

Application.DisplayAlerts = True

End Sub

Sub 合併2()

t = ＂＂

Set tt = Selection

x = tt.Row '第一個格行號

y = tt.Column '列號

For Each a In Selection

t = t & a.Value

a.Value = ＂＂

Cells(x, y) = t

Selection.Merge

Selection.WrapText = True '自動換行

End Sub

複製好後，關閉這個窗口，回到EXCEL，再按AIT+F8，點執行即可！

希望能對你有點幫助！

EXCEL如何用VBA將幾個單元格的數據合併到一個單元格里並去掉

Sub aa()

'排序

arr = Range(＂D3:M9＂).Value

For i = 1 To UBound(arr, 1)

For j = 1 To UBound(arr, 2) - 1

For k = j + 1 To UBound(arr, 2)

If arr(i, k)

tmp = arr(i, j)

arr(i, j) = arr(i, k)

arr(i, k) = tmp

End If

For i = 1 To UBound(arr, 1)

x = Cells(i + 2, 2)

f = False

s = arr(i, 1)

For j = 1 To 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)

End If

Set rg = Range(＂N＂ & (i + 2))

rg.Value = s

If f Then rg.Interior.ColorIndex = 3

End Sub

EXCEL vba實現合併單元格自動和

Sub合併單元格自動和（）

Application.ScreenUpdating = False

j = Range(＂F＂& Rows.Count).End(3).Row

Range(＂G3:G＂& j).UnMerge

Range(＂G3:G＂& j).ClearContents

n = Range(＂F3＂)

m = 3

Fori = 4 Toj

IfRange(＂B＂& i) = ＂＂Then

n = n + Range(＂F＂& i)

Else

Range(＂G＂& i - 1) = IIf(n = 0, ＂＂, n)

Ifm

n = Range(＂F＂& i)

m = i

EndIf

Range(＂G＂& i - 1) = IIf(n = 0, ＂＂, n)

Ifm

Application.ScreenUpdating = True

EndSub

如何將Excel多個單元格的內容合併到一個單元格

打開需要進行合併的excel文檔，並找到對象單元格。

利用字符連接符：

使用字符連接符“&”進行連接。此方法用於在合併不多單元格的數據時使用。例如：B1=A1&A2;B1=A1&A2&A3，一次內推。具體操作見圖。

利用文本函數：

使用文本函數CONCATENATE（)進行操作，例如：CONCATENATE(A1,A2,A3,.......A255)，但是：CONCATENATE 函數可將最多 255 個文本字符串聯接成一個文本字符串。聯接項可以是文本、數字、單元格引用或這些項的組合。例如，如果您的工作表的單元格 A1 中包含某個人的名字，單元格 B1 中包含這個人的姓氏，那麼，您可以通過使用以下公式將這兩個值合併到另一個單元格中。

具體操作如圖所示。

函數使用說明：

CONCATENATE(text1, [text2], ...)

CONCATENATE 函數語法具有下列參數（參數：爲操作、事件、方法、屬性、函數或過程提供信息的值。）：

Text1 必需。要連接的第一個文本項。

Text2， ... 可選。其他文本項，最多爲 255 項。項與項之間必須用逗號隔開。

註釋也可以用與號（&）計算運算符代替 CONCATENATE 函數來聯接文本項。例如，=A1 & B1 與 =CONCATENATE(A1, B1) 返回的值相同。

利用信息函數：

PHONETIC （)進行操作，獲取代表拼音信息的字符串，主要用於日文，它不能使用數字。具體操作如圖。

信息函數說明：

PHONETIC(reference)

PHONETIC 函數語法具有下列參數（參數：爲操作、事件、方法、屬性、函數或過程提供信息的值。）：Reference 必需。文本字符串或對單個單元格或包含 furigana 文本字符串的單元格區域的引用。