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

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

来源:花匠小妙招 时间:2024-11-24 11:04

  用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工作表的单元格D1中输入公式“=SUM(A1:C3)”,其结果为().
设A3x3=[a1,a2,a3],方程组AX=B有通解5+n=[1,2,
【设a1,a2,a3,…,an(n∈N*)都是正数,且a1a2a3•…an=1,试用数学归纳法证明:a1+a2+a3+…+an≥n.】
已知复数A1=30∠
如图6所示,已知R=XL=XC,A1=10A, A2 ,A3电流表的读数分别为(
已知数列{an}中,a1=1,前n项和Sn= an. (1)求a2,a3; (2
2012年度计算机卷答案=合并.doc
边长分别为a1=100mm和a2=50mm的两正方形截面杆,其两端作用相同的轴向
假设我们用d=(a1,a2,...,a5),表示无向图G的5个顶点的度数,下面给
“”)怎么设函?公式=IF(COUNTIF($A$1:A1,A1 爱问知识人

网址: EXCEL里面A1=A2,怎么合并A1、A2后面的单元格内容? https://www.huajiangbk.com/newsview693244.html

所属分类:花卉
上一篇: 情人节来了,跟情人节有关的花语你
下一篇: 千窑一宝:元青花釉里红贴花开光花

推荐分享