VBA : 값 필터링 및 오프셋 복사

나는이 작업을 시도했지만 오류가 계속 발생했습니다 : 은 .Offset 라인입니다. 스프레드 시트의 "로그 프레임 정보"에서 Sustainability:* 값을 가진 모든 행을 열 O에 찾고 해당 행의 열 M에 해당 정보를 복사하고 싶습니다. 그런 다음 해당 정보를 스프레드 시트 "SPSE Tran"에 붙여 넣기를 셀 에서 시작하여 B73으로 시작합니다. 나는 가능하면이, 코드에없는 알고 있지만 Sustainability:*에서 열 O이 경우에도 M가 (비어있는 경우 M 열 복사를 건너 뛰어야합니다.VBA : 값 필터링 및 오프셋 복사

Sub test() 

Dim RngDest as Range 

With Sheets("SPSE Tran") 
    Set RngDest = .Range("B73") 
End With 

With Sheets("Log Frame Info").Range("O:O") 
    .AutoFilter 1, "Sustainability:*" 
    .Offset(1, -2).Copy RngDest 
    .AutoFilter 
End With 

End Sub

출처

2014-07-22 spaindc

'.Offset' 명령은 의미가 없습니다 컨텍스트를 선택 했으므로 컨텍스트 ("O")를 선택해야합니다 (열을 선택한 경우 세로로 옵셋 ...) – Sifu

보다 큼 도움 Sifu를위한 ks. O를 O1 : O1000으로 제한하여 작동하게 만들 수있었습니다. 오프셋 (1, -2)에 값이있을 때만 복사 할 수있는 방법을 알고 있습니까? (비어 있지 않음) – spaindc

If 문을 넣을 수 있습니다. 무언가를 따라 :'If Is Isempty ({Offset cell}) Then 'Copying'End if' – Sifu

내가 생각 Excel에서 제한된 양의 총 행이 있기 때문에 범위에 한계가 있어야합니다. 결과적으로 O1 : O1000 범위를 추가하면 작동합니다!

출처

2014-07-22 20:46:38 spaindc

VBA : 값 필터링 및 오프셋 복사

답변

관련 문제