|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
텍스트 화일을 열어서 구분자로 화일을 열고 중간에 빈행이 있어 A열을 삽입하고
'ㅁ'이라는 문자를 입력하고 자동필터를 사용하여
C와 D 열 위치에 값이 없는 경우 범위를 선택하여 행을 삭제하려고 만든 것입니다.
(좀 허접하지만.. ㅡㅡ;)
자동필터로 빈열을 선택한 것에 대한 행의 범위를 선택하는데서
범위설정을 모르겠어요. 부탁드려요
텍스트화일의 형식은 같지만 행수가 틀린 화일에 적용하려구요
Workbooks.OpenText Filename:="D:\n151.txt", StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 2 _
), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 1), Array(6, 1), Array (7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1))
'라인삭제하기 위한 열삽입 복사
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A2").Select
ActiveCell.FormulaR1C1 = "ㅁ"
Selection.Copy
ActiveWindow.ScrollRow = 1000
Range("A2:A1000").Select
ActiveSheet.Paste
'자동필터 설정
Rows("2:2").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="="
Selection.AutoFilter Field:=4, Criteria1:="="
'자동필터 옵션에 맞는 행의 범위 설정
Rows("4:4").Select
ActiveWindow.SmallScroll Down:=99
Rows("4:139").Select
'행 삭제
Selection.Delete Shift:=xlUp
'자동필터 전체데이타 보기
ActiveSheet.ShowAllData |
|