亚洲天堂成人在线视频_伊人网狠狠干_亚洲精品综合在线观看_国产在线第一页_91最新在线观看_国产亚洲久

【已解决】 Excel如何将行改为列(不是转置问题)?

1. 原内容为行(每行5列内容共几千行):
1 2 3 4 5
1 1 2 3 4 5 /2 1 2 3 4 5 /3 1 2 3 4 5 /以下类同… /

2. 改为行排列(每125列内容共12组,排为一行)
1 2 3 4 5 6 7 8 9 10 ……(60)
1-12 1 2 3 4 5 1 2 3 4 5 ……(60) /13-24 1 2 3 4 5 1 2 3 4 5 ……(60) /25-36 1 2 3 4 5 1 2 3 4 5 ……(60) /以下类推 …


本人不会编写宏,让您见笑曾费劲手工移动录制了一个取2400行(每行5列内容)改列的宏。因原有工作表行不断增加,经常需要行改列作其它用途,录制的宏不能满足需要。

麻烦大家帮助写一自动循环取125列内容排列为一行的宏。
规律:
1. 1-12
1-5列内容排在第1行(第一行1-5列、第二行1-5列、类推,完成为60列)
2. 13-24
1-5列内容排在第2行(第131-5列、第141-5列、类推)
3. 25-36
1-5列内容排在第3行(第251-5列、第261-5列、类推)
4.
以下类推 …

请先 登录 后评论

最佳答案 2023-04-06 03:15

解答:Sub 转换()
Dim numcol As Integer
Dim numrow As Long
Dim i As Long
Dim x As Integer
Dim numperrow As Integer
numperrow = InputBox("
请输入每行要填的数据行的数目:")
Range("
数据").Select
numrow = Selection.Rows.Count '
数据区的行数
numcol = Selection.Columns.Count '
数据区的列数
x = numperrow * numcol
Range("a1").Select
For i = 1 To numrow '
以数据的每一行为单位进行剪切
Range("
数据").Rows(i).Cut
ActiveSheet.Paste
Selection.Offset(, numcol).Select
If (i Mod numperrow) Then '
判断是否要换行
Else: Selection.Offset(1, -x).Select
End If
Next i
End Sub
'
本程序需要把要变换的数据命名为"数据"(数据区的列数可以任意,不一定是5)方法:选中该区域,在名称框内输入"数据"即可,然后按程序要求输入每行要填的数据行的数目(如本例中的12)

请先 登录 后评论

其它 0 个回答

  • 1 关注
  • 0 收藏,479 浏览
  • 匿名 提出于 2023-04-03 23:41

扫码关注微信公众号

QAQ9问答官方公众号
主站蜘蛛池模板: 91国内揄拍国内精品对白不卡 | 天天爱天天操天天射 | 福利视频一区二区三区 | 美国精品偷拍视频在线观看 | 久久精品亚洲一级毛片 | 国精品日韩欧美一区二区三区 | 欧美 丝袜 自拍 制服 另类 | 四虎永久网址影院 | 在线免费观看一区二区三区 | 免费一级毛毛片 | 亚洲精品久久久久久婷婷 | 伊人网综合在线观看 | 国产亚洲一区二区三区在线 | 婷婷久久综合九色综合88 | 日韩丰满少妇无码内射 | 久久久久久久一精品 | 国产亚洲精品久久久久秋霞 | 农村欧美丰满熟妇xxxx | 国产主播一区二区三区在线观看 | 2021国产成人精品久久 | 日本久久久久久久 | 99视频网站 | 欧美国产日韩另类 | 亚洲热线99精品视频 | 日本在线视频www鲁啊鲁 | 午夜小视频网站 | 一道久久爱综合久久爱 | 少妇高潮出水视频 | 中老年熟妇激情啪啪大屁股 | 无码欧精品亚洲日韩一区 | 国产精品外围在线观看 | 国产suv精品一区二区 | 国产成人精品视频免费大全 | 国产夫妻久久 | 中文乱码字慕人妻熟女人妻 | 男女后进式猛烈xx00动态图片 | 国产亚洲中文日本不卡二区 | 国产jk精品白丝av在线观看 | 欧美人与牲动交xxxx | 蜜桃精品免费久久久久影院 | 国产精品一区二区三区高清在线 |