VBA勉強中の者ですが、今悩んでいることがあります

質問

あるExcelの表データをHTMLファイルとして出力するやり方を試しています。
A列には単語が記載されており、B列には説明文が記載されています。B列の説明文の中にA列の単語があった場合、hrefでリンク設定にしたいと思っているのですが、考え方としてA列、B列を配列（配列A、配列B）でそれぞれ取得し、配列Aに格納されている要素をfor eachステートメントで一つつ一つ取得し、配列Bの中身を検索し、ヒットしたら、Hrefを設定する。
というやり方で問題ないでしょうか。
自分の頭の中でプログラミングが出来ているのか不安なので質問させていただきました。

間違っているなど、もっとこうしたほうが良いというのがありましたら、ご指摘お願いします。

回答No.3

kmetu · ベストアンサー

No2です

私の回答は勘違いみたいですね。同じ行のA列とB列を検索対称にするのかと思ってましたが、B列１行に対してA列全ての行の単語を検索して、あるかないかの判定をB列分したいわけですね。

行数にもよると思いますが、かなりの行数があるのでしたら、配列に入れたほうが処理速度が速いと思いますが、それほど行数が無いのでしたら、配列に入れる処理と直接セルを検索するのとではさほど差が出ないと思います。

感じとしては以下のような感じでお考えなのですよね(以下の例はセルを直接検索の例ですけど)

With Sheets("Sheet1")
For i = 1 To .Range("B" & Rows.Count).End(xlUp).Row
For Each c In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
If InStr(Range("B" & i).Value, c.Value) Then
'Hrefを設定する。
End If
Next
Next i
End With

お礼

ありがとうございました。
求めていたのはこれです。行数が1000行近くあるので配列に入れたほうが処理速度は速いですね。勉強になりました。

回答No.4

kmetu

No3の補足です

単語が見つかったらそれ以上探さなくていいわけでExit Forが抜けてました。

If InStr(Range("B" & i).Value, c.Value) Then
'Hrefを設定する。
Exit For
End If

回答No.2

kmetu

配列に入れなくても直接Rangeでセルを指定してInStrで

For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
If InStr(Range("B" & c.Row).Value, c.Value) Then
'Hrefを設定する。
End If
Next

こんな感じでいいのではないですか。

回答No.1

bin-chan

EXCELの機能の、「Webページとして保存」じゃダメ？