아래 우리는 빈 셀을 삭제 엑셀 VBA에서 프로그램을 볼 것이다.

상황 :

Delete Blank Cells in Excel VBA

  1. 먼저, 우리는 형 정수의 두 변수를 선언합니다. 하나의 이름 카운터 하나는 내가 이름. 우리는 값이 0으로 변수 카운터를 초기화

Dim counter As Integer, i As Integer

counter = 0

  1. 다음으로, 우리는 비어 여부 셀마다 확인 (<> 수단하지 같음). 우리는 이것에 대한 루프를 사용하고 있습니다. 버리지 않으면, 우리는 1로, 우리는 증가 카운터를 카운터 열 B에 우리가 열 B에 값을 복사 할 때마다 복사 된 세포의 수의 트랙을 보유하고 열 B에 프로그램의이 부분을 값을 쓰기 외모 다음과 같이

For i = 1 To 10

If Cells(i, 1).Value <> "" Then

Cells(counter + 1, 2).Value = Cells(i, 1).Value

counter = counter + 1

End If

Next i

지금까지 결과 :

Write non Empty Cells to next Column

: ( “A10 A1”) 칼럼 (A)에 열 B의 값을 복사 범위 비우 3. 마지막 범위 빈 ( “B1 : B10을”).

Range("A1:A10").Value = ""

Range("A1:A10").Value = Range("B1:B10").Value

Range("B1:B10") = ""

결과 :

Delete Blank Cells Result