Question

您好我正在尝试创建一个工作簿，该工作簿会根据值将一行剪切并粘贴到工作表中。

价值 - 已付或待处理

工作表主页，付费和待处理

当我将主E上的E列更新为付费或待处理时，我需要将其从主数据库中删除并放入相关表格（付费或待处理）。

我已经在网上寻找解决方案而没有发现任何我可以修改的内容。

请帮忙。

我已尝试使用下面的代码，但我只是将整个主表复制到付费表。

有人能看出我做错了吗？

Private Sub Workbook_Open()
Dim i, LastRow

LastRow = Sheets("Main").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Outstanding").Range("A2:I10485").ClearContents
For i = 2 To LastRow
If Sheets("Main").Cells(i, "E").Value = "Pending" Then
Sheets("Main").Cells(i, "E").EntireRow.Copy Destination:=Sheets("Outstanding").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If

LastRow = Sheets("Main").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Paid").Range("A2:I50000").ClearContents
If Sheets("Main").Cells(i, "E").Value = "Paid" Then
Sheets("Main").Cells(i, "E").EntireRow.Copy Destination:=Sheets("Paid").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If

Next i
End Sub

标题是卡金额日期到期日状态

由于

掌握更新多个工作表，根据值剪切并粘贴到工作表

0 个答案: