|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
선택한 셀과 같은 내용을 같은 열에서 찾아서 행을 삭제하는 것입니다.
텍스트 파일을 불러들여서 정리할 때 편리한대여
아래코드는 Columns(검색컬럼) 이부분에서 문제가 있어서
에러가 발생됩니다.
range("B:B")와 같은 형식으루 하면 에러가 안나지만 이렇게 하면
열을 임의로 지정해 줄수 없더군여.
이것점 어떻게 해결할 수 없을 까여? 좀 가르쳐 주세요.
Sub 선택한것삭제()
Dim 셀 As Range, 선택범위 As Range
Dim 삭제할것 As String, 검색컬럼 As Integer
Set 선택범위 = Application.InputBox(prompt:="삭제할 값이있는 셀 선택", Type:=8)
삭제할것 = 선택범위.Formula
검색컬럼 = 선택범위.Column
MsgBox 삭제할것
For Each 셀 In Columns(검색컬럼)
If 셀.Formula <> "" And 셀.Row > 5 Then
If 셀.Formula = 삭제할것 Then
셀.EntireRow.Delete shift:=xlUp
Else
End If
Else
End If
Next 셀
End Sub
|
|