vba - 在简单的循环中错过一些东西

Question

我在一张纸上有一系列单元格，我希望在另一张纸上复制 n 次:对于 n=4 则有:

Input (Sheet1)              Output (Sheet2)
 ABC                           ABC
 DEF                           ABC
 GHI                           ABC
                               ABC
                               DEF
                               DEF
                               DEF
                               DEF
                               GHI
                               GHI
                               GHI
                               GHI

我所做的很简单:

Sub REPLICATE()
  Dim i As Integer
  Dim j As Integer
  Dim TEMP As String

  For i = 1 To 400
    TEMP = Workbooks("Libro1").Sheets("Hoja1").Cell(i, 1).Value
      For j = 1 To 4
        Workbooks("Libro1").Sheets("Hoja2").Cell(j, 1) = TEMP
      Next j
  Next i
End Sub

我得到了错误 438。我认为问题可能是我使用了字符串，但我在 Sheet1 中尝试使用简单的整数，并且遇到了同样的问题。感谢您的建议。

Answer 1

这是Cells而不是Cell。无论如何，您的代码都不会工作，因为它会覆盖(j 每次都从 1 重新启动)。请尝试此操作(调整工作表引用以适应)。

Sub REPLICATE()

Dim i As Long

For i = 1 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2).Resize(4).Value = Sheet1.Cells(i, 1).Value
Next i

End Sub