excel 从一个电子表格粘贴到另一个电子表格后删除数据

tyg4sfes 于 2023-04-13 发布在其他

关注(0)|答案(1)|浏览(288)

我试图从一个电子表格复制数据并粘贴到另一个电子表格。无论我最近粘贴的数据是什么，我都想删除。问题是，由于我粘贴的是旧数据，所以有时我会覆盖旧数据，但有时我不会。
我试过计算我复制的行，然后使用其他电子表格中的引用单元格/值删除，但我并不总是得到正确的行开始删除。

Dim lr As Long

Sheets("Sheet2").Select
lr = ThisWorkbook.Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox (lr)

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

Sheets("Sheet3").Select
Range("A2").Select
'Selection.End(xlDown).Select
'ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

Range("A" & (lr + 1)).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents

excel

来源：https://stackoverflow.com/questions/75980028/delete-data-after-you-paste-from-one-spreadsheet-to-another

1条答案

按热度按时间

yeotifhr1#

尝试

Sub CopyDataToSheet3()
    Dim lastRow As Long
    
    'Get the last row with data in Sheet3
    lastRow = Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row
    
    'Check if the last row with data is after row 1
    If lastRow > 1 Then
        'Clear contents of rows 2 to lastRow
        Sheets("Sheet3").Range("A2:A" & lastRow).ClearContents
    End If

    'Copy data from Sheet2 to Sheet3
    lastRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Sheet2").Range("A2:A" & lastRow).Copy Destination:=Sheets("Sheet3").Range("A2")
End Sub

赞(0）回复(0）举报 2023-04-13

我来回答

excel 从一个电子表格粘贴到另一个电子表格后删除数据

1条答案

相关问题

热门标签

最新问答