合并excel中两列的值
我在excel中有两列: 名字 AAA BBB CCC 及 数 一, 二, 三, 我需要在下一列中合并两列中的所有值: 梳状柱 AAA1 AAA2 AAA3 BBB1 BBB2 BBB3 CCC1 CCC2 CCC3合并excel中两列的值,excel,Excel,我在excel中有两列: 名字 AAA BBB CCC 及 数 一, 二, 三, 我需要在下一列中合并两列中的所有值: 梳状柱 AAA1 AAA2 AAA3 BBB1 BBB2 BBB3 CCC1 CCC2 CCC3 如何在Excel中执行此操作?您可以在新列中执行=CONCATENATE(A2,“,B2),有关更多知识,请查看如果VBA正常,则可以使用以下代码完成此操作: Option Explicit Sub Combine() Dim rowA As Long, rowB As Long
如何在Excel中执行此操作?您可以在新列中执行
=CONCATENATE(A2,“,B2)
,有关更多知识,请查看如果VBA正常,则可以使用以下代码完成此操作:
Option Explicit
Sub Combine()
Dim rowA As Long, rowB As Long, rowC As Long
Range("C:C").ClearContents
rowC = 2
rowA = 2
Do While Range("A" & rowA).Value <> ""
rowB = 2
Do While Range("B" & rowB).Value <> ""
Range("C" & rowC).Value = Range("A" & rowA).Value & Range("B" & rowB).Value
rowB = rowB + 1
rowC = rowC + 1
Loop
rowA = rowA + 1
Loop
End Sub
选项显式
子联合收割机()
昏暗的rowA尽可能长,rowB尽可能长,rowC尽可能长
范围(“C:C”)。ClearContents
rowC=2
罗瓦=2
Do While范围(“A”和rowA).值“”
rowB=2
Do While范围(“B”和rowB)。值“”
范围(“C”和rowC)。值=范围(“A”和rowA)。值和范围(“B”和rowB)。值
行B=行B+1
rowC=rowC+1
环
罗瓦=罗瓦+1
环
端接头
请注意,如果实际值的数量可能会产生超过最大行数的行,则代码没有错误检查