質問: 入力行 + 1 end if next 検索行 end sub
回答: やりたいのはこういう事でしょうか 修正前 if worksheets("sheet2").columns("a").countif(検索値) <> 0 then 答 = 検索値 ↓ 修正後 if worksheetfunction.countif(worksheets("sheet2").columns("a"), 検査値) <> 0 then 答 = 検査値 ・変数名が「検索値」「検査値」で間違っています。 ・vba内でワークシート関数を使用する場合はworksheetfunctionを使用します。