エクセルマクロで変数の受け渡しが上手くいきません。セルの結合と関係あるのでしょうか？

質問

エクセルマクロで『型番』と入力されたセルを見つけ、
そのセルの列番号をkatabanretuに代入したいのですが、
kataban.Column=4　なのに
katabanretu=2　となってしまいます。
『型番』と入力されたセルは結合されていて
Ｄ１：Ｅ１です。
マクロは初心者で、記録マクロやネットを見ながらいじれる程度なので
わかりません。
どうなっているのでしょうか？

Set kataban = ActiveSheet.Cells.Find(What:="型番")
If kataban Is Nothing Then
MsgBox "[型番]列がありません！"
Exit Sub
Else
katabanretu = kataban.Column
End If

回答No.2

merlionXX · ベストアンサー

D1：E1を結合し、型番と入力した上で以下を実行しました。

Sub test01()
Dim kataban As Range
Dim katabanretu As Long
Set kataban = ActiveSheet.Cells.Find(What:="型番")
If kataban Is Nothing Then
MsgBox "[型番]列がありません！"
Exit Sub
Else
katabanretu = kataban.Column
MsgBox katabanretu
End If
End Sub

katabanretuは４です。

掲示されたコードより下のほうに、katabanretuに何かをさらに代入してたり、あるいは２列目に型番という文字があったりしませんか？

お礼

あります！下の方に・・・。
列を挿入するようにしてあるので
増えた分が6になっていたのですね！
解決しました。ありがとうございました。

回答No.1

higekuman

> katabanretu=2　となってしまいます。

それは、どのようにして確認しましたか？

B2セルにも「型番」という文字が入っていたりはしませんよね？

私の環境では、katabanretuは4になりますよ。

お礼

VB画面でカーソルを合わせるとkatabanretu=2などと出てきます。
もう一つ同じような式があるのですが、そこも4=6になってしまって。
結果、列がずれてしまいます。