VBA : 연속되지 않은 데이터를 한 시트에서 다른 시트로 복사

특정 날짜를 기준으로 특정 데이터를 필터링해야하는 워크 시트에서 작업하고 있습니다. Range.AutoFilter을 사용하여 데이터를 필터링하는 코드를 작성한 후 워크 시트의 가시적 인 데이터 (인접하지 않음)를 다른 워크 시트에 복사하려고합니다. 이를 위해 나는 오류 메시지가 "마이크로 소프트 Office Excel에서 만들거나 너무 복잡하기 때문에 데이터 범위 참조를 사용할 수 없습니다"이 코드 .Range("A1:AF" & row).SpecialCells(xlCellTypeVisible).Copy 라인 말하는 팝업VBA : 연속되지 않은 데이터를 한 시트에서 다른 시트로 복사

With ThisWorkbook.Sheets("ImportDumpData") 
    .Activate 
    'frow variable counts the total number of rows in the sheet 
    frow = .Range("A" & Rows.Count).End(xlUp).Row 
    .Columns("U:U").Select 
    Selection.AutoFilter 
    .Range("U2:U" & frow).AutoFilter field:=1, Criteria1:=">" & ThisWorkbook.Sheets("Main").Range("C4"), Operator:=xlEnd 
    .Range("A1:AF" & frow).SpecialCells(xlCellTypeVisible).Copy 
End With

을 사용하고 있습니다. 할 수있는 일을 제안하십시오.

출처

2016-06-16 kera_404

'row' 변수의 값은 무엇입니까? SpecialCells (xlCellTypeVisible) .Copy' 및 시트와 함께 시트 변수를 선언하는 것을 잊지 마세요. (Sheet.cells (1, "A"), sheet.cells (row, "AF")) 어디에서 수술을 할 수 있니? 또는'with '문을 사용하는 것으로 나타 났으므로 내 예제에서'sheet'를 생략하고'.cells' 만 사용하면됩니다. –

더 명확하게 질문을 편집했습니다. –

그리고 여전히 동일한 오류가 발생합니다 –

ActiveSheet.Range ("$ A $ 1 : $ F $ 518") 자동 필터 필드 :. = 4 Criteria1 = ""> .Range ("A : AF"& FROW) .SpecialCells (xlCellTypeVisible) .Copy

코드에 사용

출처

2016-06-16 07:21:22

작동하지 않습니다. 동일한 오류가 발생합니다 –

정확한 요구 사항을 알려주십시오. –

VBA : 연속되지 않은 데이터를 한 시트에서 다른 시트로 복사

답변

관련 문제