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

Question

我在excel中的数据在5-6个单元格之间变化，中间有3个空格.

我希望将所有数据分组如下：

1. 邮寄至：
2. X
3. X
4. X
5. 也许，这并不总是在这里
6. 澳大利亚

所以每个POST实例之间的所有数据都是:然后下一个澳大利亚，合并成一个单元格。这是如何做到的呢？

数据从B4开始

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

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))