合并两个单元格的内容为一个单元格中的内容的方法-电脑知识-PHP中文网

合并两个单元格的内容为一个单元格中的内容的方法

王林

发布： 2024-01-14 22:15:17

转载

785 人浏览过

合并两个单元格的内容为一个单元格中的内容的方法

例如：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 文本字符串的单元格区域的引用。