在Excel和y之间合并Excel中的单元格

Question

我在excel中的数据在5到6个单元长度之间变化，其间有3个空格。

我希望将所有数据分组：

1. 发布到：
2. X
3. X
4. X
5. x - 也许;这不总是在这里
6. 澳大利亚

因此POST TO的每个实例之间的所有数据：然后是下一个AUSTRALIA，合并为1个单元格。怎么办呢？

数据从B4开始

一旦完成，我将运行预先录制的宏来获取该数据并将其粘贴到MS Word中的标签模板中，然后打印出来。

Answer 1

假设它从B4细胞开始

如果您需要B10中的简易配方

= B15 & " " &B16 & " " & B17 & " " &B18 &" " & B19 & " " & B20

或者在VBA中..将按钮设置为子测试..

Sub Test()
ConcatIt Range("B4")
End Sub

Sub ConcatIt(pos As Range)
Dim x, y As Integer
x = pos.Column
y = pos.Row
Cells(y + 6, x) = Cells(y, x) & " " & Cells(y + 1, x) & " " & Cells(y + 2, x) & " " & Cells(y + 3, x) & " " & Cells(y + 4, x) & " " & Cells(y + 5, x)
End Sub

Answer 2

如果您只想连接行，可以执行以下操作：

Range("a1").Value = Join(WorksheetFunction.Transpose(Range("b1:b6")), Chr(9))