以下代码目前有效。
我有一份包含200个奇怪工作表的报告，我将数据合并到一张纸上。
n = ActiveWorkbook.Sheets.Count
For i = 2 To n
Z = Sheets(i).Range("J13").Value
Cells(13, i) = Z
Next i
然后，我复制并粘贴相同的代码，并将13更改为14以用于下一个数据点。
理想情况下，我会使用单元格引用替换范围，使用变量替换13并使它们增加以便一次填充所有内容而不是复制和粘贴并逐个更改引用，但是我是没有运气。
我想的可能是：
b=10 to 24
Z = Sheets(i).cells(13, b)
cells(b,i) = z
next i next b
基本上，我试图将两个增量变量合并为一个for语句。
有人对如何精简这个有任何想法吗？
非常感谢！