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

2024-11-26 00:20:12

推荐回答（5个）

回答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

回答2：

选中，然后“复制”
新建一个表格，右键粘贴选项选择“转置”就OK了！

回答3：

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

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

在原本的C列前面插入一列（左键点击C列的列标→右键→插入）
在C1中输入公式=A1&","&B1
将C1向下填充
选择C列，然后复制（右键→复制）
点击A列，鼠标右键→选择性粘贴
在弹出的窗口中选择“值”，点击确定
删除B列和C列

回答4：

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

回答5：

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