
excel 一列变N行N列
网上复制了一列数据如下:a1a2a3a4a5a6a7a8a9a10a11b1b2b3b4b5....需要转成a1a2a3a4a5a6a7a8a9a10a11b1b2b3b...
网上复制了一列数据如下:
a1
a2
a3
a4
a5
a6
a7
a8
a9
a10
a11
b1
b2
b3
b4
b5
.
.
.
.
需要转成
a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11
b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11
.......
这样的格式
请高手帮忙,要求方法简单的,因为每天都有大量这样的工作。 展开
a1
a2
a3
a4
a5
a6
a7
a8
a9
a10
a11
b1
b2
b3
b4
b5
.
.
.
.
需要转成
a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11
b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11
.......
这样的格式
请高手帮忙,要求方法简单的,因为每天都有大量这样的工作。 展开
4个回答
展开全部
用VBa解决这类问题最方便,
右击工作表标签,查找代码,把下面这段代码粘贴到VBA窗口,按F5运行一下就可以了
Sub zjh()
Application.ScreenUpdating = False
Dim i%, k%
k = 1
For i = 1 To [a1].End(4).Row Step 11
Cells(i, 1).Resize(11, 1).Copy
Cells(k, 2).PasteSpecial Transpose:=True
k = k + 1
Next i
Application.ScreenUpdating = True
End Sub
右击工作表标签,查找代码,把下面这段代码粘贴到VBA窗口,按F5运行一下就可以了
Sub zjh()
Application.ScreenUpdating = False
Dim i%, k%
k = 1
For i = 1 To [a1].End(4).Row Step 11
Cells(i, 1).Resize(11, 1).Copy
Cells(k, 2).PasteSpecial Transpose:=True
k = k + 1
Next i
Application.ScreenUpdating = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
假定你的数据在Sheet1的A1开始向下,那么在Sheet2中A1就可以这样写
=OFFSET(Sheet1!$A$1,(ROW()-1)*11+COLUMN()-1,0)
11是你每行的数据个数,
写好公式后,向右拖动填充钮填充至K11,然后选中A1到K11,再用填充钮填充。
=OFFSET(Sheet1!$A$1,(ROW()-1)*11+COLUMN()-1,0)
11是你每行的数据个数,
写好公式后,向右拖动填充钮填充至K11,然后选中A1到K11,再用填充钮填充。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个可以利用EXCEL中的转置完成,先复制一下a1至a11的单元格 然后再C1单元格 选择性粘贴 数值 在这个对话框的右下方有一个转置 给他挑上 就可以 同理b列的数据也可以这样做 然后再报 a列 b列删掉 OK了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选中a1……a11,复制
到空白单元格上右键-选择性复制-转置上打钩-确定
到空白单元格上右键-选择性复制-转置上打钩-确定
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询