Question

我是使用Excel宏的新手，这是我第一次在这里提问。我在这里做了一些关于这个问题的研究，但仍然无法解决它。

我有几张名为：第1页，第2页等，我想复制特定范围内的数据并将其粘贴到名为“ULD”的工作表中。当我在第1页中运行宏时，一切都很完美。但是当我在第2页或其他工作表中运行时，新数据将粘贴并替换从第1页粘贴的数据。

以下是我的vba代码：

Sub test()

Dim ws As Worksheet
Set ws = Sheets("ULD")

      'Only Copy Visible Cells'
  Range("L3:L100").Select
  Selection.SpecialCells(xlCellTypeVisible).Select
  Selection.Copy

Sheets("ULD").Activate
   For Each cell In ws.Range("I4:I10").Cells
       If IsEmpty(cell) = True Then cell.Select.Paste: Exit For
   Next cell

End Sub

此外，我希望数据只是粘贴值，我该如何编写代码？

Answer 1

有一些混乱，这就是我如何解释你想要做的事情。

Sub test2()

    Dim ws As Worksheet, LstRw As Long
    Set ws = Sheets("ULD")
    With ws
        LstRw = .Cells(.Rows.Count, "I").End(xlUp).Row
    End With
    'Only Copy Visible Cells'
    Range("L3:L100").SpecialCells(xlCellTypeVisible).Copy
    ws.Range("I" & LstRw + 1).PasteSpecial xlPasteValues
    Application.CutCopyMode = 0
End Sub

在其他工作表中搜索下一个空白单元格并粘贴

1 个答案: