재고관리 VBA 만드는 중 알파벳이 아닌 품목코드 행전체 삭제 관련 질문드립니다~

VBA
작성자
수메리안
작성일
2021-11-23 18:01
조회
45
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

이곳에서 VBA 공부하면서 복잡한 회사 업무를 처리하고 있습니다~ 항상 고수님들의 노고에 감사드립니다.

이번에는 품목코드 중에서 첫자가 알파벳이 아닌 품목코드인 행 전체를 삭제하고자 합니다.

나름 VBA를 작성했지만 잘 안되고 있습니다~

신제품등록.xlsm를 첨부합니다^^

고수님들의 도움을 요청드립니다, 감사합니다~

 

회원등급 : 잎새등급
포인트 : 110 EP
총질문 : 3 개 (마감율 : 100%)
채택답변 : 0 개
전체 2

  • 2021-11-23 18:54
    채택된 답변

    일부 수정했습니다.

    Sub 품목코드삭제()
    Dim i As Integer
    Dim EndRow As Integer

    EndRow = Sheets("재고현황").Cells(Rows.Count, "E").End(xlUp).Row

    For i = EndRow To 2 Step -1
    FirstWord = Left(Sheets("재고현황").Range("B" & i), 1)

    If FirstWord Like "[a-z.]" Or FirstWord Like "[A-Z.]" Then

    Else
    ActiveSheet.Range("a" & i).Resize(, 5).Delete shift:=xlUp
    End If

    Next

    End Sub


    • 2021-11-24 09:28

      @bobo 님 감사합니다~^^

      님 덕분에 큰 문제가 해결되었습니다~

      아쉽지만... 사진으로나마 감사 표시드립니다^^

      즐거운 하루되세요^^

      drippedcoffee.jpg


전체 4,676
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (10)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 744
트로피 오빠두엑셀 2021.10.28 16 744
24249 VBA
New 모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다
너의나라 | 16:49 | 추천 0 | 조회 8
너의나라 16:49 0 8
24248 차트/그래프
New 그래프에서 가로 축 Data 설정하는 법 첨부파일
Etter | 16:46 | 추천 0 | 조회 10
Etter 16:46 0 10
24245 VBA
New 아웃룩 이메일 내용에 VBA 변수 넣기
argus | 16:08 | 추천 0 | 조회 12
argus 16:08 0 12
24239 VBA
New [초보] 웹 크롤링 관련 질문입니다. 첨부파일 (1)
스캐쳐 | 14:00 | 추천 0 | 조회 13
스캐쳐 14:00 0 13
24238 VBA
New 어떤 한 배열에서 다른 배열에 있는 값만 제외하고 새로운 배열3을 만들 수 있을까요? (2)
Paul | 13:50 | 추천 0 | 조회 17
Paul 13:50 0 17
24233 함수/공식
New 0이상의 값(유효값)이 있는 칼럼과 그 값을 불러오고 싶습니다. 첨부파일 (2) 답변완료
크놉스 | 11:41 | 추천 0 | 조회 23
크놉스 11:41 0 23
24232 차트/그래프
New 엑셀 차트에서 특정 값이 너무 높을때 차트화 하는 법 (2) 답변완료
담담 | 11:36 | 추천 0 | 조회 25
담담 11:36 0 25
24230 VBA
New vba 코딩을 부탁드립니다. 첨부파일 (2)
Trimman | 11:09 | 추천 -1 | 조회 27
Trimman 11:09 -1 27
24228 함수/공식
New 등급 기준표를 참조해서 연산을 하려고 할때 (1) 답변완료
지천 | 10:12 | 추천 0 | 조회 21
지천 10:12 0 21
24221 파워쿼리/피벗
New 엑셀 종속 테이블 문의 첨부파일 (2)
유령회원 | 08:30 | 추천 0 | 조회 20
유령회원 08:30 0 20
24216 VBA
New 로그인엑셀 사용시 수식입력줄 사라짐, 모든 엑셀창 자동종료 첨부파일 (1)
엑셀이 | 00:19 | 추천 0 | 조회 17
엑셀이 00:19 0 17
24215 VBA
New set_routine 반복 매크로 (1)
하늘의 꿈 | 2021.12.01 | 추천 0 | 조회 24
하늘의 꿈 2021.12.01 0 24
VBA
New 재질문 입니다.
하늘의 꿈 | 15:50 | 추천 0 | 조회 8
하늘의 꿈 15:50 0 8
24213 파워쿼리/피벗
New [파워쿼리] 계약자코드 중 특수계약 날짜가 일반계약 최소 최대 사이에 포함여부 열추가 첨부파일 (1)
seorin | 2021.12.01 | 추천 0 | 조회 18
seorin 2021.12.01 0 18
24211 VBA
New 시트를 메일머지하여 Hancom PDF 파일로 출력하는 매크로 VBA 코드 도움을 받고 싶어요. 첨부파일 (3)
김학동 | 2021.12.01 | 추천 0 | 조회 29
김학동 2021.12.01 0 29
24210 함수/공식
New 혹시 이런 것도 구할 수 있을까요? (3)
마른막대기 | 2021.12.01 | 추천 0 | 조회 36
마른막대기 2021.12.01 0 36
24207 함수/공식
New 중복값 중 제일 마지막 값 추출 (2)
rladud99 | 2021.12.01 | 추천 0 | 조회 38
rladud99 2021.12.01 0 38
24203 함수/공식
New 엑셀 값 가로/세로 변경하는 방법 문의드려요! 첨부파일 (2) 답변완료
이시현 | 2021.12.01 | 추천 0 | 조회 37
이시현 2021.12.01 0 37
24200 함수/공식
New 데이터를 일정간격으로 띄워서 입력하고 싶습니다. (5)
wlfl**** | 2021.12.01 | 추천 0 | 조회 43
wlfl**** 2021.12.01 0 43
24191 함수/공식
New 일치하는 값에 특정 데이터를 넣고싶습니다. (1)
노랑토끼 | 2021.12.01 | 추천 0 | 조회 53
노랑토끼 2021.12.01 0 53
24188 VBA
New VBA에서 이름이 긴 파일이 있는데 그 파일 이름을 바꾸고 싶습니다.(상세설명 필수) (2)
naver_618c988d51534 | 2021.12.01 | 추천 0 | 조회 30
naver_618c988d51534 2021.12.01 0 30
24184 문서서식
New 엑셀 자동채우기 관련 문의 (1) 답변완료
오문환 | 2021.12.01 | 추천 0 | 조회 42
오문환 2021.12.01 0 42
24182 함수/공식
New 줄바꿈 함수 도와주세요 첨부파일 (3)
김상준 | 2021.12.01 | 추천 1 | 조회 43
김상준 2021.12.01 1 43
24177 기능/도구
New 매크로 와 자동필터
FLOWERBALL | 2021.11.30 | 추천 0 | 조회 47
FLOWERBALL 2021.11.30 0 47
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
ryan_cruze | 2021.11.30 | 추천 0 | 조회 43
ryan_cruze 2021.11.30 0 43
24166 기능/도구
New 질문있습니다.
최강씨맨 | 2021.11.30 | 추천 0 | 조회 34
최강씨맨 2021.11.30 0 34
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 2021.11.30 | 추천 0 | 조회 52
PAKSAW 2021.11.30 0 52
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 2021.11.30 | 추천 -1 | 조회 46
ㄱ박민극 2021.11.30 -1 46
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (3)
가리 | 2021.11.30 | 추천 0 | 조회 38
가리 2021.11.30 0 38
24153 VBA
New 엑셀 검색 창 첨부파일 (2)
이혜 | 2021.11.30 | 추천 0 | 조회 36
이혜 2021.11.30 0 36
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 2021.11.30 | 추천 0 | 조회 34
이길호 2021.11.30 0 34
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 2021.11.30 | 추천 0 | 조회 24
Yukon 2021.11.30 0 24