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　決算期　　　　売上高　　　利　益　配当総額
1920年10月　　　470.200　　　△182　　　　－
2021年10月　　　　489,000　　　△200　　　　－
2122年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　決算期　　　　売上高　　　利　益　配当総額
4120年５月　　　450,000　　　　　－　　　　－
4221年５月　　　430,000　　　　　一　　　　－
4322年５月　　　420,000　　　3,000　　　　－
44〔格付概況〕Ｃ　長引く不況による影響から取扱
45　高の減少が続いているが、運行管理強化などに
46　よって回復に全力を挙げてお‰あと一歩のと
47　ころ
48東京都(非上場)
492019
50　　　　　　　　　　　　　　　29－174343－9
51　　　　　　(株)　　　○　○
52
53
54
55
56
57




1，25，51行は会社名

11行の大株主から24行の会社名の一つ手前までを削除
33行の大株虫から50行まで削除

このようなデーターが4万行まであります。

大株主から会社名の一つ手前までを一括で削除したいのですが
いい方法お願いします。

No.1 回答者： JazzCorp 回答日時： 2013/04/01 14:08

〔会社名〕、テノはないワケ？？

〒の手前でよろしいんでしょうか？？

この回答への補足

〔会社名〕がないです。どこかの列に入力する作業も先にしなくては・(*´∀｀)

〒の手前でよろしいんでしょうか？？　それを前提に考えています。

補足日時：2013/04/01 14:32

No.2 回答者： FEX2053 回答日時： 2013/04/01 14:08

[Shift]キーを押しながらカーソルを移動すると、

範囲指定ができますし、その状態で[del]キーを
押すとデータが消えますが？

[Shift]キーを押しながら[PageDown][PageUp]キー
を押すと、ページ単位でスクロールできますし、
マウスでスクロールバーをコントロールしても、
一気に数万行を選択することができますよ。

[Shift]キーを押しながら・・・ってのがキモです。

この回答への補足

削除する、行数がランダム（バラバラです）。

補足日時：2013/04/01 14:37

No.3 ベストアンサー 回答者： tom04 回答日時： 2013/04/01 15:06

こんにちは！

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

この回答へのお礼

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

お礼日時：2013/04/01 16:37

No.4 回答者： mike_g 回答日時： 2013/04/01 15:08

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