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

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