Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
合并excel中两列的值_Excel - Fatal编程技术网

合并excel中两列的值

合并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中有两列:

名字

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, 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
环
端接头
请注意,如果实际值的数量可能会产生超过最大行数的行,则代码没有错误检查