특정 셀의 값을 복사하여 다음 행의 셀에 붙여 넣기

Question

행의 특정 셀 값을 복사하여 다음 행의 다른 셀에 붙여 넣기를 원합니다. 여기까지 내가 지금까지 가지고있는 것이있다.

for i= 2 to 26160 
    If (Cells(i, 3) >= 99) Then 

     Cells(i, 3).Select 
     Selection.copy 
     Cells(i, 4).Select 'error 
     Selection.Paste 'error  
    end if  
next i 

하지만 내 코드는 4 번과 5 번 라인에서 오류가 발생하지 않습니까?

Answer 1

선을 결합 할 수 있습니다. 아래 코드를 시도하십시오. 코드에서 select를 사용하지 마십시오. Why?

'at beginning of proc 
With Excel.Application 
    .ScreenUpdating = False 
    .Calculation = Excel.xlCalculationManual 
    .EnableEvents = False 
End With 

''' 
'your code 

' updated as per comment 
j = 1 
For i = 2 To 26160 
    If (Sheets("sheet2").Cells(i, 3) >= 99) Then 
     Sheets("sheet2").Cells(i, 3).Copy Sheets("sheet3").Cells(j, 4) 
     j = j + 1 
    End If 
Next i 

'at end of proc 
With Excel.Application 
    .ScreenUpdating = True 
    .Calculation = Excel.xlAutomatic 
    .EnableEvents = True 
End With 

Answer 2

은 왜 직접 복사를 사용하여 아래의 방법을 통해 클립 보드를 피할?

set NewSheet = Sheets("Sheet1") 'New sheet name 
j = 1 'start pasting in this row on new sheet 
for i= 2 to 26160 
    If ActiveSheet.Cells(i, 3) >= 99 Then 
     NewSheet.Cells(j, 4) = ActiveSheet.Cells(i, 3) 
     j = j + 1 
    end if 
next i 

Answer 3

이 간단하고 FAST 수 sould :이 올바른지,

Sub test() 
    Dim c As Range 
    Debug.Print Timer, 
    For Each c In Range("C2:C26160") 
     If c.Value >= 99 Then 
      'copy to next cell 
      c.Copy c.Offset(0, 1) 
      'or copy to next col in other sheet 
      c.Copy Sheet3.Range(c.Offset(0, 1).Address) 
     End If 
    Next c 
    Debug.Print Timer 

End Sub