查看: 885|回复: 15
如图，怎么样将B列数据合并成为C列显示的方式
阅读权限10
在线时间 小时
如图，怎么样将B列数据合并成为C列显示的方式
(59.55 KB, 下载次数: 0)
09:31 上传
合并相同的数字列
阅读权限70
在线时间 小时
最好上传一个附件。
阅读权限100
在线时间 小时
VLOOKUP就可以了。
阅读权限70
在线时间 小时
Sub stet()
On Error Resume Next
Dim Col As New Collection
Dim Rng As Range
Dim arr, i%, x%, y%, j%
& & For Each Rng In Range(&a2&, Cells(Rows.Count, &a&).End(3))
& && &&&If Trim(Rng) && && Then Col.Add Rng, CStr(Rng)
& & Next
& & For i = 1 To Col.Count
& && &&&x = [a:a].Find(Col(i), , , 1).Row
& && &&&y = Application.CountIf([a:a], Col(i))
& && &&&arr = Range(&b& & x & &:b& & x + y - 1)
& && &&&For j = x To x + y - 1
& && && && &Cells(j, 3) = Join(Application.Transpose(Application.Index(arr, , 1)), &|&)
& && &&&Next
& & Next
End Sub复制代码
阅读权限70
在线时间 小时
Public Sub ttt()
Dim arr, brr, crr
Dim Rng As Range
Dim i As Long, n As Long, m As Long
Set Rng = Range(&A1&).CurrentRegion
Set Rng = Rng.Offset(1)
For i = 1 To UBound(arr) - 1
& & If arr(i, 1) = arr(i + 1, 1) Then
& && &&&n = n + 1
& && &&&If n = 1 Then
& && && && &ReDim brr(1 To 1)
& && && && &brr(1) = arr(i, 2)
& && &&&Else
& && && && &ReDim Preserve brr(1 To n)
& && && && &brr(n) = arr(i, 2)
& && &&&End If
& && &&&n = n + 1
& && &&&ReDim Preserve brr(1 To n)
& && &&&brr(n) = arr(i, 2)
& && &&&m = m + 1
& && &&&If m = 1 Then
& && && && &ReDim crr(1 To 1)
& && && && &crr(1) = VBA.Join(brr, &|&)
& && &&&Else
& && && && &ReDim Preserve crr(1 To m)
& && && && &crr(m) = VBA.Join(brr, &|&)
& && &&&End If
& && &&&n = 0
& & End If
Range(&D2&).Resize(m) = Application.WorksheetFunction.Transpose(crr)
阅读权限70
在线时间 小时
》》》》》》》》》》》》》》
10:41 上传
点击文件名下载附件
16.13 KB, 下载次数: 2
阅读权限70
在线时间 小时
& & & & & & & &
精简了一点
Public Sub ttt()
Dim arr, brr(), crr()
Dim Rng As Range
Dim i As Long, n As Long, m As Long
Set Rng = Range(&A1&).CurrentRegion
Set Rng = Rng.Offset(1)
For i = 1 To UBound(arr) - 1
& & If arr(i, 1) = arr(i + 1, 1) Then
& && &&&n = n + 1
& && && && &ReDim Preserve brr(1 To n)
& && && && &brr(n) = arr(i, 2)
& && &&&n = n + 1
& && &&&ReDim Preserve brr(1 To n)
& && &&&brr(n) = arr(i, 2)
& && &&&m = m + 1
& && &&&ReDim Preserve crr(1 To m)
& && &&&crr(m) = VBA.Join(brr, &|&)
& && &&&n = 0
& & End If
Range(&D2&).Resize(m) = Application.WorksheetFunction.Transpose(crr)
阅读权限30
在线时间 小时
Sub hebing()
Dim Arr, i%, n%, Dic, k, t
Set Dic = CreateObject(&Scripting.Dictionary&)
Arr = ActiveSheet.UsedRange
n = UBound(Arr)
ReDim Brr(2 To n)
For i = 2 To n
If Dic(Arr(i, 1)) && && Then
Dic(Arr(i, 1)) = Dic(Arr(i, 1)) & &|& & Arr(i, 2)
Else
Dic(Arr(i, 1)) = Arr(i, 2)
End If
Next
t = Dic.keys
k = Dic.items
For i = 2 To n
For j = 0 To UBound(t)
If Arr(i, 1) = t(j) Then Arr(i, 3) = k(j)
Next: Next
[C1].Resize(n, 1) = Application.Index(Arr, 0, 3)
End Sub复制代码
(15.26 KB, 下载次数: 0)
11:55 上传
11:56 上传
点击文件名下载附件
14.71 KB, 下载次数: 6
阅读权限95
在线时间 小时
Sub hebing()
& & Dim Arr, i%, n%, Dic, k, t
& & Set Dic = CreateObject(&Scripting.Dictionary&)
& & Arr = ActiveSheet.UsedRange
& & n = UBound(Arr)
& & ReDim Brr(2 To n)
& & For i = 2 To n
& && &&&If Dic(Arr(i, 1)) && && Then
& && && && &Dic(Arr(i, 1)) = Dic(Arr(i, 1)) & &|& & Arr(i, 2)
& && &&&Else
& && && && &Dic(Arr(i, 1)) = Arr(i, 2)
& && &&&End If
& & Next
& & t = Dic.keys
& & k = Dic.items
& & For i = 2 To n
& && &&&Arr(i, 3) = Dic(Arr(i, 1))
& & Next
& & [C1].Resize(n, 1) = Application.Index(Arr, 0, 3)
End Sub
复制代码
这样也是可以的
阅读权限10
在线时间 小时
VLOOKUP就可以了。
http://club.excelhome.net/thread--1.html
谢谢星光大师，终于知道用公式怎么做到了，正在学习链接内容，港真好多干货啊！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师SQL 2008,表BM，有A、B两列，求在表中直接生成C、D两列，C列合并AB两列，D列统计C列的字符出现总次数
[问题点数：60分，结帖人ffmxxx]
本版专家分：1019
CSDN今日推荐
本版专家分：25859
本版专家分：25859
本版专家分：114007
2011年 总版技术专家分年内排行榜第八
2011年12月 总版技术专家分月排行榜第三2011年9月 总版技术专家分月排行榜第三
2011年6月 MS-SQL Server大版内专家分月排行榜第一
2011年12月 MS-SQL Server大版内专家分月排行榜第二2011年9月 MS-SQL Server大版内专家分月排行榜第二
本版专家分：25859
本版专家分：1019
本版专家分：114007
2011年 总版技术专家分年内排行榜第八
2011年12月 总版技术专家分月排行榜第三2011年9月 总版技术专家分月排行榜第三
2011年6月 MS-SQL Server大版内专家分月排行榜第一
2011年12月 MS-SQL Server大版内专家分月排行榜第二2011年9月 MS-SQL Server大版内专家分月排行榜第二
本版专家分：1019
本版专家分：25859
本版专家分：1019
匿名用户不能发表回复！|
CSDN今日推荐如何快速将多个excel的内容合并成一个_家居产品_问答_新家网
当前所在城市
& 如何快速将多个excel的内容合并成一个
如何快速将多个excel的内容合并成一个
如何快速将多个excel的内容合并成一个网友鱼木混猪给出的答案是:可以利用复制粘贴，也可以利用VBA实现参考百度经验图文教程：http://j
如何快速将多个excel的内容合并成一个网友鱼木混猪给出的答案是:可以利用复制粘贴，也可以利用VBA实现参考百度经验图文教程：http://jingyan.baidu.com/article/c678cd361d2d3d.htmlexcel怎么用公式或什么功能批量合并文字问题描述:如图，原始数据是白色部分，我想要的结果是黄色部分。怎么用公式批量处理？或者用什么功能可以批量处理。简单来说：我要把 A列数据相同，但是B列不同的（文字），放在B列的同一个单元格内。C列不重要，我会用SUMIF做的。当然如果有更简便的方法欢迎推荐。...但是B列不同的（文字）。主要是B列文字就不知道怎么下手，A2，A3相同，数据量很大。简单来说：我要把 A列数据相同，输出B1。同样问题..An都相同，所以不能直接输出B1&B2&，B3不同， 输出B1&B2&B3，但是我不知道有多少相同的，A2不同，输出B1，B1，B2。怎么用公式批量处理。当然如果有更简便的方法欢迎推荐..。情况1如果A1。情况3如果A1。情况2如果A1.Bn吧，B3也相同，数据量很大，B1，B2，可能有A1？或者用什么功能可以批量处理，A2，A3相同，原始数据是白色部分如图，放在B列的同一个单元格内。C列不重要，我会用SUMIF做的，我想要的结果是黄色部分展开网友jjchangyuan给出的答案是:三种方法（假定需要全新文字在A1：C1）：1、使用连接符&&&直接合并。公式=a1&a1&a12、使用concatenate函数合并。concatenate格式为concatenate(text1,text2...),参数text为文本或单元格引用。示例公式=concatenate(a1,b1,c1)。3、使用phonetic函数合并（单元格内容必须为文本型）。phonetic函数格式phonetic(reference) ，参数reference为文本或单元格引用。示例公式=phonetic(a1:c1)。excel中怎么吧A，B列的内容合并到A列问题描述:例如：A
我爱你wo henhao
我很好yiqilai
一起来合并后：A
Bwoaini我爱你wohenhao我很好yiqilai一起来网友yianxss给出的答案是:使用&连接起来即可Excel版本参考：20101、C1输入公式：=A1&B12、回车，使用填充柄填充公式3、复制C列，选择A1，右击-选择性粘贴-数值4、删除B、C列内容，查看效果Excel一列中相同的行如何合并网友泡影果果616给出的答案是:合并内容相同的行常见的三种方法：一、用数据透视表，最简单方便。如下：点击数据－数据透视表及数据透视图－完成，把第一列的字段名拉到“行字段”，把第二列的字段名拉到“数据”即可。二、可以使用分类汇总，步骤如下：1、数据－排序，按代号、名称排序，这样相同的代号名称就会排在一起；2、数据－分类汇总－汇总字段：代号，汇总方式：求和，求和字段：数量。三、高级筛选点击数据－－筛选－－高级筛选－－列表区域就是你的数据区域，选中“选择不重复的记录”－－确定即可(此法适应于计数，不能累计)。怎么把两个有内容的excel栏合并并且不丢失内容?问题描述:我在C里输入A1&B1或者Contatenate(A1,B1),显示的依旧是A1&B1或者Contatenate(A1,B1)而非A1和B1的实际内容。网友freegoto给出的答案是:可以使用连接符号 (&) 或者CONCATENATE 函数来完成这个任务1、使用连接符号 (&)=A1&B1，公式将A1和B1单元格的内容合并在一起2、使用CONCATENATE函数=CONCATENATE（A1，B1），函数将A1和B1单元格的内容合并在一起3、如果想使合并的内容分行，可以使用CHR函数=A1&CHAR(10)&B1或者=CONCATENATE(A1,CHAR(10),B1)可以使用A1和B1单元格的内容合并，并且分行显示怎么把excel里两列文字合并成一列 （excel 2007）问题描述:向截图的那样网友半夏半暖07给出的答案是:假设两列： A列、B列，要把AB列的数据合同显示到C列中（A2= 郑州市惠济区人民医院 B2=郑州区域）步骤如下：首先打开需要编辑的Excel表格，将光标移动到列C，标题暂命名为“合并”。1、将光标移动到C2，输入公式=A2&B2. 按Enter键，列C2显示的结果为郑州市惠济区人民医院郑州区域。(&按shitf+7键输入)2、将光标移动到C3右下角，鼠标呈十字架状。拖动鼠标下拉。最终的显示结果即为列A+列B的内容。
上述内容为转载或编者观点，不代表新家网意见，不承担任何法律责任。
如何领取失业金，去哪里领问题描述:的第一家工作单位为我缴纳社保和失业保险的，2009年7月我自动离职了，在2009年11月找了第二家单位？需要什么材料
怎么样才可以领取失业保险金？问题描述:我从10年6月从北京辞职回到上海，另外我是知青子女，一直到现在1年半的时间里都没有工作，之前我也没有在上班工作过
qq三国里如何成为制符师问题描述:qq三国里如何成为制符师，成为制符师后我的原来副职是否还存在？网友qq给出的答案是:先要初级副职(工匠
XP系统怎么查看开机启动项？问题描述:不按装杀毒软件怎么查看？网友god给出的答案是:winXP系统关闭开机启动项的方法：1、winXP系统
如何彻底灭蚊问题描述:家中蚊子太多，么办？（要求不用手，不借助外力，不能请人帮忙）网友给出的答案是:就能达到较强的驱蚊效果，因此，喷射excel多列合并成一列
如下图所示的表格中有4列数据(可以有任意多列)，现要求合并成一列显示。如下图所示。操作步骤：1、在A6单元格输入公式=B1，如下图所示。2、复制A6的公式到A6:B21区域，如下图所示。复制完后你会发现多列的数据已全部显示在A列中，剩下的工作就是把公式转换成数据，删除B：D列即可。总结：本技巧是使用了类“循环引用”的...
Excel表格怎么把一列数据转换为多行多列数据?1、同样我们会看到如下的数据，这样的数据假如一多的话，就会给我们的数据处理带来很多麻烦。2、首先在倒数第二列的数据下面的第一个单元格中输入=H1，H1表示最后一类数的第一个单元格，下拉快速填充按钮，如下图2所示，尽量多一点。3、然后再最后一个单元格的右下角，继续往...
先看一下原始数据，A到E列为单元格数据，需要将每行的非空单元格内容合并到F列存储在一个单元格中，并且用逗号分开。选择【开发工具】-【插入】- 选择【ActiveX控件】中的按钮。用鼠标在excel表格中画出一个按钮。双击该按钮，进入编辑代码模式。粘贴下列代码：Private Sub CommandButton1_Click()Dim n,i,j,m Dim arr,brr...
在excel表格中如何将多列数据合并为一列 步骤 1、打开excel表格，首先做一个多列数据。2、然后右键-复制，粘贴到记事本中。3、把第一列和第二列中间的空白位置复制，点击编辑-替换。4、替换内容为空格，替换为空，全部替换。5、然后发现记事本上空格全部没有了，然后直接复制。6、粘贴到excel表格中完成。
方法一 1、将列A与列B合并新的列C 2、在列c2中输入=A2&B2 3、然后按回车，A2和B2就合并成为新的一组数据了 4、光标移动到C2右下角，鼠标呈十字架状。拖动鼠标下拉 方法二 1、在C2中输入公式=CONCATENATE(A2,B2) 2、鼠标移动到C2单元格右下角，鼠标呈十字架状，下拉列表就可以了
方法一： 选择F1,数据&&&合并计算,"函数“选择”求和“,鼠标放在”引用位置“框内,选择B1:C19,再点击”添加“按钮,勾选”首行“和”最左列“,再单击”确定“按钮. 方法二：步骤1 C2=LOOKUP("座",$A$1:A1)然后下拉公式 步骤2 d2=SUMIF(C:C,A1,B:B)步骤3 使用格式刷让D列跟A列的格式一致
excel快速分离合并单元格内数据的方法，多列单元格数据合并成为一列，或者单一单元格数据分离成多列。步骤 首先我们打开一个工作样表作为例子。我们框选姓名这一多列数据，将其合并到一个单元格。繁杂的操作，我们可以是用&连接符。然后复制粘贴其得值。或者使用复制粘贴命令，一个一个单元格的手动粘贴。记住粘贴时不能...
1.模拟了一些数据，要把ABC三列数据合并成一列，由于显示大小限制，这里数据有点，实际可以有很多，都是一样的操作。第一步，在A列下面第一个空白单元格输入=B1，回车，完成第一步操作。2.利用填充柄功能，右拉公式，到C6，这样横向公式填充完毕。3.右拉公式后，再下拉公式，下拉到a15,因为三列一共15个数。实际操作时，...
Excel怎么把多个单元格数据合并到1个单元格里?1、首先打开要使用的表格。2、然后选择A列和B列的数据到C列。选择A列的数据加上&“-”&和B列的数据 3、把信息都输入之后需要点击保存就就可以得到我们所需要的数据。4、按照C列的数据选中单元格然后往下拉 5、然后就可以得到整体的数据啦，是不是很方便
有分列就有合并，如果需要将Excel表格中的多列数据显示到一列中，可以用合并函数来实现。如果希望将B列数据和C列数据组合型显示到D列中(中间添加一个“-”符号)，一个“&”就搞定了。选中D1单元格，输入公式：=B1&"-"&C1，确认一下;然后用“填充柄”将其复制到D列下面的单元格中即可。提示 如果把上述公式修改为：=...excel 设A列超链接为B列 把A列、B列合并到C列_excel_办公软件_软件教程_脚本之家
excel 设A列超链接为B列 把A列、B列合并到C列发布时间： 01:11:23 作者：脚本之家
1.设A列超链接为B列： A列都是文字，B列都是A列对应的网址，给A列加上超链接，超链接网址为B列网址： 在C1输入： =HYPERLINK(B1,A1) 输入后往下拉填充。 2.把A列、B列合并到C列： 有两个公式： 1. =CONCATENATE(A1,B1) 2. =A1&B1 在C1输入公式往下拉填充。