質問:特定文字列から空白行までの抽出
質問:特定文字列から空白行までの抽出
お世話になります、ネットで公開されているVBAを修正して何とかなっているVBA初級者です。
毎月excelで出力されたファイルを元に関数で整形したと思っていますが、”北棟2”の開始
するセル位置は解っているのでそれを基準に利用するのは簡単ですが、7777村上まで(空
白があるまで)を抜き出して"sheet_work"もしくは"北棟2"とういうsheetのB8セルに貼り
付けたいと考えています。
北棟2だけではなく、空白に挟まれた行は毎月変動するために関数でのセル指定が役に立ちま
せん。この場合、北棟2、南棟1、西棟2、東棟1、東棟3といた文字列の次の行のA,B,C列
から空白が発生する行までを整形しやすいsheetか文字列通りのsheet名のB8セルに貼り付ける
方法が御座いましたらご教授お願いいたします。関数だけで力業で可能でしたらそちらもお教
えお願いします。
以下が出力されますが、空白から空白までは一定では無く、増減します。
小計の行は不要です。
A B C
5 xxxxxx名 日付
6
7 北棟2
8 1111 鈴木 5
9 2222 武田 5
10 11200 山田 5
11 4444 高橋 4
12 5555 佐藤 5
13 6666 小林 4
14 7777 村上 0
15
16 小計 28
17
18 南棟1
19 1001 中村 4
20 1002 伊藤 5
21 1003 吉田 4
22 20110 佐々木 5
23 1005 木村 3
24 1006 渡辺 0
25 1007 田中 4
26
27 小計 25
28
29 西棟2
30 10020 森 2
31 2010 岡田 1
32 2033 池田 0
33 2058 井上 5
34
35 小計 8
36
37 東棟1
38 7854 石田 4
45 東棟3
46 4471 石岡 2