데타가 있는데 량이 엄청 많슴다..
근데 이 데타가 엑셀파일인데요.. 내용이 한줄건너씩 있단말임다. 한줄 데타,한줄 빈줄, 한줄 데타 이렇게...
이 빈줄들을 함수를 써서 어떻게 한꺼번에 없앨방법이 없을가요? 어떤함수를 쓰면 되겠는지.. MOD 로는 안되는같구..
현재는 컨트롤키를 눌러가면서 빈줄들을 한줄한불 선택해서 한번에 사끄죠하는데..
아-- 원 시간이 넘 걸림다.. 눈두 아프구.. 미침다.ㅍㅍ
이 데터를 한달에 한번씩 내달라는데..
이런 원시적인 방법말구 어떻게 방법이 없을가요? 고수분들 제히 .. 부탁합니다.
쉼터에 새로운 글 쓰기는 금지되었습니다. 하지만 과거의 소중한 기록 중에 꼭 다른 분들에게도 읽었으면 하는 좋은 글들은 「추천하기」를 눌러주세요.
일부 글들은 악성광고나 의미없는 스팸들일 수 있습니다. 읽는 분들에게 피해가 되거나 삭제를 희망하는 글에는 신고를 클릭해주세요. 로봇을 통하여 정기적으로 확인 및 정리를 합니다.
코멘트 (10)
만약 데타가 잇는 줄부터 시작해서 공백줄을 없애려면 아래와같이 ....
'標準モジュールへ
Sub BlankRowsDelete()
Dim Rng As Range
Dim i As Long
Set Rng = Selection '最初にマウスで範囲を選択
For i = Rng.Rows.Count To 1 Step -1
With Rng.Cells(i, 1)
If Application.CountA(.EntireRow) = 0 Then
.EntireRow.Delete
End If
End With
Next i
End Sub
'標準モジュールへ
Sub BlankRowsDelete()
Dim Rng As Range
Dim i As Long
Set Rng = Selection '最初にマウスで範囲を選択
For i = Rng.Rows.Count To 1 Step -1
With Rng.Cells(i, 1)
If Application.CountA(.EntireRow) = 0 Then
.EntireRow.Delete
End If
End With
Next i
End Sub
고수는 아닙니다 .. ... ㅎㅎ
엑셀작업 그냥 할려면
(1)セル範囲（データ範囲）を選択する
(2)「編集」→「ジャンプ」を実行して「ジャンプ」ダイアログボックスを表示する
(3)「セル選択」ボタンをクリックして「選択オプション」ダイアログボックスを表示する
(4)「空白セル」オプションボタンをオンにして「OK」ボタンをクリックする
(5)「編集」→「削除」を実行して「削除」ダイアログボックスを表示する
(6)「行全体」オプションボタンをオンにして「OK」ボタンをクリックする
(1)セル範囲（データ範囲）を選択する
(2)「編集」→「ジャンプ」を実行して「ジャンプ」ダイアログボックスを表示する
(3)「セル選択」ボタンをクリックして「選択オプション」ダイアログボックスを表示する
(4)「空白セル」オプションボタンをオンにして「OK」ボタンをクリックする
(5)「編集」→「削除」を実行して「削除」ダイアログボックスを表示する
(6)「行全体」オプションボタンをオンにして「OK」ボタンをクリックする
마크로란게 있는건 알았지 미내 깜깜인게...마크로보턴 찾는데만 5분걸렸슴다..ㅎㅎ
저우에 명령보구 아휴-- 촌아 이렇게 복잡한거 첨보구 어떡하나했는데... 두번째거 코피해서 짝 부치니 됩디다..
마크로란게 참 신기함다... 암 -- 고수아님못하짐.. 요런건 컴전문가들만 하는게짐..
여기서 물어보구 했겠는걸.. 온하루 풀풀거리메 ... 참 너무 너무 감사함다.. 가깝에 있으무 막 도랏쓰하기싶은 심정임다..ㅎㅎ
저우에 명령보구 아휴-- 촌아 이렇게 복잡한거 첨보구 어떡하나했는데... 두번째거 코피해서 짝 부치니 됩디다..
마크로란게 참 신기함다... 암 -- 고수아님못하짐.. 요런건 컴전문가들만 하는게짐..
여기서 물어보구 했겠는걸.. 온하루 풀풀거리메 ... 참 너무 너무 감사함다.. 가깝에 있으무 막 도랏쓰하기싶은 심정임다..ㅎㅎ
^^ 잘 풀렷다니 기쁨다 ㅎㅎ ..도랏쓰한걸로 치기쇼 ㅎㅎ
풍선아 기응환은 모르는게
이건 안다구 사기나서 와서 해줬구낭 ㅋㅋㅋ
암튼 스바라시이 ㅋㅋㅋㅋㅋㅋㅋ
이건 안다구 사기나서 와서 해줬구낭 ㅋㅋㅋ
암튼 스바라시이 ㅋㅋㅋㅋㅋㅋㅋ
ㅎㅎㅎㅎㅎㅎ 육아는 경험이 없다나니 ㅎㅎㅎㅎㅎ
유나아 짱~!
ㅋㅋ 그나저나 뉘신지 미내 감이안잡히짐 ... 흠 ~~
--------------------------------------------
Sub TestDelete()
With Range("A1:A" & Range("A65536").End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
----------------------------------------------