Question

如何使用wps把每一列的数字变成一列

数据处理中由于数据量比较大，需要把A-CF列的所有数据排序在A列，有没有什么公式可以快速排列出来？
如上图所示





Answer 1

Option Base 1
Sub 单元格区域连列()
  Dim my As Range, my1()
Dim p As Long
Dim i As Long
 Set my = Application.InputBox(Prompt:="使用鼠标选择单元格区域", Type:=8)
 p = my.Count
 i = 1
 ReDim my1(p, 1)
 For Each c In my
     If c.Value <> "" Then
        my1(i, 1) = c.Value
        i = i + 1
     End If
 Next c
 Set my = Application.InputBox(Prompt:="使用鼠标选择要输出的第一个单元格", Type:=8)
 Application.ScreenUpdating = False
 If i = 1 Then
    my = my1
 Else
    Range(my, my.Offset(i - 2, 0)) = my1
 End If
 Application.ScreenUpdating = True
 MsgBox "完成。"
End Sub

追问

这里只可以使用office处理吗？WPS可以吗？

追答

一样的可以

Answer 2

1. 选中，然后“复制”

2. 新建一个表格，右键粘贴选项选择“转置”就OK了！

Answer 3

使用文本连接符&就可以做到了。例如要将A列和B列的数据连接并以逗号分隔，显示在C列，可以在C1中输入以下公式=A1&","&B1公式输入完成后，将C1的内容向下填充即可。

如果是需要合并两列的内容，操作上则需要多几个步骤了，这里以A列和B列的数据连接为例，方法如下：

• 在原本的C列前面插入一列（左键点击C列的列标→右键→插入）

• 在C1中输入公式=A1&","&B1

• 将C1向下填充

• 选择C列，然后复制（右键→复制）

• 点击A列，鼠标右键→选择性粘贴

• 在弹出的窗口中选择“值”，点击确定

• 删除B列和C列

追问

这个方法不行

Answer 4

如图2列子中，A10单元格输入=B1，右拉＋下拉。A列就是你要的数据。最后定位空值删除没用的单元格

追问

这个方法之前已经试过了，图二就是使用这种方法，有没有更加简便的？

Answer 5

在第一个单元格输入数字,然后按住CTRL键,拖动单元格右下角的控制柄,直到结束