空白行をまたいで、値がある限り表を作りたい

Question

Googleトレンドデータをexcelに抽出し、
自動的にトレンド推移を追うことのできる仕組みを作っています。

データの抽出自体はできたのですが、
抽出されたデータをマクロで半自動的に加工できればと思います。

データは下記のように、空白行をまたいで、抽出されます。
行数は毎回バラバラですが、カテゴリごとに空白行が挿入されます。

そこで、値がある限り、その値の範囲を元にした表を作りたいのですが、
どのようにVBAを組めばいいかがわかりません。。
*作成したい表の種類は、集合縦棒(Y軸: 値 / X軸: 文言)。

どなたかご教示いただけると助かります。
よろしくお願いします。

■抽出データ例
下記例では、カテゴリが3つ存在します。

---

セルA(文言) セルB(値)

popular anime 100
popular animes 17
most popular anime 9
popular manga 9
popular anime characters 8
popular anime shows 6

google.com 12400
anime tosho 10650
pokemon characters 250
kakegurui characters 100
my neighbor totoro 100
popular animes 90

read manga 100
read manga online 33
manga to read 18
read manga free 15
read one piece 15
read manga free online 7
where to read manga 5

---

Comments

[sinzou]

データの抽出処理の時に、空白なら書き込まない（書込み行のカウントをアップさせないとか）で連続したデーターにす。
ことはできませんか。

Answer 1

データの抽出自体はできたのですが、
抽出されたデータをマクロで半自動的に加工できればと思います。

どのようにコードを書かれたのでしょう？
そのコードがあれば、回答側も同じデータが得られて、
同じ状況で話ができると思いませんか？

データは下記のように、空白行をまたいで、抽出されます。

困っていることは、
空白を含むシート上の使っているセル範囲の取得ですか？

ならば、
ワークシート群の左から1番目のシートの使っているセル範囲
Worksheets(1).UsedRange
と表現します。
これに対して何らかの操作の命令をすればよいかと思います。

*作成したい表の種類は、集合縦棒(Y軸: 値 / X軸: 文言)。

表と言われてますが、グラフのことでしょうか？
どういう結果が欲しいかがわかりません。

どのようにVBAを組めばいいかがわかりません。。

グラフならばグラフの挿入の操作を、マクロの記録をしてみて
さまざまなプロパティーが、どの設定なのか、
ヘルプやネットで調べて格闘していくことになります。
この辺は、知っている、とか覚える、という次元の話しではなく
調べることができるようになることが肝要です。

このような話で分かりますでしょうか？
とりあえず、欲しい結果と、
書きかけでもいいのでどこまでできたかを
説明（提示）されることをお勧めします。

Comments

[onag]

ご指摘ありがとうございます。
>困っていることは、空白を含むシート上の使っているセル範囲の取得ですか？
仰るとおりです。グラフ作成自体は、マクロの自動記録である程度仕組は把握できるのですが、ifで「空白を含むシート上の使っているセル範囲の取得」をする部分で壁に突き当たりました。

ヘルプやネットでもう少しあたりをつけ、再びこちらにお世話になるかもしれません。
その際はよろしくお願いします。