EXCEL里如何把多列的数据罗列在一列中?
答案:6 悬赏:40 手机版
解决时间 2021-04-07 03:42
- 提问者网友:美人性情
- 2021-04-06 04:33
EXCEL里如何把多列的数据罗列在一列中?
最佳答案
- 五星知识达人网友:酒安江南
- 2021-04-06 04:48
使用错位引用,把多列转换为一列,方便快捷。
具体操作如下:
打开Excel2013,把原始数据复制到右边区域,在E9单元格输入 =F1,
向右填充,再向下填充,如下图:
2.选中E列复制,右键-----粘贴选项--值,如下图
3.选中F列G列右键---删除,得到最终结果如下图。
下图为连贯操作:
具体操作如下:
打开Excel2013,把原始数据复制到右边区域,在E9单元格输入 =F1,
向右填充,再向下填充,如下图:
2.选中E列复制,右键-----粘贴选项--值,如下图
3.选中F列G列右键---删除,得到最终结果如下图。
下图为连贯操作:
全部回答
- 1楼网友:零点过十分
- 2021-04-06 10:23
你用宏试试?
Sub 拷贝指定表不相邻多列数据到新位置()
Sheets("sheet1").Range("A:A,J:J").Copy Range("d1")
End Sub
Sub 拷贝指定表不相邻多列数据到新位置()
Sheets("sheet1").Range("A:A,J:J").Copy Range("d1")
End Sub
- 2楼网友:洒脱疯子
- 2021-04-06 09:10
鼠标点在7660472框上,框口变黑色,鼠标移到框的右下角小黑点上,按住左键向下拉,就可以了
- 3楼网友:北城痞子
- 2021-04-06 08:50
楼上回答不正确,因为不能保证数值连续,比如7660499 之后是766040。
我也没有简单办法,恐怕得自己编个宏运行一下。
我也没有简单办法,恐怕得自己编个宏运行一下。
- 4楼网友:蓝房子
- 2021-04-06 07:22
假设数据没有标题,如果有,初始化N的时候指定一下
Option Explicit
'假设数据值重新存放于第7列
Private Sub RePlaceLL()
Dim m, n, k, MaxX, MaxY As Long
m = 1: n = 1: k = 1: MaxX = 1: MaxY = 1
'设定数据区域右边界
Do Until Cells(1, MaxX) = ""
MaxX = MaxX + 1
Loop
'设定数据区域下边界
Do Until Cells(MaxY, 1) = ""
MaxY = MaxY + 1
Loop
For m = 1 To MaxY - 1 '取到数据下边界
For n = 1 To MaxX - 1 '取值到数据右边界
Cells(m, n).Select
MsgBox Cells(m, n)
Cells(k, 7) = Cells(m, n)
k = k + 1
Next n
Next m
End Sub
在Ms office 2003中文版中调试通过
Option Explicit
'假设数据值重新存放于第7列
Private Sub RePlaceLL()
Dim m, n, k, MaxX, MaxY As Long
m = 1: n = 1: k = 1: MaxX = 1: MaxY = 1
'设定数据区域右边界
Do Until Cells(1, MaxX) = ""
MaxX = MaxX + 1
Loop
'设定数据区域下边界
Do Until Cells(MaxY, 1) = ""
MaxY = MaxY + 1
Loop
For m = 1 To MaxY - 1 '取到数据下边界
For n = 1 To MaxX - 1 '取值到数据右边界
Cells(m, n).Select
MsgBox Cells(m, n)
Cells(k, 7) = Cells(m, n)
k = k + 1
Next n
Next m
End Sub
在Ms office 2003中文版中调试通过
- 5楼网友:迟山
- 2021-04-06 06:26
数据量很大是怎么一种情况?比如象现在一样只有8行,不论多少列,数据从A1开始。
A9=OFFSET($A$1,MOD(ROW()-1,8),INT((ROW()-1)/8))
向下复制公式。
如果行数变化,就改公式中的8。即改成公式所在行号减1。
A9=OFFSET($A$1,MOD(ROW()-1,8),INT((ROW()-1)/8))
向下复制公式。
如果行数变化,就改公式中的8。即改成公式所在行号减1。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯