Question

如何用宏 批量将EXCEL竖排变成横排

我想把上面的图片中数据变成横排的，变成下图的样子，该怎么办。

上面只有两条数据，我可一个一个复制、粘贴，转置，但如果有几千上万条数据，有没有办法批量转置，不用一条一条的转置。希望有高人指点，谢谢！！！





Answer 1

可用转置的方法解决：
1、选定这些横排数据并复制它；
2、在存放竖列数据的第一个单元格点鼠标右键——”选择性粘贴“，在“粘贴”处选择“全部”，在“运算”处选择“无”，点中”转置“，其他不选，最后按”确定“。
分享

Answer 2

每条数据 间隔一样么？
发样表 1052974911@qq.com

间隔一样 公式 就可以 简单处理了,
当然你要用 VBA 也行， 也就几句

追问

你好，每条数据间隔是一样的，如果一条一条转置由竖排变成横排，同一类数据都在一列上。看下图，就是我分别转置的。麻烦给我详细解答，谢谢拉。

追答

 转到 C列：

Sub 转置()
Dim arr
 For i = 1 To Range("B65536").End(xlUp).Row Step 19
  Set arr = Range("B" & i).Resize(19)
   Range("C" & (i + 18) / 19).Resize(1, 19) = Application.Transpose(arr)
  Next
End Sub

Answer 3

下班后来看看……