잘라 내기 및 붙여 넣기 범위 vba

Question

For j = 1 To numrows - 1 
     erow = Cells(Rows.count, 10 + j).End(xlUp).Row 
     totalMins = Cells(erow, 10 + j) 
     MsgBox (totalMins) 
     Range(Cells(erow, 10 + j), Cells(erow, 10 + j).End(xlUp)).Cut 
     Cells(20, 20).PasteSpecial xlPasteValues 
    Next 

pastespecial 범위 클래스에 오류가 계속 발생합니다. 이것이 실패한 이유는 무엇이며 어떻게하면 코드를 수정할 수 있습니까?

Answer 1

잘라 내기에서 특수 문자를 붙여 넣을 수 없습니다. 사용하여 더 나은 아직

For j = 1 To numrows - 1 
     erow = Cells(Rows.count, 10 + j).End(xlUp).Row 
     totalMins = Cells(erow, 10 + j) 
     MsgBox (totalMins) 
     Range(Cells(erow, 10 + j), Cells(erow, 10 + j).End(xlUp)).Cut Cells(20, 20) 
    Next 

또는를 :

For j = 1 To numrows - 1 
     erow = Cells(Rows.count, 10 + j).End(xlUp).Row 
     totalMins = Cells(erow, 10 + j) 
     MsgBox (totalMins) 
     Cells(20, 20) =Range(Cells(erow, 10 + j), Cells(erow, 10 + j).End(xlUp)) 
     Range(Cells(erow, 10 + j), Cells(erow, 10 + j).End(xlUp)).ClearContents 
    Next