在openOffice中合并列(不连接)

Question

我有几列想放在一起。现在我被困在复制和粘贴到一个列，有一个更快的方法做到这一点吗?

任何帮助都非常感谢

Answer 1

如果你有excel，你可以使用VBA。

1. 在Excel中按住Alt + F11键，打开Microsoft Visual Basic for Applications窗口。
2. 点击插入>模块，并将以下宏粘贴到模块窗口中。

.

Sub CombineColumns()
Dim xRng As Range
Dim i As Integer
Dim xLastRow As Integer
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range", "Select range", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
xLastRow = xRng.Columns(1).Rows.Count + 1
For i = 2 To xRng.Columns.Count
Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
xLastRow = xLastRow + xRng.Columns(i).Rows.Count
Next
End Sub

3. 然后按F5键运行此代码，将弹出提示框提醒您选择要合并为仅一列的数据范围

4. 然后单击OK按钮，所选的列已合并为一个列。

提示:运行此VBA后，区域的原始数据将被清除，您最好先将其复制并保存到其他位置。