Sub TableValueSample()
dim aList as ListObject
Set aList = Range("支店一覧").ListObject
Dim i as Long
For i To aList.ListColumns("支店名").DatabodyRange.Count
Debug.print aList.ListColumns("支店名").DatabodyRange(i)
Next
End sub
Dim aList as variant
aList = Activesheet.ListObjects("一覧").DatabodyRange
For i = 1 to Ubound(aList)
If instr(aList(i,1),"○○") then
aList(i,2).value = "該当"
Else
aList(i,2).value = "該当なし"
end if
Next