Question

我想通过点击宏按钮逐个复制项目，消息框将是每个项目的中断。在宏读取#Value！之前，它会停止复制。

示例：

  A 

  B

  C

  D

 #Value!

我创建了一个像这样的VBA：

  Sub Copylineitems()
  Dim i As Integer

   Do

    Sheets("Capital Line Items").Range(Cells(i + 2, 11), Cells(i + 2, 13)).Copy

     MsgBox "copy"

      i = 1 + i


        Loop While Range("K" & (i + 3)) = "#VALUE!"


           End Sub

但是，这种编码不起作用。

有人可以提供建议吗？

Answer 1

这个子可能适合你。尝试以下子....

Sub CopyItems()
Dim LastUsedCell As Long
    LastUsedCell = Sheets("Sheet1").Range("A1").End(xlDown).Row

    For Each cel In Range("A1:A" & LastUsedCell)
        If IsError(cel.Value) Then
            Exit For
        Else
            MsgBox cel.Value
        End If
    Next
End Sub

Answer 2

只需对@ harun24hr的代码和代码进行一些调整..

 Sub Copylineitems()
    Dim i As Integer
    i = 0
    Do
        Range(Cells(i + 2, 11), Cells(i + 2, 13)).Copy
        MsgBox "copy"
        i = 1 + i
    Loop While Not IsError(Cells(i + 2, 11).Value)

End Sub

如何创建一个可以按顺序逐个复制项目的宏？

2 个答案: