是否有一个函数可以将 A 的所有列合并到 B 的所有列答案

【问题标题】：Is there a function where I can merge all columns of A to all columns of B是否有一个函数可以将 A 的所有列合并到 B 的所有列
【发布时间】：2019-06-19 08:24:12
【问题描述】：

我在 Excel 中有一种情况，我想将 A 列的所有值合并到 B 列的所有值（我想将 B 的所有值保留为 A 列的所有值）

示例： A 列 - 1 2 3 4 5 6 7 8 B栏 - A B C D E F G H

我想要的结果是 1A 2A 3A 4A 5A 6A 7A 8A 1B 2B 3B 4B 5B 以此类推，直到我达到 8H

我尝试过简单的连接，但显然耗时太长

如果有人可以调查此问题并为我提供一个公式来帮助我解决此问题，我们将不胜感激。

问候

【问题讨论】：

标签： excel excel-formula concatenation textjoin

【解决方案1】：

在你的帖子之后，我意识到你真正追求的是什么。

在单元格C1 中放置：

=IF(ROW()-ROW($C$1)+1>COUNTA(A:A)*COUNTA(B:B),"",INDEX(A:A,INT((ROW()-ROW($C$1))/COUNTA(B:B)+1))&INDEX(B:B,MOD(ROW()-ROW($C$1),COUNTA(B:B))+1))

然后向下拖动

【讨论】：

朋友您好，感谢您的详细解释。我试过这样做，但它没有给我想要的结果。实际上，单元格 C 中的值不是我所追求的。抱歉，如果我的问题不清楚。在 C1 列中，我正在寻找值 1A，在 C2 2A、C3 3A 等中，直到我在 C 列中得到以 8G 和 8H 结尾的结果。抱歉，我不知道如何在此处添加屏幕截图，否则我会这样做。问候

【解决方案2】：

我找到了这个解决方案，但在 VBA 中。我希望你没事。 That's how it look on my excel

Sub Merge()

Dim NumberLeng As Range
Dim LetterLeng As Range
Dim LastLetter As Long
Dim LastNumber As Long
Dim sht As Worksheet
Dim LastRow As Long
Dim LastMix As Long
Set sht = ActiveSheet
LastLetter = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row 'last letter
LastNumber = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row 'last number

Set NumberRange = sht.Range(Cells(1, 1), Cells(LastNumber, 1)) ' range of numbers
Set LetterRange = sht.Range(Cells(1, 2), Cells(LastLetter, 2)) ' range of letters
X = 0
    For Each Letter In LetterRange

        For Each Number In NumberRange

        Number.Offset(X, 2) = Number & Letter 'Number+Letter

        Next Number

    LastMix = sht.Cells(sht.Rows.Count, "C").End(xlUp).Row 'set new last
    X = LastMix

    Next Letter

End Sub

如果需要任何帮助，请继续询问：)

【讨论】：