質問: sh1.cells(5, 3).value msgbox "修正できました。" end sub よろしくお願い致します。
回答: セルの関数の結果が取得できていないようですね。 n = activecell.formular1c1 = "=match(rc[-1],一覧!c[-5],0)" cnt1 = n のところを activecell.formular1c1 = "=match(rc[-1],一覧!c[-5],0)" cnt1 = activecell.value にしてみるとどうでしょうか?