如何多次剪切和粘贴转置数据

Question

我有一个电子表格，我需要从表单1中复制每18行并将粘贴转置到表单2.我必须这样做超过100次。关于如何自动化这个过程的任何选项？

Answer 1

你在找这样的东西吗？

Sheets("Sheet2").Range("D4:H4").Value = Application.WorksheetFunction.Transpose(Sheets("Sheet1").Range("B2:B6").Value)