Question

我有一个包含一百行的电子表格。我有一个列，每个单元格都有一个值。

例如：

ABC

TRE

TED

CAR

我想要一个输出，其中一个单元格中的所有值都以分号分隔。

知道怎么做吗？我是Excel新手。

在单个单元格中输出全部： ABC; TRE; TED; CAR;

Answer 1

如果输入位于单元格A1，B1，C1和D1中，输出公式例如为E1，则使用公式：

=CONCATENATE(A1,";",A2,";",A3,";",A4)

Answer 2

或者（使用上一个答案中的单元格），您可以尝试：

  =A1&";"&B1&";"&C1&";"&D1

Answer 3

我明白了。如果有人需要它。在将其存储在总变量中之后，这将写入B列中的第一个单元格。

Option Explicit

Sub Macro1()
Dim r As Range, cell As Range, mynumber As Long

Set r = Range("A1:A118")
Dim total As String


mynumber = 0
For Each cell In r
    mynumber = mynumber + 1
   total = total + cell.Value + ";"
Next

Cells(1, 2) = total

End Sub

Excel：从一列到一个单元格的输出值，以分号

3 个答案: