如何从一些预设的工作表复制信息到一个概述页?

Question

我有一个Userform填写一点信息到一个集22行与它自己的特定表。然后，我想将这22行复制到概述工作表中。

我试着跳过23个槽，这样就会有1行可见性。

我

运行时错误'438':对象不支持此属性或方法

并以For语句后的行为目标，从Worksheets开始。

Sub populateOverview()
Dim i As Integer
Dim x As Integer
Dim y As Integer

Let y = i - 4
For i = 4 To Sheets.Count
Worksheets(i).Range("1:22").Copy Worksheets("Overview").Cell(y)
y = y * 24
Next i
End Sub

Answer 1

你为什么有这个?

Let y = i - 4

首先将y设置为值-4，然后在循环中将其设置为-96，-2304，-55296等等。

即使您按照建议将Cell更改为Cell，它也不会起作用。

试一试。

Sub populateOverview()
Dim rngSrc As Range
Dim rngDst As Range
Set rngDst = Sheets("Overview").Range("A1")

For i = 4 To Sheets.Count
Set rngSrc = Sheets(i).Range("1:22")

rngSrc.Copy rngDst

Set rngDst = rngDst.Offset(23)

Next i

End Sub