Excel 如何将一些预设工作表中的信息复制到一个概览页面中？

我有一个用户表单，它用自己的特定表单将一些信息填入一组22行中。然后，我想将这22行复制到概览工作表中

我试着跳过23个插槽，这样中间就有一行可以观看了

我明白了

运行时错误“438”：对象不支持此属性或方法

并以我的For语句后的行为目标，从工作表开始

Sub-populateOverview（）
作为整数的Dim i
作为整数的Dim x
Dim y作为整数
设y=i-4
对于i=4到1张。计数
工作表（i）.范围（“1:22”）.复制工作表（“概述”）.单元格（y）
y=y*24
接下来我
端接头

为什么有这个

Let y = i - 4

它最初将y设置为值-4，然后在循环中设置为-96、-2304、-55296，依此类推

即使你按照建议在一个单元格和一个单元格之间切换，它也不会起作用

试试这个

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

---

需要2个坐标。另外：为什么要将y乘以24？键入错误：它是

。单元格（y）

，而不是

。单元格（y）

要工作，您的代码行必须看起来像

工作表（i）.范围（“1:22”）。复制工作表（“概述”）。单元格（y，1）

。只能在第一列中复制一行或多行。