셀 범위를 복사하고 데이터가있는 셀만 선택하십시오.

Question

셀 범위를 복사하는 방법을 찾고 있지만 값이 들어있는 셀만 복사하는 방법을 찾고 있습니다.

내 Excel 시트에는 A1-A18에서 실행중인 데이터가 있고 B는 비어 있고 C1-C2입니다. 이제 값이 들어있는 모든 셀을 복사하고 싶습니다.

With Range("A1") 
    Range(.Cells(1, 1), .End(xlDown).Cells(50, 3)).Copy 
End With 

이 A1-C50에서 모든 것을 복사합니다,하지만 난 단지 이러한 데이터를 포함하는 것처럼 A1-A18와 C1-C2 볼 복사 할. 그러나 일단 B 또는 내 범위의 데이터를 가져 오면 복사본이 복사되는 방식으로 구성되어야합니다.

'So the range could be 5000 and it only selects the data with a value. 
With Range("A1") 
Range(.Cells(1, 1), .End(xlDown).Cells(5000, 3)).Copy 
End With 

고마워요! 진, 현재 코드

---

감사 :

Sub test() 

Dim i As Integer 
Sheets("Sheet1").Select 
i = 1 

With Range("A1") 
    If .Cells(1, 1).Value = "" Then 
    Else 
    Range(.Cells(1, 1), .End(xlDown)).Copy Destination:=Sheets("Sheet2").Range("A" & i) 
    x = x + 1 
    End If 
End With 

Sheets("Sheet1").Select 

x = 1 
With Range("B1") 
' Column B may be empty. If so, xlDown will return cell C65536 
' and whole empty column will be copied... prevent this. 
    If .Cells(1, 1).Value = "" Then 
     'Nothing in this column. 
     'Do nothing. 
    Else 
     Range(.Cells(1, 1), .End(xlDown)).Copy Destination:=Sheets("Sheet2").Range("B" & i) 
     x = x + 1 
    End If 
End With 

Sheets("Sheet1").Select 

x = 1 
With Range("C1") 
    If .Cells(1, 1).Value = "" Then 
    Else 
     Range(.Cells(1, 1), .End(xlDown)).Copy Destination:=Sheets("Sheet2").Range("C" & i) 
     x = x + 1 
    End If 
End With 

End Sub 

A1 - A5가 데이터를 포함는 A6는 블랑이고, A7은 데이터를 포함합니다. 그것은 A6에서 멈추고 B 열로 향하고 똑같은 방식으로 계속됩니다.

Answer 1

3 개의 열이 크기가 다르기 때문에 가장 안전한 방법은 하나씩 복사하는 것입니다. PasteSpecial의 바로 가기는 결국 두통의 원인이됩니다.

With Range("A1") 
    Range(.Cells(1, 1), .End(xlDown)).Copy myDestinationRangeA 
End With 

With Range("B1") 
    ' Column B may be empty. If so, xlDown will return cell C65536 
    ' and whole empty column will be copied... prevent this. 
    If .Cells(1, 1).Value = "" Then 
     'Nothing in this column. 
     'Do nothing. 
    Else 
     Range(.Cells(1, 1), .End(xlDown)).Copy myDestinationRangeB 
    EndIf 
End With 

With Range("C1") 
    Range(.Cells(1, 1), .End(xlDown)).Copy myDestinationRangeC 
End With 

지금이 추한이며, 청소기 옵션을 사용하면 많은 열이 있고 같은 순서로 인접한 컬럼에 붙여 넣기하고 특히, 칼럼을 통해 반복하는 것입니다.

Sub CopyStuff() 

    Dim iCol As Long 

    ' Loop through columns 
    For iCol = 1 To 3 ' or however many columns you have 
     With Worksheets("Sheet1").Columns(iCol) 
      ' Check that column is not empty. 
      If .Cells(1, 1).Value = "" Then 
       'Nothing in this column. 
       'Do nothing. 
      Else 
       ' Copy the column to the destination 
       Range(.Cells(1, 1), .End(xlDown)).Copy _ 
        Destination:=Worksheets("Sheet2").Columns(iCol).Cells(1, 1) 
      End If 
     End With 
    Next iCol 

End Sub 

---

편집 그래서 당신은 현재 셀이 비어있는 경우 확인, 개별 세포를 통해 반복 시도 ... 당신의 질문을 변경하고 복사 할 경우했습니다. 이 테스트,하지만 당신은 생각하지 적이 :이 코드는 iMaxRow가 큰 경우 정말 느려집니다

iMaxRow = 5000 ' or whatever the max is. 
    'Don't make too large because this will slow down your code. 

    ' Loop through columns and rows 
    For iCol = 1 To 3 ' or however many columns you have 
     For iRow = 1 To iMaxRow 

     With Worksheets("Sheet1").Cells(iRow,iCol) 
      ' Check that cell is not empty. 
      If .Value = "" Then 
       'Nothing in this cell. 
       'Do nothing. 
      Else 
       ' Copy the cell to the destination 
       .Copy Destination:=Worksheets("Sheet2").cells(iRow,iCol) 
      End If 
     End With 

     Next iRow 
    Next iCol 

합니다. 내 직감은 당신이 일종의 비효율적 인 방법으로 문제를 해결하려고 노력하고 있다는 것입니다 ... 문제가 계속 변할 때 최적의 전략에 정착하기는 약간 어렵습니다.

Answer 2

붙여 넣기 특수 기능을 살펴보십시오. 당신을 도울 수있는 '건너 뜀 빈'속성이 있습니다.

Answer 3

Jean-Francois Corbett의 답변을 향상 시키려면 .UsedRange.Rows.Count를 사용하여 마지막으로 사용한 행을 가져옵니다. 이것은 당신에게 상당히 정확한 범위를 줄 것이고 첫 번째 빈 칸에서 멈추지 않을 것입니다.

여기 ... 초보자를위한 주석 메모와 함께 훌륭한 예에 대한 링크입니다

• Excel macro - paste only non empty cells from one sheet to another - Stack Overflow