Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30 / 76616 ←次へ | 前へ→

【82256】シートの中から必要なセルを複数取り出し、別シートに張り付けて並び替える
質問  かずこ  - 24/1/22(月) 17:43 -

引用なし
パスワード
   vba初心者です。よろしくお願いいたします。

下記は質問の為に作成した例になります。

-----------------------------------------
[Sheet1]

   A列

1行目 918-01-1

2行目 MJIxPUS/
   RDXU2126441
   20   3.6
   TNK    (E)


3行目

4行目 A14-03-2

5行目 MJIxPUS/

6行目 DKOU2405691

7行目 20   3.7

8行目 TNK    (E)

9行目 3/1123

10行目

11行目

12行目 D13-03-2

13行目

-----------------------------------------

※1行目の 918-01-1 や12行目の D13-03-2 を下記便宜上「レーン番号」と書きます

※前段階でpdfデータをエクセルデータに変換しているため、同じデータでもセル数が異なっています。←ここがとても厄介です

※12行目のような下のセルが空白のレーン番号は必要ありません。※そのレーン番号のあるセルは削除していただいても構いません。


このようにデータがシート上にちりばめられており、上記の例で必要なデータは、1行目から2行目と4行目から9行目です。
(データはシート上にたくさんあり、4行目から9行目のようなパターンだとセル数が4〜5と変動します)

ワイルドカード( "[ABC]##-##-#" と "###-##-#")などで頭のセルを見つけ、その下のセルをどこまで参照するかを条件分岐したいのですが、いいアイデアが思いつきません。

レーン番号があるセルから1つずつ下に参照していき、次に空白セルか別のレーン番号があるセルまでを参照するという条件分岐は作成可能でしょうか。

また、参照したセルを別シートに張り付けて順番に並べ替えるコードも教えていただけないでしょうか。


複雑になるかと思いますのでヒントだけでもいただけたら助かります。よろしくお願いいたします。
48 hits

【82256】シートの中から必要なセルを複数取り出し、別シートに張り付けて並び替える かずこ 24/1/22(月) 17:43 質問[未読]
【82258】Re:シートの中から必要なセルを複数取り出... マナ 24/1/22(月) 19:26 発言[未読]
【82259】Re:シートの中から必要なセルを複数取り出... かずこ 24/1/22(月) 22:03 質問[未読]
【82260】Re:シートの中から必要なセルを複数取り出... マナ 24/1/22(月) 22:28 発言[未読]
【82261】Re:シートの中から必要なセルを複数取り出... かずこ 24/1/22(月) 23:13 質問[未読]
【82262】Re:シートの中から必要なセルを複数取り出... マナ 24/1/22(月) 23:40 発言[未読]
【82282】Re:シートの中から必要なセルを複数取り出... かずこ 24/5/1(水) 14:38 質問[未読]

30 / 76616 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free