多转置粘贴到单列Excel中

时间:2017-01-13 10:50:36

标签: excel vba excel-vba transpose

我在Excel中有一组列,我想将其重组为一个长列表。我们的想法是获取第1行中的所有实例(即A1, B1, C1, D1等),并将它们放入新工作表中新列的运行列表中。这很容易,问题是我有几行我想重新格式化。我想要的是以下内容:

Row 1: A1, B1, C1
Row 2: A2, B2, C2
Row 3: A3, B3, C3
etc..

最终列在一个列中的长列表中,如:

Column 1: A1, B1, C1, A2, B2, C2, A3, B3, C3.

我在这里处理大约300行条目,每个条目大约有8列,因此手动复制 - 粘贴 - 转置解决方案将是我的最后手段。我觉得可能有一个聪明的宏解决方案,但我不熟悉宏。

1 个答案:

答案 0 :(得分:0)

从录制宏开始。尽可能使用键盘制作动态代码(至少选择单元格和范围)。它会是这样的:

  1. 在两张纸中选择单元格A1。转到第一张(带行)
  2. 开始录制宏
  3. 按Ctrl + Shift + Arrow_Right
  4. 控制+ C
  5. 更改表
  6. 转贴在选定单元格中的粘贴
  7. 更改表
  8. 按Arrow_Down
  9. 按Ctrl + Shift + Right_Arrow
  10. 控制+ C
  11. 更改表
  12. 按Ctrl + Arrow_Down
  13. 按Arrow_Down
  14. 转贴在选定单元格中的粘贴
  15. GoTo point 7
  16. 在几行之后,您可以停止录制,检查生成的代码,了解VBA中的循环并完成代码。祝你好运。