Note: The other languages of the website are Google-translated. Back to English
로그인 회원가입

Excel에서 헤더 값을 기반으로 전체 열을 삭제하는 방법은 무엇입니까?

대부분의 경우 Excel의 헤더 값을 기반으로 전체 열을 삭제해야 할 수 있습니다. 예를 들어 헤더에 "old"값이 포함 된 모든 열을 삭제해야합니다. 이 튜토리얼에서는 헤더 값을 기반으로 전체 열을 삭제하는 방법을 자세히 보여줍니다.

VBA 코드로 헤더 값을 기반으로 전체 열 삭제
Excel 용 Kutools를 사용하여 헤더 값을 기반으로 전체 열 삭제

VBA 코드로 헤더 값을 기반으로 전체 열 삭제

VBA 코드로 헤더 값을 기반으로 전체 열을 삭제할 수 있습니다. 다음과 같이하십시오.

1. 프레스 다른 + F11 동시에 열려면 키 Microsoft Visual Basic 응용 프로그램 창.

2. 에서 Microsoft Visual Basic 응용 프로그램 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 아래 코드를 복사하여 모듈 창에 붙여 넣습니다.

VBA 코드 : 헤더 값을 기준으로 전체 열 삭제

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

노트:

1) 코드에서 "낡은”는 전체 열을 삭제할 기준이되는 헤더 값입니다. 헤더 값을 수동으로 변경하십시오. 과 A1 : D1 사용하려는 열 범위입니다.
2) 이 코드는 대소문자를 구분합니다.

3. 누르세요 F5 키를 눌러 코드를 실행하면 헤더가 지정된 텍스트와 동일한 전체 열이 즉시 삭제됩니다.

Excel 용 Kutools를 사용하여 헤더 값을 기반으로 전체 열 삭제

와 Excel 용 Kutools의 특정 셀 선택 유틸리티를 사용하면 먼저 특정 헤더 값을 포함하는 모든 열을 쉽게 선택한 다음 선택한 열을 한 번에 삭제할 수 있습니다. 다음과 같이하십시오.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

1. 삭제해야하는 열이 포함 된 범위를 선택한 다음 쿠툴 > 이 > 특정 셀 선택. 스크린 샷보기 :

2. 에서 특정 셀 선택 대화 상자에서 전체 열 에서 옵션 선택 유형 섹션 및 특정 유형 드롭 다운 목록에서 같음 옵션을 선택하고 다음 상자에 헤더 값을 입력하십시오. 마지막으로 OK 단추. 스크린 샷보기 :

3. 을 클릭합니다 OK 다른 팝업 대화 상자에서 버튼을 누르면 지정된 헤더 값이 포함 된 열이 즉시 선택됩니다.

4. 선택한 열의 열 머리글을 마우스 오른쪽 단추로 클릭 한 다음 . 오른쪽 클릭 메뉴에서. 그런 다음 선택한 모든 열이 한 번에 삭제됩니다.

  무료 평가판(30-일) 이 유틸리티의 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (12)
아직 평가가 없습니다. 가장 먼저 평가하세요!
레너드 스태그스
레너드 스태그스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것이 매우 기본적인 것처럼 보이면 죄송하지만 vba를 시도하는 것은 이번이 처음입니다. 이것을 사용하여 여러 열 머리글을 삭제하는 데 어떻게 적용합니까? 실제로 특정 헤더 열만 유지하고 변경 목록의 나머지 부분을 삭제하려고 합니다.
댓글
0
0
아타
아타     레너드 스태그스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
첫 번째 코드에서 네 번째 행을 복사하고 "old"를 두 번째 열 이름으로 변경하면 작동합니다.
댓글
0
0
엘리아스
엘리아스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여기요! 이것은 동일한 헤더를 가진 두 개의 연속 열이 있을 때까지 잘 작동합니다. 범위가 A1:A5이고 A2 및 A3에 'old' 헤더가 있다고 가정합니다. A2는 삭제되지만 A3는 A2가 차지했던 장소로 이동하고 코드는 해당 범위의 다음 셀인 새 A3을 보기 때문에 건너뜁니다.
댓글
0
0
결정
결정     엘리아스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 엘리아스입니다.
언급했듯이 A2와 A3에는 "old"라는 동일한 헤더가 있습니다. 그러나 그들은 같은 열에 있으며 코드를 적용한 후 전체 A 열이 즉시 제거됩니다.
나는 당신의 요점을 이해하지 못합니다. 당신이하려는 일의 스크린 샷을 제공 할 수 있다면 좋을 것입니다.
댓글
보고서
0
0
표시
표시
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 여러 열 이름으로 이 작업을 수행할 수 있습니까?
댓글
0
0
결정
결정     표시
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 마크,
아래 코드를 시도하십시오. 여덟 번째 줄에서 각 열 이름을 큰따옴표로 묶고 쉼표로 구분하십시오. 내가 도울 수 있기를 바랍니다. 고맙습니다.

하위 삭제특정 열()

Dim xFNum, xFFNum, xCount를 정수로

Dim xStr을 문자열로

희미한 xArrName을 변형으로

Dim MR, 범위로 xRg

오류에 대한 다음 재개

MR = 범위 설정("A1:N1")

xArrName = Array("old", "new", "get") '각 열 이름을 큰따옴표로 묶고 쉼표로 구분합니다.

xCount = MR.카운트

xStr = xArrName(xFNum)

xFFNum = xCount에서 1단계로 -1의 경우

xRg = Cells(1, xFFNum) 설정

xFNum = 0 UBound(xArrName)까지

xStr = xArrName(xFNum)

xRg.Value = xStr이면 xRg.EntireColumn.Delete

다음 xFNum

다음

최종 하위
댓글
보고서
0
0
폴 로드
폴 로드     결정
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드가 작동하려면 12행을 변경해야 한다고 생각합니다. 원래 줄 12 "Set xRg = Cells(1, xFFNum)" 수정된 줄 12 "Set xRg = MR(1, xFFNum)"
하위 삭제특정 열()
Dim xFNum, xFFNum, xCount를 정수로
Dim xStr을 문자열로
희미한 xArrName을 변형으로
Dim MR, 범위로 xRg
오류에 대한 다음 재개
MR = 범위 설정("A1:N1")
xArrName = Array("old", "new", "get") '각 열 이름을 큰따옴표로 묶고 쉼표로 구분합니다.
xCount = MR.카운트
xStr = xArrName(xFNum)
xFFNum = xCount에서 1단계로 -1의 경우
xRg = MR(1, xFFNum)으로 설정
xFNum = 0 UBound(xArrName)까지
xStr = xArrName(xFNum)
xRg.Value = xStr이면 xRg.EntireColumn.Delete
다음 xFNum
다음
최종 하위
댓글
0
0
라훌
라훌     표시
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
헤더가 4번째 행에서 시작하는 경우
댓글
0
0
조나단
조나단
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 예제에서는 헤더에 "old"가 포함된 모든 열을 삭제한다고 명시되어 있습니다. 그렇지 않습니다. = 연산자는 정확히 일치하는 항목만 삭제합니다. 와일드카드와 함께 LIKE 연산자를 사용해야 합니다.
고정 코드:Sub DeleteSpecifcColumn()
MR = 범위 설정("A1:D1")
MR의 각 셀에 대해
cell.Value LIKE "old*"인 경우 cell.EntireColumn.Delete
다음
최종 하위

댓글
0
0
결정
결정     조나단
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 수정 및 공유해 주셔서 감사합니다. 
댓글
보고서
0
0
레스닉
레스닉
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Pola, tengo una hoja de excel con varios datos, digamos 4 columnas y 12 filas, me gustaría poder imprimir cada fila en un folio separado en una plantilla, es decir, tenemos una hoja con varios nombres y apellidosforimno,ytas como filas tenga la hoja de excel, he inte tado varias cosas pero no encuentro la forma. 그라시아스 데 안테마노
댓글
0
0
결정
결정     레스닉
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
워크시트의 별도 페이지에 있는 각 행을 인쇄하려면 1행마다 페이지 나누기를 삽입한 다음 인쇄하는 것이 좋습니다.
이 기사에서 제공하는 방법이 도움이 될 수 있습니다. 시도해 주세요. 고맙습니다.
Excel에서 X 행마다 페이지 나누기를 삽입하는 방법은 무엇입니까?[/url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html
댓글
보고서
0
0
아직 코멘트가 없습니다
여러분의 의견을 남겨
손님
게스트로 게시
로그인
×
이 게시물 평가 :
다시 쓰기
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호