Блог

У меня есть лист с именем «НЕОБРАБОТАННЫЕ ЭЛЕМЕНТЫ» с данными, а также есть еще несколько листов с другим именем, где мне нужно переместить данные с листа «НЕОБРАБОТАННЫЕ ЭЛЕМЕНТЫ». и все имена листов доступны на листе «НЕОБРАБОТАННЫЕ ЭЛЕМЕНТЫ» в столбцах С3 по С100. Когда я запускаю приведенный ниже код, он работает хорошо, когда я запускаю его в первый раз. Но когда я добавляю некоторые данные на лист «НЕОБРАБОТАННЫЕ ЭЛЕМЕНТЫ», это также перемещает более ранние строки на их связанный лист. Я не могу понять, как остановить перемещение повторяющихся строк. Я имею в виду, как пропустить, если дубликат raw найден на тех листах, где перемещаются данные?

 Sub copyPasteData()

Dim PV As String
Dim ps As String
Dim LastRow As Long

PV = "RAW ITEMS"

Sheets(PV).Visible = True
Sheets(PV).Select

Range("C3").Select

Do While ActiveCell.Value <> ""
    ps = ActiveCell.Value
    
    ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select
    Selection.Copy
    
    Sheets(ps).Visible = True
    Sheets(ps).Select
    LastRow = pvs("A")
    Cells(LastRow   1, 1).Select
    Selection.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Sheets(PV).Select
    ActiveCell.Offset(0, 2).Select
    ActiveCell.Offset(1, 0).Select
    Loop
    Range("A1").Select
    
End Sub

Public Function pvs(col)
    Dim LastRow As Long
    With ActiveSheet
    LastRow = .Cells(.Rows.Count, col).End(xlUp).Row
    End With
    pvs = LastRow
End Function
  

Я новичок в VBA. Пожалуйста, помогите мне.

как пропустить, если дубликат raw найден на тех листах, на которых перемещаются данные?

Это ссылка на файл для лучшего понимания

Попробуйте следующий код, пожалуйста. Это позволяет избежать любого выбора, активации, которая потребляет ресурсы Excel, не принося никакой пользы. Это должно быть быстро, с использованием массивов и работы в памяти:

 Sub copyPasteData()
 Dim PVWs As Worksheet, PSWs As Worksheet, arrPV, arrPS, arPV, arPS
 Dim LastRPv  As Long, LastRPs As Long, lastCol As Long, i As Long
 Dim j As Long, boolCopy As Boolean

 Set PVWs = Worksheets("RAW ITEMS")
 LastRPv = PVWs.Range("C" amp; Rows.Count).End(xlUp).Row
 lastCol = PVWs.UsedRange.Columns.Count

 'load the range in an array:
 arrPV = PVWs.Range(PVWs.Range("A" amp; 2), PVWs.Cells(LastRPv, lastCol)).Value

 For i = 1 To UBound(arrPV) 'iterate between the array rows
    On Error Resume Next
     Set PSWs = Worksheets(CStr(arrPV(i, 3)))    'set the sheet to paste, if no a similar row exists
     If Err.Number = 9 Then
        Err.Clear: On Error GoTo 0
        Dim ans As VbMsgBoxResult
        ans = MsgBox("The sheet " amp; CStr(arrPV(i, 3)) amp; " does  not exist!" amp; vbCrLf amp; _
                     "Would you like to create it?", vbYesNo, "Sheet creation confirmation")
            If ans <> vbYes Then GoTo OverIt
            Set PSWs = Worksheets.Add(after:=Worksheets(Worksheets.Count)) 'add the new sheet (after the last)
            PSWs.Name = arrPV(i, 3) 'name the newly inserted sheet
            'copy the header from the previous sheet:
            PSWs.Previous.Range("A1:G1").Copy Destination:=PSWs.Range("A1")
     End If
    On Error GoTo 0
    arPV = Application.Index(arrPV, i, 0) 'a slice of the i row (1D array)
    
    LastRPs = PSWs.Range("A" amp; Rows.Count).End(xlUp).Row 'last row
    'load the sheet existing range in an array
    arrPS = PSWs.Range(PSWs.Range("A" amp; 1), PSWs.Cells(LastRPs, lastCol)).Value
    For j = 1 To UBound(arrPS) ' iterate and check if the sliced rows are all the elements identic
        boolCopy = True
        arPS = Application.Index(arrPS, j, 0) 'a slice of the j row (1D array)
        If Join(arPV, "|") = Join(arPS, "|") Then 'check if the rows are the same
            boolCopy = False: Exit For
        End If
    Next j
    If boolCopy Then
        'if not alsready in the sheet, the array is copied
        PSWs.Range("A" amp; LastRPs   1).Resize(1, UBound(arPV)).Value = arPV
        boolCopy = False 'reinitialize the Boolean variable
    End If
OverIt:
 Next i
End Sub
  

Логика кода предполагает, что «повторяющаяся строка» означает, что все значения ячеек на листе для копирования строки идентичны значениям анализируемой строки, подлежащей копированию.

И в столбце C должно существовать имя самого листа…