有时候我们需要将Excel" />
乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 怎么将<em>excel</em>里的一列数据转为一行 <em>excel</

怎么将<em>excel</em>里的一列数据转为一行 <em>excel</

作者:乔山办公网日期:

返回目录:excel表格制作


选中B1:F1,输入公式:

=TRANSPOSE(A1:A5)

最后按Ctrl+Shift+Enter,输入数组公式,OK



有时候我们需要将Excel表格里的一列数据转换成以一行的方式排列,比如我们复制一列数据,想要在一个新的表格里却需要横过来放置,我们不可能一个个输入,但是excel提供了这样的功能。我们来看看怎么做。   步骤   首先,我们打开一个又一列名字的表格,我们希望把这列数据横过来排放。   拖动鼠标可以以选中这一列数据,方法是从A1单元格开始拖动鼠标,知道最后一个名字为止。   我们点击菜单栏上上的编辑,在编辑菜单中,我们选择复制。   随便找到一个空单元格,这个单元格是将来我们创建的一行数据的第一个单元格,在这里你可能还无法理解,继续往下看就可以看到了。zd   接着点击菜单栏上的编辑,在编辑菜单中点击“选择性黏贴”,记住是选择性黏贴,而不是黏贴。   弹出了一个选择性黏贴的对话框,我们勾选最下面的“转置”,然后点击确定按钮。   7这样在C1单元格后面就粘贴了一行数据,这一行数据正是这一列数据转换而来。

一整列转换外一行,严格上说是不zhidao可能的,因为行数远小于列数。

如果在列为填充满的情况下,可以做到。可使用如下代码分别选中原单元格和目标位置。

Sub Trans_Copy()
Dim myRange1, myRange2 As Range
Set myRange1 = Application.InputBox("选择变换区域", Type:=8)
Set myRange2 = Application.InputBox("选择放置区域", Type:=8)
If myRange1.Count >= 16385 - myRange2.Row Then
MsgBox "单元格过多,无法复制"
Exit Sub
End If
myRange1.Copy
myRange2.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub


目标:将一列数据转换成一行数据,比如将A列数据转换成第1行数据

工具:Excel 2007

方法有两种:复制-转置粘贴法和公式法

1.复制-转置粘贴法

复制A列

点击目标单元格>右键>选择性粘贴>转置>确定

确定后,A列数据变成了第1列数据

最后删除A列

2.公式转置法

B1输入公式

=OFFSET($A$1,COLUMN(A1)-1,,)

公式右拉

最后删除A列

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网