Excel VBAで最終行の文字列を消したい

質問

Yahoo Financeのダウ工業株30種平均のヒストリカルデータのダウンロードマクロを作成しています。
http://finance.yahoo.com/q/hp?s=^DJI
Yahooファイナンス(Japan)にて日経平均のマクロは出来ているのでほとんど出来ており1ページ分はダウンロードできていますが、最終行(Excelに取り込んだときA列の一番下の文字列をマクロで削除したい。

Date Open High Low Close Volume Adj Close*
11-Jul-11 12,655.77 12,655.77 12,443.40 12,505.76 3,879,130,000 12,505.76
8-Jul-11 12,717.90 12,717.90 12,541.33 12,657.20 3,594,360,000 12,657.20
: : : : : : :
: : : : : : :
* Close price adjusted for dividends and splits.　←これを削除したい

以下のようなマクロを追加しているのですが、
:
Dim Lastrow As Variant
Dim Mojiretsu As String
　　　　:
'最終セルの行を取得
Mojiretsu = "* Close price adjusted for dividends and splits."
Worksheets("Sheet2").Activate
Lastrow = ActiveSheet.Range("$A$1").End(xlDown).Row
If Rows(Lastrow).String = Mojiretsu Then
ActiveSheet.Rows(Lastrow).Delete
End If

どうもうまく動きません。

どなたか、アドバイスよろしくお願いいたします。

回答No.2

mu2011 · ベストアンサー

ご例示のコードを変更してみました。

Mojiretsu = "* Close price adjusted for dividends and splits."
With Worksheets("sheet2")
lastrow = .Range("A1").End(xlDown).Row
If .Range("A" & lastrow).Value = Mojiretsu Then
.Rows(lastrow).Delete
End If
End With

一般的に最終行は、途中に空白行がある場合を想定でシート最終行から上方向に求めるのが定石です。
Range("A65536").End(xlup).Row、又はCells(Rows.Count,"A").END(Xlup).Row

補足

一応、以下のコードで解決いたしました。

Worksheets("Sheet2").Activate
Lastrow = ActiveSheet.Range("$A$1").End(xlDown).Row
ActiveSheet.Rows(Lastrow).Delete

"* Close price adjusted for dividends and splits."の文字列に関しては、ページをめくるごとに最後の一行に挿入され、Excelに取り込むとA列の一番最後(66～68行目)に必ず挿入されることがわかりました。
ですので、上記コードの様に、A列の最後の行を無条件に消すことにより問題ないことを確認しました。

keithinさん、mu2011さんご回答ありがとうございました。
回答例のコードは、VBA初心者の私には心強いです。

どうもありがとうございました。

回答No.1

keithin

方法１：
range("A65536").end(xlup).entirerow.delete

＃ただし，あなたのマクロが当該のページのどこまでのデータをどんな具合に取り込んでいるのか不明なので，これでもダメかもしれません。

＃＃今のアナタのマクロで単に「だめでした」じゃなく，アナタのマクロのLastRowが具体的に何行目を取得しているのか事実を確認してみる（こういう作業を「デバッグ」といいます）と，どこで何を失敗しているのか（＝具体的にどう直せば良いのか）もっとはっきり調べが付きます。ご自分で試してみてください。

方法２：
dim h as range
set h = cells.find(what:="Close price adjusted for dividends and splits", lookin:=xlvalues, lookat:=xlpart)
if not h is nothing then
h.entirerow.delete
end if