{"id":6548,"date":"2026-05-06T22:34:44","date_gmt":"2026-05-06T13:34:44","guid":{"rendered":"https:\/\/route-zero.com\/recruit\/?post_type=route&p=6548"},"modified":"2026-11-06T22:36:56","modified_gmt":"2026-11-06T13:36:56","slug":"vba-range-find-lookin-lookat-not-found","status":"publish","type":"route","link":"https:\/\/route-zero.com\/recruit\/route\/6548\/","title":{"rendered":"VBA\u306eFind\u3067\u5024\u304c\u898b\u3064\u304b\u3089\u306a\u3044\u539f\u56e0\u3068\u78ba\u8a8d\u65b9\u6cd5"},"content":{"rendered":"

Excel\u306e\u30bb\u30eb\u306b\u300c\u55b6\u696d\u300d\u3068\u66f8\u3044\u3066\u3042\u308b\u306e\u306b\u3001VBA\u306e`Range.Find`\u304c\u898b\u3064\u3051\u3089\u308c\u306a\u3044\u3002\u305d\u3093\u306a\u3068\u304d\u306f\u3001\u691c\u7d22\u5bfe\u8c61\uff08LookIn\uff09<\/strong>\u3001\u4e00\u81f4\u65b9\u6cd5\uff08LookAt\uff09<\/strong>\u3001\u66f8\u5f0f\u691c\u7d22\uff08SearchFormat\uff09<\/strong>\u3092\u78ba\u304b\u3081\u307e\u3057\u3087\u3046\u3002`Find`\u306f\u4ee5\u524d\u306e\u8a2d\u5b9a\u3092\u5f15\u304d\u7d99\u3050\u3053\u3068\u304c\u3042\u308b\u305f\u3081\u3001\u6bce\u56de\u660e\u793a\u3059\u308b\u306e\u304c\u5b89\u5168\u3067\u3059\u3002<\/p>\n

\u7d50\u8ad6\uff1aFind\u306e\u691c\u7d22\u6761\u4ef6\u3092\u7701\u7565\u3057\u306a\u3044<\/h2>\n

`Range.Find`\u306f\u6307\u5b9a\u7bc4\u56f2\u304b\u3089\u5024\u3084\u6587\u5b57\u5217\u3092\u63a2\u3059Excel VBA\u306e\u30e1\u30bd\u30c3\u30c9\u3067\u3059\u3002Microsoft Learn\u306b\u3088\u308b\u3068\u3001`LookIn`\u30fb`LookAt`\u30fb`SearchOrder`\u30fb`MatchByte`\u306a\u3069\u306e\u8a2d\u5b9a\u306f\u6b21\u306e\u691c\u7d22\u3078\u4fdd\u5b58\u3055\u308c\u307e\u3059\u3002Excel\u306e\u691c\u7d22\u30c0\u30a4\u30a2\u30ed\u30b0\u3068\u3082\u8a2d\u5b9a\u3092\u5171\u6709\u3059\u308b\u305f\u3081\u3001\u30b3\u30fc\u30c9\u3092\u5909\u3048\u3066\u3044\u306a\u304f\u3066\u3082\u7d50\u679c\u304c\u5909\u308f\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n\n\n\n\n\n
\u9805\u76ee<\/th>\n\u610f\u5473<\/th>\n\u4f8b<\/th>\n<\/tr>\n<\/thead>\n
LookIn<\/td>\n\u3069\u3053\u3092\u898b\u308b\u304b<\/td>\nxlValues\uff1a\u5024\u3001xlFormulas\uff1a\u6570\u5f0f<\/td>\n<\/tr>\n
LookAt<\/td>\n\u5b8c\u5168\u4e00\u81f4\u304b\u90e8\u5206\u4e00\u81f4\u304b<\/td>\nxlWhole \/ xlPart<\/td>\n<\/tr>\n
SearchFormat<\/td>\n\u30bb\u30eb\u66f8\u5f0f\u3092\u6761\u4ef6\u306b\u3059\u308b\u304b<\/td>\nFalse\uff1a\u66f8\u5f0f\u6761\u4ef6\u3092\u4f7f\u308f\u306a\u3044<\/td>\n<\/tr>\n
MatchCase<\/td>\n\u5927\u6587\u5b57\u5c0f\u6587\u5b57\u3092\u533a\u5225\u3059\u308b\u304b<\/td>\nFalse\uff1a\u533a\u5225\u3057\u306a\u3044<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
\n

\u7528\u8a9e\u89e3\u8aac\uff1aNothing<\/strong>
VBA\u3067\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u898b\u3064\u304b\u3089\u306a\u3044\u3001\u307e\u305f\u306f\u30bb\u30c3\u30c8\u3055\u308c\u3066\u3044\u306a\u3044\u3053\u3068\u3092\u8868\u3059\u7279\u5225\u306a\u5024\u3002Find\u304c\u5931\u6557\u3057\u305f\u3068\u304d\u306b\u8fd4\u308b\u305f\u3081\u3001\u4f7f\u3046\u524d\u306b\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/p>\n<\/blockquote>\n

\n

3\u884c\u3060\u3051\u306e\u30b5\u30f3\u30d7\u30eb\u3067\u5b9f\u884c\u3059\u308b<\/h2>\n

Excel\u306e\u65b0\u3057\u3044\u30d6\u30c3\u30af\u3092\u958b\u304d\u3001\u30b7\u30fc\u30c8\u540d\u3092`Sheet1`\u306b\u3057\u3066\u3001A2\u306b\u300c\u55b6\u696d\u300d\u3001A3\u306b\u300c\u55b6\u696d\u90e8\u300d\u3001A4\u306b\u300c\u958b\u767a\u300d\u3068\u5165\u529b\u3057\u307e\u3059\u3002\u30de\u30af\u30ed\u304c\u4f7f\u3048\u308b\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u7248Excel\u3067\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3078\u6b21\u306e\u30b3\u30fc\u30c9\u3092\u8cbc\u308a\u307e\u3059\u3002\u65e2\u5b58\u306e\u91cd\u8981\u306a\u30d6\u30c3\u30af\u3067\u306f\u8a66\u3055\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002<\/p>\n

Option Explicit\r\n\r\nSub FindExactSales()\r\n    Dim ws As Worksheet\r\n    Dim found As Range\r\n    Set ws = ThisWorkbook.Worksheets("Sheet1")\r\n\r\n    Set found = ws.Range("A2:A4").Find( _\r\n        What:="\u55b6\u696d", _\r\n        After:=ws.Range("A4"), _\r\n        LookIn:=xlValues, _\r\n        LookAt:=xlWhole, _\r\n        SearchOrder:=xlByRows, _\r\n        SearchDirection:=xlNext, _\r\n        MatchCase:=False, _\r\n        MatchByte:=False, _\r\n        SearchFormat:=False)\r\n\r\n    If found Is Nothing Then\r\n        Debug.Print "\u898b\u3064\u304b\u308a\u307e\u305b\u3093"\r\n    Else\r\n        Debug.Print found.Address(False, False)\r\n    End If\r\nEnd Sub<\/code><\/pre>\n
VBA\u30a8\u30c7\u30a3\u30bf\u30fc\u306e\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\uff08Ctrl+G\uff09\u3067\u3001\u60f3\u5b9a\u51fa\u529b\u306f`A2`\u3067\u3059\u3002`LookAt:=xlWhole`\u306a\u306e\u3067\u300c\u55b6\u696d\u90e8\u300d\u3068\u306f\u4e00\u81f4\u3055\u305b\u307e\u305b\u3093\u3002`After`\u306f\u691c\u7d22\u958b\u59cb\u4f4d\u7f6e\u306e\u76f4\u524d\u306b\u5f53\u305f\u308b\u30bb\u30eb\u3067\u3001\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u305d\u306e\u3082\u306e\u306f\u6298\u308a\u8fd4\u3057\u305f\u3042\u3068\u306b\u691c\u7d22\u3055\u308c\u307e\u3059\u3002<\/p>\n
\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u7248Excel\u3084\u30de\u30af\u30ed\u306e\u5b9f\u884c\u6a29\u9650\u304c\u306a\u3044\u74b0\u5883\u3067\u306f\u5b9f\u884c\u3067\u304d\u307e\u305b\u3093\u3002\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u8b66\u544a\u3092\u56de\u907f\u3059\u308b\u305f\u3081\u306e\u8a2d\u5b9a\u5909\u66f4\u306f\u305b\u305a\u3001\u7d44\u7e54\u306e\u904b\u7528\u30eb\u30fc\u30eb\u306b\u5f93\u3063\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
\n
\u5b8c\u5168\u4e00\u81f4\u3068\u90e8\u5206\u4e00\u81f4\u306e\u9055\u3044\u3092\u78ba\u8a8d<\/h2>\n
\u540c\u3058\u7bc4\u56f2\u3067`LookAt:=xlPart`\u3078\u5909\u66f4\u3059\u308c\u3070\u3001\u300c\u55b6\u696d\u300d\u3068\u300c\u55b6\u696d\u90e8\u300d\u304c\u4e21\u65b9\u5019\u88dc\u306b\u306a\u308a\u307e\u3059\u3002\u305f\u3060\u3057`Find`\u306f\u6700\u521d\u306b\u898b\u3064\u3051\u305f1\u30bb\u30eb\u3060\u3051\u3092\u8fd4\u3057\u307e\u3059\u3002\u3059\u3079\u3066\u306e\u7d50\u679c\u304c\u5fc5\u8981\u306a\u3089`FindNext`\u306a\u3069\u3067\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002<\/p>\n
Set found = ws.Range("A2:A4").Find( _\r\n    What:="\u55b6\u696d", LookIn:=xlValues, _\r\n    LookAt:=xlPart, SearchOrder:=xlByRows, _\r\n    SearchDirection:=xlNext, MatchCase:=False, _\r\n    MatchByte:=False, SearchFormat:=False)<\/code><\/pre>\n
`xlValues`\u306f\u30bb\u30eb\u306b\u8a55\u4fa1\u3055\u308c\u305f\u5024\u3092\u5bfe\u8c61\u306b\u3057\u307e\u3059\u3002\u4e00\u65b9\u3001\u6570\u5f0f\u305d\u306e\u3082\u306e\u306e\u6587\u5b57\u5217\u3092\u8abf\u3079\u305f\u3044\u5834\u5408\u306f`xlFormulas`\u3092\u9078\u3073\u307e\u3059\u3002\u300c\u753b\u9762\u3067\u5024\u304c\u898b\u3048\u308b\u306e\u306b\u4e00\u81f4\u3057\u306a\u3044\u300d\u5834\u5408\u3001\u3069\u3061\u3089\u3092\u63a2\u3057\u3066\u3044\u308b\u304b\u304c\u91cd\u8981\u3067\u3059\u3002<\/p>\n
\n
Nothing\u3092\u78ba\u8a8d\u3057\u3066\u30a8\u30e9\u30fc\u3092\u9632\u3050<\/h2>\n
\u898b\u3064\u304b\u3089\u306a\u304b\u3063\u305f\u3068\u304d\u3001`found.Address`\u306e\u3088\u3046\u306b\u76f4\u63a5\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u8aad\u3082\u3046\u3068\u3059\u308b\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\u5148\u306b`Is Nothing`\u3067\u5224\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u6b21\u306f\u691c\u7d22\u6587\u5b57\u3092\u300c\u5b58\u5728\u3057\u306a\u3044\u8a9e\u53e5\u300d\u306b\u5909\u3048\u305f\u4f8b\u3067\u3059\u3002<\/p>\n
Set found = ws.Range("A2:A4").Find( _\r\n    What:="\u7d4c\u7406", LookIn:=xlValues, _\r\n    LookAt:=xlWhole, SearchOrder:=xlByRows, _\r\n    SearchDirection:=xlNext, MatchCase:=False, _\r\n    MatchByte:=False, SearchFormat:=False)\r\n\r\nIf found Is Nothing Then\r\n    Debug.Print "\u5bfe\u8c61\u306a\u3057"\r\nElse\r\n    Debug.Print found.Address(False, False)\r\nEnd If<\/code><\/pre>\n
\u3053\u306e\u4f8b\u306e\u60f3\u5b9a\u51fa\u529b\u306f`\u5bfe\u8c61\u306a\u3057`\u3067\u3059\u3002\u30bb\u30eb\u304c`Nothing`\u306b\u306a\u3063\u305f\u3042\u3068\u3067`.Address`\u3078\u9032\u3080\u30b3\u30fc\u30c9\u3092\u66f8\u304b\u306a\u3044\u3053\u3068\u304c\u30dd\u30a4\u30f3\u30c8\u3067\u3059\u3002<\/p>\n
\u307e\u3060\u898b\u3064\u304b\u3089\u306a\u3044\u5834\u5408\u306e\u30c1\u30a7\u30c3\u30af\u8868<\/h2>\n\n\n\n\n\n\n\n\n\n\n
\u78ba\u8a8d\u70b9<\/th>\n\u8d77\u3053\u308a\u3084\u3059\u3044\u554f\u984c<\/th>\n\u5bfe\u51e6<\/th>\n<\/tr>\n<\/thead>\n
\u691c\u7d22\u7bc4\u56f2<\/td>\nA2:A4\u306e\u5916\u3092\u63a2\u3057\u3066\u3044\u308b<\/td>\n\u5bfe\u8c61\u7bc4\u56f2\u3068Sheet\u540d\u3092\u78ba\u8a8d<\/td>\n<\/tr>\n
LookIn<\/td>\n\u6570\u5f0f\u3092\u63a2\u3059\u3064\u3082\u308a\u304c\u5024\u3092\u6307\u5b9a<\/td>\n\u76ee\u7684\u306b\u5fdc\u3058xlValues\/xlFormulas\u3092\u6307\u5b9a<\/td>\n<\/tr>\n
LookAt<\/td>\n\u90e8\u5206\u4e00\u81f4\u304c\u5fc5\u8981\u306a\u306e\u306bxlWhole<\/td>\nxlPart\u3078\u5909\u66f4<\/td>\n<\/tr>\n
SearchFormat<\/td>\n\u4ee5\u524d\u306e\u66f8\u5f0f\u6761\u4ef6\u304c\u6b8b\u308b<\/td>\nFalse\u3092\u660e\u793a\u3057\u66f8\u5f0f\u691c\u7d22\u3092\u7121\u52b9\u5316<\/td>\n<\/tr>\n
\u30c7\u30fc\u30bf<\/td>\n\u4f59\u8a08\u306a\u7a7a\u767d\u3084\u6539\u884c\u304c\u542b\u307e\u308c\u308b<\/td>\n\u30bb\u30eb\u306e\u6587\u5b57\u5217\u3092\u78ba\u8a8d<\/td>\n<\/tr>\n
\u5927\u6587\u5b57\u5c0f\u6587\u5b57<\/td>\n\u60f3\u5b9a\u5916\u306b\u533a\u5225\u3055\u308c\u308b<\/td>\nMatchCase\u3092\u660e\u793a<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
`SearchFormat:=False`\u3092\u6307\u5b9a\u3057\u3066\u3082\u300c\u6587\u5b57\u5217\u304c\u7a7a\u767d\u3092\u542b\u3080\u300d\u554f\u984c\u306f\u76f4\u308a\u307e\u305b\u3093\u3002\u307e\u305a\u30bb\u30eb\u306e\u5185\u5bb9\u3068\u691c\u7d22\u6761\u4ef6\u30921\u3064\u305a\u3064\u63c3\u3048\u3001\u6761\u4ef6\u3092\u5909\u3048\u305f\u3089\u518d\u5b9f\u884c\u3057\u3066\u5dee\u3092\u6bd4\u3079\u307e\u3057\u3087\u3046\u3002<\/p>\n
\u8907\u6570\u30d2\u30c3\u30c8\u306eFindNext\u3067\u306f\u6298\u308a\u8fd4\u3057\u306b\u6ce8\u610f<\/h2>\n
`Find`\u306f\u691c\u7d22\u7bc4\u56f2\u306e\u672b\u5c3e\u3067\u5148\u982d\u306b\u623b\u308b\u305f\u3081\u3001`FindNext`\u306e\u7e70\u308a\u8fd4\u3057\u3067\u306f\u6700\u521d\u306e\u30bb\u30eb\u306e\u30a2\u30c9\u30ec\u30b9\u3092\u899a\u3048\u3066\u505c\u6b62\u3057\u307e\u3059\u3002\u6b21\u306f\u5148\u307b\u3069\u306e3\u884c\u3092\u63a2\u3057\u30012\u4ef6\u306e\u30bb\u30eb\u756a\u5730\u3092\u8868\u793a\u3059\u308b\u4f8b\u3067\u3059\u3002<\/p>\n
Dim firstAddress As String\r\nSet found = ws.Range("A2:A4").Find( _\r\n    What:="\u55b6\u696d", LookIn:=xlValues, LookAt:=xlPart, _\r\n    SearchOrder:=xlByRows, SearchDirection:=xlNext, _\r\n    MatchCase:=False, MatchByte:=False, SearchFormat:=False)\r\nIf Not found Is Nothing Then\r\n    firstAddress = found.Address\r\n    Do\r\n        Debug.Print found.Address(False, False)\r\n        Set found = ws.Range("A2:A4").FindNext(found)\r\n        If found Is Nothing Then Exit Do\r\n    Loop While found.Address <> firstAddress\r\nEnd If<\/code><\/pre>\n
\u60f3\u5b9a\u3055\u308c\u308b2\u3064\u306e\u30bb\u30eb\u306fA2\u3068A3\u3067\u3059\u3002`FindNext`\u3067\u5148\u982d\u306b\u623b\u308b\u3068\u3053\u308d\u307e\u3067\u63a2\u3057\u305f\u3089\u6b62\u3081\u307e\u3059\u3002\u9014\u4e2d\u3067\u898b\u3064\u304b\u3089\u305a`Nothing`\u306b\u306a\u3063\u305f\u5834\u5408\u3082\u3001\u5148\u306b\u9000\u51fa\u3059\u308b\u3088\u3046\u306b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n
\u95a2\u9023\u3059\u308b\u5b66\u7fd2\u3068\u6b21\u306e\u4e00\u624b<\/h2>\n
VBA\u306b\u6163\u308c\u3066\u3044\u306a\u3044\u5834\u5408\u306f\u3001\u30bb\u30eb\u3092\u6307\u5b9a\u3059\u308b`Range`\u3068`Cells`\u306e\u9055\u3044\u3092\u5fa9\u7fd2\u3059\u308b\u3068\u3001\u691c\u7d22\u7bc4\u56f2\u306e\u898b\u843d\u3068\u3057\u3092\u6e1b\u3089\u305b\u307e\u3059\u3002\u4eca\u56de\u306e\u8a18\u4e8b\u306fFind\u306e\u5f15\u6570\u3092\u56fa\u5b9a\u3057\u3001\u898b\u3064\u304b\u3089\u306a\u3044\u554f\u984c\u3092\u5207\u308a\u5206\u3051\u308b\u3053\u3068<\/strong>\u306b\u7d5e\u308a\u307e\u3057\u305f\u3002<\/p>\n
\uff08VBA\u3067\u30bb\u30eb\u3092\u6307\u5b9a\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u306f\u300eVBA Range\u3068Cells\u306e\u4f7f\u3044\u5206\u3051\u5224\u65ad\u30de\u30c3\u30d7<\/a>\u300f\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\uff09<\/p>\n
\uff08VBA\u306e\u5b66\u7fd2\u80cc\u666f\u306b\u3064\u3044\u3066\u306f\u300eSES\u73fe\u5834\u3067VBA\u3067\u304d\u307e\u3059\u304b\uff1f\u672a\u7d4c\u9a13\u5411\u3051Excel\u30de\u30af\u30ed\u5b9f\u8df5\u8853<\/a>\u300f\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\uff09<\/p>\n
SearchFormat\u306fTrue\u306b\u3059\u308c\u3070\u898b\u3064\u304b\u308a\u3084\u3059\u304f\u306a\u308a\u307e\u3059\u304b\uff1f<\/h3>\n
\u3044\u3044\u3048\u3002True\u306f\u30bb\u30eb\u66f8\u5f0f\u3092\u691c\u7d22\u6761\u4ef6\u306b\u542b\u3081\u308b\u7528\u9014\u3067\u3059\u3002\u901a\u5e38\u306e\u5024\u691c\u7d22\u3067\u306fFalse\u3092\u660e\u793a\u3059\u308b\u65b9\u304c\u4e88\u671f\u3057\u306a\u3044\u7d5e\u308a\u8fbc\u307f\u3092\u907f\u3051\u3089\u308c\u307e\u3059\u3002<\/p>\n
\u691c\u7d22\u5bfe\u8c61\u304c\u8907\u6570\u3042\u308b\u5834\u5408\u3001Find\u3060\u3051\u3067\u5168\u90e8\u8fd4\u308a\u307e\u3059\u304b\uff1f<\/h3>\n
Find\u304c\u8fd4\u3059\u306e\u306f\u6700\u521d\u306e\u4e00\u81f4\u30bb\u30eb\u3067\u3059\u3002FindNext\u3092\u4f7f\u3044\u3001\u6700\u521d\u306e\u30bb\u30eb\u306b\u623b\u3063\u305f\u3089\u7d42\u4e86\u3059\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n
\u307e\u305a3\u884c\u306e\u8868\u3067xlWhole\u3068xlPart\u3092\u5207\u308a\u66ff\u3048\u3001\u7d50\u679c\u304c\u5909\u308f\u308b\u3053\u3068\u3092\u81ea\u5206\u306eExcel\u74b0\u5883\u3067\u78ba\u8a8d\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"featured_media":6549,"template":"","_links":{"self":[{"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/route\/6548"}],"collection":[{"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/route"}],"about":[{"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/types\/route"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/media\/6549"}],"wp:attachment":[{"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/media?parent=6548"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}