VBA 찾기, 복사, 붙여 넣기, 시트 간 교체 속도 향상

Question

데이터를 찾고 행을 복사하고 다른 시트에 붙여 넣고 여러 시트 사이의 값을 바꿀 속도를 향상 시키려고합니다.

현재 각 시트를 활성화하고 cells.Find를 사용하고 있지만 60k + 행을 검색 할 때 매우 느리거나 전혀 진행되지 않습니다. 여기

내가 "개선하기 위해 노력하고있어 기본적인 프로세스입니다.

Sub UpdateSKU() 
'On Error GoTo ErrorCatch 


Dim OldSKU As Long 
Dim NewSKU As Long 
Dim SKUSubset As String 
Dim SubsetRange As Range 

OldSKU = Sheets("Rollover Request").Range("A2") 
NewSKU = Sheets("Rollover Request").Range("B2") 


'UPDATE NEW SKU IMPORTER 
Sheets("SKU Exporter").Activate 

Cells.Find(what:=OldSKU, after:=ActiveCell, LookIn:=xlFormulas, _ 
    Lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 
ActiveCell.EntireRow.Copy 
Sheets("New SKU Importer").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.CutCopyMode = False 
Worksheets("New SKU Importer").Columns("A:A").Replace what:=OldSKU, Replacement:=NewSKU, Lookat:=xlPart _ 
    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 


End Sub 

내가 통합 문서에서 여러 다른 시트에 대해이 작업을 수행

어떤 도움도 대단히 감사하겠습니다 감사합니다

!

Answer 1

나는 당신의 문제가 옳은지 확신 할 수 없다. 전체 소스 시트에서 특정 값을 찾고 있는가? 하나의 단일 발생이 나타날 때마다, 값을 찾은 열을 대상 시트에 붙여 넣을 수 있는가? 그 값은 한 번만 나타 납니까? 전체 시트에서 또는 여러 번 한 열에서?

어쨌든, 검색의 속도를 높이고 작업의 일부를 복사하는 방법에 대한 아이디어가 있습니다. 배열을 사용하면 이러한 프로세스가 매우 빨라진다는 것을 알게 될 것입니다. 이 도움이

희망 ...

Sub SF_row() 

Dim arr_DB As Variant 
Dim i As Long, j As Long 
Dim no_col As Integer, no_rows As Long 
Dim col_no As Integer 

Dim ws1 As Worksheet, ws2 As Worksheet 
Set ws1 = ThisWorkbook.Worksheets("SKU Exporter") 
Set ws2 = ThisWorkbook.Worksheets("New SKU Importer") 
ws1.Activate 
no_rows = ws1.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row 
no_cols = ws1.Range(Cells(1, Columns.Count), Cells(1, Columns.Count)) _ 
    .End(xlToLeft).Column 
arr_DB = ws1.Range(Cells(1, 1), Cells(no_rows, no_cols)) 
For i = 1 To no_rows 
    For j = 1 To no_cols 
     If InStr(arr_DB(i, j), "String or Value you search for") <> 0 Then 
      col_no = j 
     GoTo copy_column 
     End If 
    Next 
Next 
copy_column: 
ws1.Range(Columns(col_no), Columns(col_no)).Select 

With Selection 
    .Copy 
End With 
ws2.Activate 

ws2.Range("A1").Select 
ActiveSheet.Paste 
End Sub 

Answer 2

찾기를 사용하여 천 개 이상의 몇 가지 레코드가 느립니다. 경우에 따라 검색되는 레코드 수를 줄이기 위해 데이터를 필터링하거나 정렬 할 수 있었지만 작업 한 정확한 데이터에 따라 달라질 수 있습니다.

보고있는 SKU 중 일부가 변경되지 않은 경우 변경된 것으로 알고있는 SKU 만 실행하면 조금 더 빠릅니다.

Answer 3

그래서 제 질문에 대한 답변을 찾을 수 없었습니다. OLDSKU 값을 찾는 대신 각 시트에 하나의 인스턴스 만 있기 때문에 필자는이를 필터링하기로 결정했습니다.

코드는 다음과 같습니다

Sub UpdateSKU() 

Application.ScreenUpdating = False 

Dim OldSKU As Long 
Dim NewSKU As Long 
Dim skuExp As Worksheet, skuImp As Worksheet 
Set skuExp = Sheets("SKU Exporter") 
Set skuImp = Sheets("New SKU Importer") 

OldSKU = Sheets("Rollover Request").Range("A2") 
NewSKU = Sheets("Rollover Request").Range("B2") 



'UPDATE SKU IMPORTER 

skuExp.Range("A1").AutoFilter _ 
           Field:=1, Criteria1:=OldSKU 

skuExp.Range(skuExp.Cells(2, 1), skuExp.UsedRange. _ 
        SpecialCells(xlLastCell)).Copy 

skuImp.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial _ 
     Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False 

skuImp.Columns("A:A").Replace What:=OldSKU, Replacement:=NewSKU, LookAt:=xlPart _ 

skuExp.ShowAllData 

End Sub 

모든 당신의 도움을 주셔서 감사합니다!