Vba Excel宏复制数据并将数据转换到具有特殊条件的其他工作簿

我对宏还是新手。我在第一个工作簿中有数据，一列中有300行数据。我需要将每6行数据转换为其他工作簿中的6列。 例如，A1:A6中的数据必须转换为A1:F1。同样，来自A7:A14的数据必须转换为A2:F2

我有这个密码。数据以阵列形式保存在vDB上

Dim vDB
    vDB = rsData.getRows
         TargetRange.Cells(1, 1).Resize(UBound(vDB, 1) + 1, UBound(vDB, 2) + 1) = vDB

有了这段代码，我就能够将数据复制并转置到其他工作簿中。但它只能从一列到一行工作。我找不到每6行到6列的方法。

---

有没有办法用我上面的代码将每6行到6列的数据进行转换？非常感谢您的帮助。

无需

GetRows

。获取记录集

rsData

后，使用以下代码：

Dim i As Long
Do Until rsData.EOF
  targetRange.Cells(1 + Int(i / 6), 1 + i Mod 6).value = rsData.Fields(0).value
  i = i + 1
  rsData.MoveNext
Loop

---

如果使用

…Copy…paste特殊转置：=True，可以吗？不可以，因为在我的代码中，我使用了库，它将从关闭的工作簿复制数据。请尝试查看此项。它不会转换数据。数据需要转换。@AdryanPermana“A1:A6必须转换为A1:F1。同样，A7:A14中的数据必须转换为A2:F2”建议的代码是以您描述的方式直接从记录集
rsData
中放入数据。它假定您的记录集有一个字段（列），而不是将值放在一列中，而是将它们放在
A1:F1
然后
A2:F2
中，依此类推。对不起，我的错误。我做错了什么。它起作用了。谢谢