使用VB在excel中进行选择性转置

Question

我正在使用VB创建一个Excel工作表，用于大量数据，目前仅由一列（A1）中的~9500行数据表示。每个逻辑记录实际上是20行数据。

我需要的是：

1. 选择20行数据。
2. 复制该选择，然后将TRANSPOSE复制到第一行，从A1开始并经过T1。
3. 然后删除转换为第1行（基本上删除20行）
的数据行
4. 然后选择NEXT 20行数据，并重复整个过程，但这次粘贴到第2行而不是第1行（A2：T2）。
5. 这需要遍历整个工作表，直到它遍历所有9500行。
6. 最终结果将是475行数据，其值为前20列。