VBA удалить ячейку ниже последнего вставленного диапазона - PullRequest
Новая
       40

VBA удалить ячейку ниже последнего вставленного диапазона

0 голосов
/ 27 апреля 2020 
Sheets("MDCF").Select
Range("B6:B100").Select
Selection.Copy
Range("J6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Selection.Replace What:="10000", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Range("J6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("MDCF Fund").Select
Range("F7").Select
ActiveSheet.Paste

With Sheets("MDCF Fund")
        Set FOUNDRANGE = .Columns("F:F").Find("*", After:=.Range("F81"), searchdirection:=xlPrevious, 
  LookIn:=xlValues)
        If Not FOUNDRANGE Is Nothing Then LR1 = FOUNDRANGE.Row
End With
    Range("F80:F" & LR1 + 1).Select
Selection.Clear

Я пытаюсь удалить ячейки, которые находятся ниже последней ячейки на новом листе, но это не работает, если диапазон ячеек одинаков в обоих диапазонах копирования и вставки. пытаясь найти способ, которым я смогу удалить только избыточные ячейки выше F80 и ниже количества скопированных ячеек.

1 Ответ

1 голос
/ 27 апреля 2020

Если вы хотите сразу удалить все данные после F80, тогда будет работать следующий код: 

    With Sheets("MDCF Fund")
    LR1 = Range("F" & Rows.count).end(xlup).row

   'If you want to keep the cells between the pasted data and F80 then just add the IF condition
    If (LR1 > 80) Then
        Range("F80:F" & LR1).Select
        Selection.clear
    end if
...