求简化转置数据的代码

李红艳

范围内数据每三行序列性转置， 求转置数据的简洁性代码.rar (18.01 KB, 下载次数: 3)

2018-7-20 06:01 上传

点击文件名下载附件

求简化转置数据的代码

liulang0808

1. Sub 转置()
   
2.     Application.ScreenUpdating = False
   
3.     [ao6].CurrentRegion.Offset(2).ClearContents
   
4.     For j = 7 To 30 Step 3
   
5.         Cells(j, "ac").Resize(3, 10).Copy
   
6.    
   
7.         Range("AO7").Select
   
8.         Cells(Rows.Count, "ao").End(3).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.             :=False, Transpose:=True
   
10.         Next j
    
11.    Application.ScreenUpdating = True
    
12. End Sub

复制代码

liulang0808

附件内容供参考。。。

gswycjc

　　平时工作中经常需要将Excel表格中的数据的行换成列，也就是行列数据转置。很多朋友都是一个一个的复制粘贴数据，这样做是很麻烦的，表格大一些甚至就难以完成了！

　　下面就以Excel2003中操作为例，详细讲解Excel单元格区域行列数据转置的常见操作方法。

　　方法一：使用excel的选择性粘贴选项中的转置选项。
　　1.选中需要转置的源数据单元格区域，复制；
　　2.单击你要放置转制后的空白单元格区域的左上角单元格，右击，选择性粘贴。
　　3.在弹出的选择性粘贴界面中，勾选“转置”，完事大吉！

　　方法二：使用excel自带的TRANSPOSE转置函数。
　　选择你要放置转制后的空白单元格区域，输入公式“=TRANSPOSE(A1:B11)”（其中A1:B11是你要转置的源数据单元格区域），注意，必须是数组公式（编辑栏中输入公式后要同时按下ctrl+shift+enter三个键确认）。

　　方法三：借助OFFSET函数，该方法比较复杂但适用范围也最广，可以按照自定义的需求进行转置。
　　在你要放置转制后的空白单元格区域的左上角单元格输入公式“=OFFSET($A$1,COLUMN(A1)-1,)”（其中A1是你要转置的源数据单元格区域的左上角单元格），在下方单元格输入公式“=OFFSET($B$1,COLUMN(A2)-1,)”，再下方单元格输入公式“=OFFSET($C$1,COLUMN(A3)-1,)”，……，选择输入公式的单元格区域，向右复制填充即可完工。

李红艳

感谢二楼制作
感谢4楼指教______我在这个网站常常获益良多