Excel连接列

我正在使用Excel，我需要使用逗号旁边的逗号连接产品ID。 示例列A具有1-1760个产品ID，我想用逗号（，）连接所有产品ID。 我想在B2栏（= 1,2,3,4,5,6,7,8）中添加一行。

Answer 1

这是你想要的：

Option Explicit Sub TestJoin() Dim MyRange As Range Dim MyArray() As Variant Set MyRange = Range("A1:A5") MyArray = Application.Transpose(MyRange) Range("B1") = Join(MyArray, ",") End Sub 

Answer 2

你需要像下面这样的东西：

 Public Sub test() Dim i As Long ActiveSheet.Range("A2").Select i = 0 Do ActiveSheet.Range("B2").Value = ActiveSheet.Range("B2").Value _ + CStr(ActiveCell.Offset(i, 0)) + "," i = i + 1 'change 21 to whatever number you want to reach (or use a variable/constant) Loop While i <= 21 - 2 End Sub 

但是，从上面得到的结果，你必须删除上述函数将自动放置的最后一次昏迷。 您可以使用vba的left()函数与len()-1结合使用