Excel複数行の削除方法とは？

2013/04/01 10:48

このQ&Aのポイント

Excelの複数行を一括で削除する方法について解説します。削除したい行の範囲を指定し、一括で削除することができます。
質問文のExcelデータにおいて、大株主から会社名の一つ手前までの行を一括で削除したい場合、削除したい行の範囲を指定し、削除機能を利用します。
一括で複数行を削除することで、効率的にデータを整理することができます。Excelの削除機能を使って、大株主から会社名の一つ手前までの行を一括で削除しましょう。

excel 複数行の削除

1 　　　　○　○　建　材(株) 2 〒111-0054○○市中央町4－14－36 3 電0333(71)3333 4 〔設　立〕平成12年９月 5 〔営業種目〕生コン製造，砂利・砂，セメント，他 6 　　　　　の販売 7 〔資本金〕10,000千円　　　　　 8 〔代表者〕山田太郎 9 〔役　員〕(代)山田太郎(取)山田二郎(監)山　 10 　　　　　　田和子 11 〔大株主〕山田太郎50％,山田二郎30%,山田二 12 　　　　　郎，山田和子各10％ 13 〔取引銀行〕○○信金，？？信金 14 〔事業所〕(工場)○○市中央町4－14－36 15 〔仕入先〕○○商事，丸々産業， 16 〔販売先〕 17 〔業　績〕(千円) 18 　決算期　　　　売上高　　　利　益　配当総額 19 20年10月　　　470.200　　　△182　　　　－ 20 21年10月　　　　489,000　　　△200　　　　－ 21 22年10月　　　　448,000　　△7,600　　　　0 22 〔格付概況〕Ｃ　永年の業歴かおるが、市況低迷 23 　の影響により売上高は落ち込んでおり 24 25 　　　　丸々商会(株) 26 〒1222-2222・・・・市・・・・ 27 〔設　立〕昭和61年７月 28 〔営業種目〕一般貨物自動車運送業 29 〔資本金〕25,000千円　　　　　 30 〔代表者〕丸々一郎 31 〔役　員〕(代会)丸々一(取)丸々保，丸々陽 32 　　　　　子(監)丸々バツバツ 33 〔大株主〕丸々一60%,丸々保，丸々陽 34 　　　　　子 35 〔取引銀行〕四菱東京，みずみ 36 〔仕入先 37 〔販売先〕山田運送，○運輸，丸々運輸， 38 　　　　　○○流通システム 39 〔業　績〕(千円) 40 　決算期　　　　売上高　　　利　益　配当総額 41 20年５月　　　450,000　　　　　－　　　　－ 42 21年５月　　　430,000　　　　　一　　　　－ 43 22年５月　　　420,000　　　3,000　　　　－ 44 〔格付概況〕Ｃ　長引く不況による影響から取扱 45 　高の減少が続いているが、運行管理強化などに 46 　よって回復に全力を挙げてお‰あと一歩のと 47 　ころ 48 東京都(非上場) 49 2019 50 　　　　　　　　　　　　　　　29－174343－9 51 　　　　　　(株)　　　○　○ 52 53 54 55 56 57 1，25，51行は会社名 11行の大株主から24行の会社名の一つ手前までを削除 33行の大株虫から50行まで削除このようなデーターが4万行まであります。大株主から会社名の一つ手前までを一括で削除したいのですがいい方法お願いします。

syoo
お礼率44% (4/9)

その他MS Office製品
回答数4
ありがとう数1

みんなの回答 （4）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

tom04
ベストアンサー率49% (2537/5117)

2013/04/01 15:06 回答No.3

こんにちは！ VBAになってしまいますが、一例です。条件として、削除したい行のはじめのセルに「大株主」という文字が入っていて会社名セルには必ず「株」の文字が入っているとします。尚、データはA1セルからあり、途中に空白がないという前提です。画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に ↓のコードをコピー＆ペーストしてマクロを実行してみてください。（Alt＋F8キー　→　マクロ　→　マクロ実行です） Sub 行削除() 'この行から Dim i As Long, k As Long Application.ScreenUpdating = False Rows(1).Insert Columns(1).Insert Cells(1, 1) = "項目" For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row If InStr(Cells(i, 2), "大株主") > 0 Then k = i + 1 Do Until InStr(Cells(k, 2), "株") > 0 Or Cells(k, 2) = "" k = k + 1 Loop Range(Cells(i, 1), Cells(k - 1, 1)) = 1 i = k End If Next i Cells(1, 1).AutoFilter field:=1, Criteria1:="<>" i = Cells(Rows.Count, 1).End(xlUp).Row Rows(1 & ":" & i).Delete Columns(1).Delete ActiveSheet.AutoFilterMode = False Application.ScreenUpdating = True MsgBox "処理完了" End Sub 'この行まで ※　一旦マクロを実行すると元に戻せませんので、別Sheetでマクロを試してみてください。m（_ _）m

質問者

お礼 2013/04/01 16:37

tom04さんありがとうございます。素晴らしいお答え感謝します。眠れそう！(^-ω-^)Zzz..

ログインすると、全ての回答が全文表示されます。

その他の回答 (3)

noname#204879

2013/04/01 15:08 回答No.4

行間数が一定とかのルールがなさそうなので、「お願い」されても「いい方法」はありません。

ログインすると、全ての回答が全文表示されます。

FEX2053
ベストアンサー率37% (7995/21384)

2013/04/01 14:08 回答No.2

[Shift]キーを押しながらカーソルを移動すると、範囲指定ができますし、その状態で[del]キーを押すとデータが消えますが？ [Shift]キーを押しながら[PageDown][PageUp]キーを押すと、ページ単位でスクロールできますし、マウスでスクロールバーをコントロールしても、一気に数万行を選択することができますよ。 [Shift]キーを押しながら・・・ってのがキモです。

質問者