Question

我无法将复制的行粘贴到第一个可用行上的其他工作表中。

问题是我需要将数据粘贴到B列，但我的宏粘贴到其他列。列A具有Vlookup公式，列B-E具有特定的下拉列表，其优于非空单元格。

我不知道这是否会导致问题？

我的代码;

Dim iRow As Integer
Dim ws As Worksheet
Set ws = Worksheets("Dispute_Details")
ws.Activate
On Error Resume Next
iRow = Range("F:F").Find(What:=" ", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
Sheets(ws).Range("b", iRow).Activate

Worksheets("Dispute_Details").Paste
Application.CutCopyMode = False}

Answer 1

Dim iRow As Long
With Worksheets("Dispute_Details")
    iRow = .Cells(.Rows.Count, 5).End(xlUp).Row + 1
    .Range("B" & iRow).PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
End With

将数据粘贴到A-E非空的新工作表中

1 个答案: