|
こんにちは。かみちゃん です。
>色々トライするも、コンパイルの時点ですでにエラーです。
Replace(Cells(intYLine,intXLine),"県","")
のコードでエラーになるのですか?
Cells(intYLine, intXLine).Value = Replace(Cells(intYLine, intXLine).Value, "県", "")
とすればいいのではないでしょうか?
> intYLine = Worksheets("data").Cells.Find("県名").Row
> intXLine = Worksheets("data").Cells.Find("県名").Column
の値が正しく取得できているのかは、疑問があります。
シートレイアウトがよくわかりませんので、
「県名」という文字列を含まれているセルを検索しているのですが、それでいいのでしょうか?
県名がB列と決まっているならば、あまり、意味がないように思います。
また、Excelのバージョンにもよりますが、
Dim intYLine As Integer
Dim intXLine As Integer
のデータ型は、特に行番号の場合は、Longにしておいたほうがいいです。
32767行を超えると、オーバーフローのエラーになります。
そんなにたくさんの行は、絶対使わないから、Integerをあえて、使っているのであれば、
お任せしますが・・・
|
|