如何将两个单元格内容合并为一个单元格中的内容

如何合并两个单元格内容为一个单元格内容

例如：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)

Next

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

Next

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

Next

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) < arr(i, j) Then

tmp = arr(i, j)

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

arr(i, k) = tmp

End If

Next

Next

Next

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

End If

Next

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

rg.Value = s

If f Then rg.Interior.ColorIndex = 3

Next

End Sub

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

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 < i - 1 ThenRange(＂G＂& m & ＂:G＂& i - 1).Merge

n = Range(＂F＂& i)

m = i

EndIf

Next

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

Ifm < i - 1 ThenRange(＂G＂& m & ＂:G＂& i - 1).Merge

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

说明：如果 reference 为单元格区域，则返回区域左上角单元格中的 furigana 文本字符串。如果 reference 为不相邻单元格的区域，将返回错误值 #N/A。

多种数据类型数据进行合并：

本办法主要以字符型数据内容与数值型数据进行合并。

1、如果数值型数据与字符型数据进行合并，那就必须，先把要合并的数值型数据进行格式设置，转换位字符型（文本型）。

2、PHONETIC(reference)函数可以用数据区域来操作，比较方便。

3、CONCATENATE(text1, [text2]， ...)函数必须是一个一个单元格的加。

4、字符连接符“&”，在每合并单元格中都必须使用该符号。

使用VBA的方法实现：