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

扫码关注微信公众号

QAQ9问答官方公众号
主站蜘蛛池模板: 成人99| 日韩中文字幕网 | 99精品视频免费观看 | 爱情岛论坛网址永久首页 | 毛片一级在线观看 | 亚洲丝袜美女 | 国产女人水真多18毛片18精品 | 免费观看毛片的网站 | 国产精品另类激情久久久免费 | 日韩欧美成人免费观看 | 久久九九精品99国产精品 | 男女午夜影院 | 亚洲色偷偷综合亚洲av | 亚洲国产伦理 | 国产内射999视频一区 | 日韩一区二区在线播放 | 免费夜色污私人影院在线观看 | 日本最新伦中文字幕 | 色狠狠色噜噜av天堂一区 | 亚洲av无码成人精品区狼人影院 | 18禁无遮挡免费视频网站 | 99久久国产综合精品女不卡 | 国产精品熟妇一区二区三区四区 | 私人情侣网站中文 | 国产精品久久久久国产精品三级 | 啪啪成人| 亚洲一卡2卡三卡4卡无卡下载 | 99视频这里有精品 | 久草热线视频 | 国产精成a品人v在线播放 | 免费中文字幕不卡视频 | 国产精品在线播放 | 成人免费看片又大又黄 | 中文字幕乱码一区av久久不卡 | 在线天堂资源www在线中文 | 色综合久久久久久888 | 青青草99热这里都是精品 | 免费观看欧美一级毛片 | 在线成年人网站 | 无码任你躁久久久久久老妇 | 一级一毛片a级毛片 |