Sub macro3() Dim myRange As Range Dim myObj As Range Dim keyWord As String Set myRange = Range("A1:A12") keyWord = Range("C3") Set myObj = myRange.Find(keyWord, LookAt:=xlWhole) If myObj Is Nothing Then MsgBox "'" & keyWord & "'はありませ…

Sub 一致検索() Dim i As Long '店舗一覧の行数のカウントアップ用 Dim j As Long '転記先の行数のカウントアップ用 Dim k As Long Dim rw As Long '最終行取得用 Sheets("店舗一覧").Activate rw = Cells(Rows.Count, 1).End(xlUp).Row Sheets("店舗ID").Ac…