EXCEL里面A1=A2,怎么合并A1、A2后面的单元格内容?

发布时间:2024-12-14 04:34

  用VBA很容易实现,我假设你的原数据在A列和B列,你要把合并后的数据放在D列,E列……等之后。我再假设你A列相同的行是在一起的,比如上图,不会有在"26112006"后面还出现"26112004"这上面出现过的数值的(其实如果相同行不是在一起的话你排下序就可以了)
把下面这个自定义的宏复制在当前工作表的代码页上,点击运行就可以了,此段代码能实现你说的合并单元格内容的功能,且不管A列中相同的行是2行还是3行还是多行都可以实现合并。

   Private Sub Macro1()
?Dim I1 As Long, I2 As Long, I3 As Long
?Dim S1 As String, S2 As String
?I1 = 0
?I2 = 0
?S1 = ""
?S2 = ""
?Do
? ?I1 = I1 1
? ?'顺序查找A列,直到为空单元格时中止。

   ? ?If IsEmpty(Range("A" & I1)。Value) Then Exit Do
? ?'如果A列数值跟上一行的相同,则把B列内容加在F列后面。

   ? ?S2 = Range("A" & I1)
? ?If S1 = S2 Then
? ? ?I3 = I3 1
? ? ?Cells(I2, 5 I3) = Range("B" & I1)
? ?Else
? ?'如果A列数值跟上一行不同,则把A列和B列复制在D列和E列的下一行位置
? ? ?I3 = 0
? ? ?I2 = I2 1
? ? ?Cells(I2, 4) = Range("A" & I1)
? ? ?Cells(I2, 5) = Range("B" & I1)
? ? ?S1 = S2
? ?End If
?Loop
End Sub。

全部

网址:EXCEL里面A1=A2,怎么合并A1、A2后面的单元格内容? http://c.mxgxt.com/news/view/184379

相关内容

a1云蛋糕谁代言的「明星生日蛋糕 」
艺人采访发言稿模板.docx
采访明星的英文对话
【干货】常见GIS工具软件介绍
第十四届全运会男篮、女篮,决赛圈时间表出炉,你支持哪个队?
深圳演唱会2024年时间表(持续更新)
热搜:小红书被罚30万;Excel存在1+1=4问题;英雄联盟新游上线
健身房里面自由力量区是什么意思
确认了她的心意,嘴角的笑容怎么都藏不住,简直要咧到耳朵后面去了
影视作品分析.pptx

随便看看