求excel高手,高分悬赏!

不知道excel基本操作能不能做这样的处理?

将B列的数据按照A列的单元格形式合并,并且保留所有数据。
如果不行的话,VBA能实现吗??
有高手能写个代码给我吗??
或者有没有合并多个单元格并保留所有数据的代码??
解决的话再追加!!!

录制一个宏,快捷键CTRL+e
把下面代码放在宏里面
Dim i, j As Integer
Dim combine As String
i = 0
j = 0
For Each rg In Selection
If i * j = 0 Then
i = rg.Row
j = rg.Column
End If
combine = combine & rg
Next rg
Cells(i, j) = combine
Selection.Merge
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-07-16
Sub ouyangff()
s = ""
For i = 2 To [a65536].End(3).Row
If Cells(i, 1) = t Then
s = s & "," & Cells(i, 2)
Else
n = n + 1
Sheets("处理的结果").Cells(n, 1) = t
Sheets("处理的结果").Cells(n, 2) = s
t = Cells(i, 1): s = Cells(i, 2)
End If
Next
n = n + 1
Sheets("处理的结果").Cells(n, 1) = t
Sheets("处理的结果").Cells(n, 2) = s
Sheets("处理的结果").Select
End Sub
第2个回答  2012-07-16
用VBA很好实现,先用变量储存数据,然后合并单元格,然后在把数据填回去,最好发个附件,你应该还要实现其它功能吧!追问

能留个联系方式吗??我把附件给你发过去

追答

发个邮箱地址给你吧![email protected]

追问

已发,谢谢!!
希望尽快吧。。我急需

第3个回答  2012-07-16
选中要合并的单元格 点击右键有一个单元格设置 快捷键右键+f里面有合并~
第4个回答  2019-09-03
CTRL
H查找替换
查找框输入空格
替换框什么也不输入
查找全部,全部替换
或者用公式
在B1输入公式
=TRIM(A1)
回车确定,鼠标对准单元格右下角,当出现一个黑色小十字时,同时按住鼠标左键往下拖动
B列结果就是去掉空格的数据
再复制B列,右击A列,选择性粘贴,数值,确定
相似回答