时间戳

首页 > 解决方案 > 从一张纸复制数据并在另一张纸上替换

excel - 从一张纸复制数据并在另一张纸上替换

问题描述

我正在尝试在主表中获取数据以更新单独表中的数据。我目前让它在 A 列中搜索条件，如果匹配，则将其粘贴到与条件同名的工作表中。但是，它不会替换信息或从顶部开始。我希望它清除主表中不再存在的数据，并从粘贴表的第二行开始。

Option Explicit

Sub HHC()

Dim Cell As Range
Dim matchRow As Long

With Worksheets(1)    
    For Each Cell In .Range("H:H")
        If Cell.Value = "HHC" Then
            matchRow = .Cell.Row
            .Rows(matchRow & ":" & matchRow).Select
            .Rows(matchRow & ":" & matchRow).Select
            Selection.Copy        
            Worksheets(4).Select
            Worksheets(4).Rows(matchRow).Select
            Worksheets(4).Paste
            .Select
        End If
    Next        
End With
End Sub

标签： excelvba

解决方案

要运行此代码，请从下面的代码中删除点。

matchRow = Cell.Row

代替

matchRow = .Cell.Row

推荐阅读