合并两个单元格的内容为一个单元格中的内容的方法
- 王林转载
- 2024-01-14 22:15:17832浏览
合并两个单元格的内容为一个单元格中的内容的方法
例如：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)
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
n = Range(＂F＂& i)
m = i
EndIf
Next
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 文本字符串的单元格区域的引用。
说明：如果 reference 为单元格区域，则返回区域左上角单元格中的 furigana 文本字符串。如果 reference 为不相邻单元格的区域，将返回错误值 #N/A。
多种数据类型数据进行合并：
本办法主要以字符型数据内容与数值型数据进行合并。
1、如果数值型数据与字符型数据进行合并，那就必须，先把要合并的数值型数据进行格式设置，转换位字符型（文本型）。
2、PHONETIC(reference)函数可以用数据区域来操作，比较方便。
3、CONCATENATE(text1, [text2]， ...)函数必须是一个一个单元格的加。
4、字符连接符“&”，在每合并单元格中都必须使用该符号。
使用VBA的方法实现：
以上是合并两个单元格的内容为一个单元格中的内容的方法的详细内容。更多信息请关注PHP中文网其他相关文章！