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万行まであります。

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

回答No.3

tom04 · ベストアンサー

こんにちは！
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..

回答No.4

noname#204879

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

回答No.2

FEX2053

[Shift]キーを押しながらカーソルを移動すると、
範囲指定ができますし、その状態で[del]キーを
押すとデータが消えますが？

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

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

補足

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

回答No.1

K Kazz（@JazzCorp）

〔会社名〕、テノはないワケ？？
〒の手前でよろしいんでしょうか？？

補足

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

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