[转]excel 操作技巧之行转列/列转行/多行转单列/单列转多行
(2011-12-21 09:34:09)
标签:
杂谈 |
分类: 电脑技术 |
方法一:
原数据如下图:
现在将A列分成4列。首先选中A列,然后点菜单栏上的数据/分列。在弹出的菜单中选择分隔符号。如图:
注:当然你也可以选择固定宽度,然后根据需要进行个别的调整。
点“下一步”,弹出如下图:
在“空格”前打勾,点下一步。在弹出的对话框中根据自己的需要选择数据类型就可以了。如果没有特殊需要默认就行了。最后点完成。
效果如下:
二、一列变一行
原数据如图:
先复制要转换的所有数据,然后右键点击要转换成行的地方,在弹出的菜单中选择“选择性粘贴”,接着选择“转置”就可以了。
结果如图:
三、一列变多行
现在将上例中的原数据变换成三行4列的形式。具体操作方法如下:
1、复制要转换的所有数据。
2、用上面的方法将数据转置成一行。
3、再复制。
2、打开粘贴板(一般连接按两下ctrl+c就可以出来)。
3、在要转换的地方点一下(这里假设在C1),注意不要粘贴数据。在输入栏中点一下(
4、这时C1成这样:
5、调整C列的宽度,这里要分成几列就调成几列。这里是要分成4列,调整后如图:
接着选择C1单元格。然后点“填充”,在“填充”下边选择“两端对齐”,这时会弹出一个对话框“文本超出选定区域”,点确定后结果如下:
很明显,现在将数据按要求分成了三行,接着就只需要用上边的方法,将数据分成4列就可以了。
最终结果如图:
四、多行变单列
原数据如下:
1、先复制数据。
2、单击i1(假设要转换到C列),然后单击输入栏,再单击复制的数据,如图:
接着,按ctrl+h,在弹出的对话框中输入:
操作完成后的情况如下:
http://hi.baidu.com/xuwuwx122/blog/item/91f61e3f0922e5e3828b1305
方法二:
从【工具】菜单打开宏编辑器,粘贴下列代码并运行,在sheet2中就可以看见你想要的结果。 Sub abc() Dim i As Long, j As Integer, k As Integer Dim rows As Long, d1 As String Sheets(1).Select rows = ActiveSheet.UsedRange.rows.Count i = i + 1 While i < rows d1 = Cells(i, 1).Value j = j + 1 k = 1 Sheets(2).Cells(j, k).Value = d1 While Cells(i, 1).Value = d1 k = k + 1 Sheets(2).Cells(j, k).Value = Cells(i, 2).Value i = i + 1 Wend Wend End Sub