Vba 将单元格范围与列中的条件连接起来

我需要vba连接单元格的帮助

我有一份电子表格： 列A包含一些值，如乘积A表示几行，乘积B表示几行，等等。 我想连接，比如说产品A的B-J列中的单元格，将值写入K列或另一张表，然后对产品B执行相同的操作，依此类推，直到电子表格的末尾

我认为这将需要一些vba编码，我正在学习，但还没有做好这项工作。请帮忙

谢谢,， 希杰

我认为这需要一些vba编码

不，此项不需要vba:）

把这个公式放在K1里，然后把它拉下来

=B1&" "&C1&" "&D1&" "&E1&" "&F1&" "&G1&" "&H1&" "&I1&" "&J1

这将使用

空格

作为分隔符连接数据。如果不需要空间，请将上述公式修改为

=B1&C1&D1&E1&F1&G1&H1&I1&J1

类似地，如果要以

逗号

作为分隔符连接，请使用

=B1&", "&C1&", "&D1&", "&E1&", "&F1&", "&G1&", "&H1&", "&I1&", "&J1

---

以此类推……

我读它是因为你想把一列中的所有内容都放到另一个单元格中。这是一个例程，它将从指定的单元格中获取所有数据，并将所有数据连接起来，直到数据中断

Option Explicit

Function ColConc(CellRef As Range, Delimiter As String)

Dim LoopVar As Long
Dim StartRow As Long
Dim EndRow As Long
Dim Concat As String
Dim Col As Long

Col = CellRef.column
StartRow = CellRef.Row
EndRow = CellRef.End(xlDown).Row

Concat = ""

For LoopVar = StartRow To EndRow
    Concat = Concat & Cells(LoopVar, Col).Value
    If LoopVar <> EndRow Then Concat = Concat & Delimiter
Next LoopVar

ColConc = Concat
End Function

选项显式
函数ColConc（CellRef作为范围，分隔符作为字符串）
暗淡如长
黯淡的星空如长
暗尾行与长尾行相同
细贝壳串
暗色如长
Col=CellRef.column
StartRow=CellRef.行
EndRow=CellRef.End（xlDown）.Row
Concat=“”
对于LoopVar=StartRow到EndRow
Concat=Concat&单元格（LoopVar，Col）.Value
如果LoopVar EndRow，则Concat=Concat&分隔符
下一个LoopVar
ColConc=Concat
端函数

使用公式

=ColConc（A2，“”

调用，这将获取从单元格A2到该列末尾的所有内容，并以空格作为分隔符。
分隔符可以是任何字符串，因此可以在数据之间放置任何内容。空白单元格结束用于连接为单个字符串的数据。

---

它只能在当前工作表上工作-需要更多的编码才能使该部件工作

您的问题标题提到了

标准

。你能解释一下你的意思吗？