미해결

raw데이터 정리 vba 문의(특정 행 및 열 삭제, 빈칸 제거)

꾸

꾸뻬씨

5월 1일 조회 9,469

안녕하세요 선생님

시스템에서 받는 raw데이터 두 가지 버전을 하나의 VBA를 작성하여 "결과"시트처럼 만들고 싶습니다.

특정 행 및 열 삭제

원하는 행을 1행에 놓고 싶은데, 두 가지 버전 모두 원하는 행 위치가 다릅니다.(노란색 음영표시)

각각 특정 행들을 삭제하여 원하는 행을 1행에 놓는 작업을 VBA로 만들고 싶어 문의드립니다.

또한, 1행에 놓은 후에는 빈 열들 삭제하는 VBA 함께 적용하고 싶습니다.

2. 특정 열 셀에 있는 빈 칸(" ") 제거

특정 행과 열을 삭제한 후에는 이름 열(D열) 셀 안에 빈 칸을 제거하고 싶습니다.

기존에 바꾸기(ctrl +H)로 빈 칸을 없앴는데, VBA로 적용하려면 어떻게 해야되는지 문의드립니다.

데이터 정리 문의 유첨파일 참조부탁드립니다.

데이터-정리-문의.xlsx 13 KB · 다운로드

#VBA·매크로 #중복·정리 #행·열 편집 #찾기 및 바꾸기

오

오빠두엑셀 5월 4일

안녕하세요?^^
특정 행을 삭제하여 원하는 행을 1행에 놓으시려면 아래 명령문을 응용해보시기 바랍니다.

For i = 시작행 to 종료행
If 조건 Then
WS.Cells(i, 1).EntireRow.Delete
End If
End Sub

빈열을 삭제하는 방법은 위와 동일한 방법으로, EntireColumn.Delete 를 적용하시면 됩니다.

범위 내 빈칸을 삭제하는 방법은 아래와 같습니다. 삭제 방향은 상황에 따라 수정하여 사용하시기 바랍니다. 자세한 내용은 아래 링크를 참고해보세요 ^^
https://docs.microsoft.com/en-us/office/vba/api/excel.xldeleteshiftdirection

Dim Rng As Range
Set Rng = Range("범위")
Rng.SpecialCells(xlCellTypeBlanks).Select
Rng.Delete Shift:=xlToLeft

답변이 도움이 되셨길 바랍니다.
감사합니다.

꾸

꾸뻬씨 작성자 5월 5일

답변 감사드립니다. 특정 행 지우는 작업 진행해보니 각각 해당되는 행을 삭제해서 밀려올라가는 구조가 되는데, 혹시 특정 조건 셀 위 행들을 전체 삭제하는 VBA를 알 수 있을까요?
예를 들면 cells(9,3).value = "번호"와 같지 않다면 해당 행 위로 전체 행삭제하는 정도

데이터-정리-문의_v1.xlsm 20 KB