excel - VBA 宏更新列表

Question

我需要制作一个宏来从一张表更新到另一张表。

在一张纸上，我有一行信息一直在更新（手动），如果此信息已经存在，我必须在另一张纸上签入，如果不进行更新并在此列上写入新信息。

这是我的代码：

Sub Update()
Dim Final As Worksheet
Dim Actual As Worksheet
Dim recRow As Long
Dim lastrow As Long
Dim recCol As Long
Dim lastCol As Long
Dim fcell As Range
Dim i As Long

Set Roles = Worksheets("Actual")
Set Final = Worksheets("Final")

Application.ScreenUpdating = False

recRow = 1

With Actual
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

For i = 2 To lastrow
Set colcount = Final.Range("A:A").Find(what:=.Cells(i, "A").Value, lookat:=xlWhole, MatchCase:=False)
If Not fcell Is Nothing Then
recRow = fcell.Row

Else
.Cells(i, "A").EntireRow.Copy
Final.Cells(recRow + 1, "A").EntireRowInsert
recRow = recRow + 1


End If
Next i

End With




Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

标签： excelvba