亚洲天堂成人在线视频_伊人网狠狠干_亚洲精品综合在线观看_国产在线第一页_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 收藏,469 浏览
  • 匿名 提出于 2023-04-03 23:41

扫码关注微信公众号

QAQ9问答官方公众号
主站蜘蛛池模板: 国产小视频免费在线观看 | a级毛片免费高清毛片视频 a级毛片免费高清视频 | 午夜剧场在线免费观看 | 国产美女做爰免费视 | 狠狠噜天天噜日日噜视频麻豆 | 一级国产a级a毛片无卡 | 国产一区二区三区在线免费观看 | 四虎精品视频在线永久免费观看 | 人妻av无码系列一区二区三区 | 亚洲精品亚洲九十七页 | 成人免费在线视频 | 香港三日本三级少妇三级视频 | 欧美特黄aaaaaaaa大片 | 亚洲乱妇熟女爽到高潮的片 | 一级特黄色 | 99国产高清久久久久久网站 | 色视频免费在线 | 成人一级大片 | 亚洲欧洲日产国码久在线 | 国产伦精品一区二区 | 日韩国产成人精品视频 | 侵犯人妻教师波多野吉衣 | 亚洲最新在线观看 | 欧美成人h亚洲综合在线观看 | 一二三四国语在线观看视频 | 毛片永久新网址首页 | 亚洲精品乱码久久久久66 | 久久久久久成人综合网 | 久久综合综合久久综合 | 这里有精品可以观看 | 午夜影院免费体验区 | 免费观看黄色一级片 | 四虎永久免费影院在线 | 亚洲精品日韩专区在线观看 | 日韩在线视频线视频免费网站 | 国产精品欧美日韩视频一区 | 国产尤物视频在线 | 爆乳女仆高潮在线观看 | 亚洲免费天堂 | 国产欧美视频在线观看 | 亚洲精品无码国模 |