{"id":6423,"date":"2026-06-08T14:37:41","date_gmt":"2026-06-08T05:37:41","guid":{"rendered":"https:\/\/route-zero.com\/recruit\/?post_type=route&p=6423"},"modified":"2026-10-08T14:37:53","modified_gmt":"2026-10-08T05:37:53","slug":"vba-redim-preserve-dynamic-array","status":"publish","type":"route","link":"https:\/\/route-zero.com\/recruit\/route\/6423\/","title":{"rendered":"VBA\u306eReDim Preserve\u3068\u306f\uff1f\u914d\u5217\u3092\u6d88\u3055\u305a\u306b\u30b5\u30a4\u30ba\u5909\u66f4\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"

`ReDim Preserve`\u306f\u3001VBA\u306e\u52d5\u7684\u914d\u5217\u3092\u30b5\u30a4\u30ba\u5909\u66f4\u3057\u306a\u304c\u3089\u3001\u3059\u3067\u306b\u5165\u3063\u3066\u3044\u308b\u5024\u3092\u6b8b\u3057\u305f\u3044\u3068\u304d\u306b\u4f7f\u3044\u307e\u3059\u3002\u901a\u5e38\u306e`ReDim`\u3060\u3051\u3067\u518d\u5272\u308a\u5f53\u3066\u3059\u308b\u3068\u65e2\u5b58\u306e\u8981\u7d20\u306f\u521d\u671f\u5316\u3055\u308c\u307e\u3059\u3002\u307e\u305a\u899a\u3048\u3066\u304a\u304d\u305f\u3044\u5236\u9650\u306f\u3001`Preserve`\u3092\u4ed8\u3051\u305f\u5834\u5408\u306b\u5909\u66f4\u3067\u304d\u308b\u306e\u306f**\u6700\u5f8c\u306e\u6b21\u5143\u306e\u4e0a\u9650\u3060\u3051**\u3068\u3044\u3046\u70b9\u3067\u3059\u30022\u6b21\u5143\u4ee5\u4e0a\u306e\u914d\u5217\u3067\u306f\u3001\u5148\u982d\u5074\u306e\u6b21\u5143\u3092\u305d\u306e\u307e\u307e\u62e1\u5f35\u3059\u308b\u3053\u3068\u306f\u3067\u304d\u307e\u305b\u3093\u3002<\/p>\n

\u307e\u305a\u7d50\u8ad6\uff1aReDim\u3068ReDim Preserve\u306f\u300c\u5024\u3092\u6b8b\u3059\u304b\u300d\u304c\u9055\u3046<\/h2>\n\n\n\n\n\n\n
\u66f8\u304d\u65b9<\/th>\n\u65e2\u5b58\u306e\u5024<\/th>\n\u30b5\u30a4\u30ba\u5909\u66f4<\/th>\n\u4e3b\u306a\u7528\u9014<\/th>\n<\/tr>\n<\/thead>\n
ReDim arr(…) <\/td>\n\u4fdd\u6301\u3057\u306a\u3044<\/td>\n\u52d5\u7684\u914d\u5217\u3092\u518d\u5272\u308a\u5f53\u3066\u3059\u308b<\/td>\n\u6700\u521d\u306e\u30b5\u30a4\u30ba\u6c7a\u5b9a\u30fb\u5024\u3092\u6368\u3066\u3066\u4f5c\u308a\u76f4\u3059<\/td>\n<\/tr>\n
ReDim Preserve arr(…) <\/td>\n\u4fdd\u6301\u3059\u308b<\/td>\n\u6700\u5f8c\u306e\u6b21\u5143\u306e\u4e0a\u9650\u306e\u307f\u5909\u66f4\u3067\u304d\u308b<\/td>\n\u5024\u3092\u6b8b\u3057\u305f\u307e\u307e\u672b\u5c3e\u5074\u3078\u8981\u7d20\u3092\u5897\u3084\u3059<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

Microsoft\u306eVBA\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9\u3067\u306f\u3001`Preserve`\u306f\u65e2\u5b58\u30c7\u30fc\u30bf\u3092\u4fdd\u6301\u3057\u306a\u304c\u3089\u6700\u5f8c\u306e\u6b21\u5143\u3092\u30b5\u30a4\u30ba\u5909\u66f4\u3059\u308b\u305f\u3081\u306e\u30ad\u30fc\u30ef\u30fc\u30c9\u3068\u8aac\u660e\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u52d5\u7684\u914d\u5217\u306f`Dim items() As String`\u306e\u3088\u3046\u306b\u3001\u5ba3\u8a00\u6642\u306b\u8981\u7d20\u6570\u3092\u6c7a\u3081\u305a\u306b\u7528\u610f\u3057\u307e\u3059\u3002<\/p>\n

\n

\u7528\u8a9e\u89e3\u8aac\uff1a\u52d5\u7684\u914d\u5217<\/strong>
\u5b9f\u884c\u4e2d\u306bReDim\u3067\u8981\u7d20\u6570\u3092\u6c7a\u3081\u305f\u308a\u5909\u66f4\u3057\u305f\u308a\u3067\u304d\u308b\u914d\u5217\u3067\u3059\u3002\u5ba3\u8a00\u6642\u306f`Dim items() As String`\u306e\u3088\u3046\u306b\u62ec\u5f27\u5185\u3092\u7a7a\u306b\u3057\u307e\u3059\u3002<\/p>\n<\/blockquote>\n

\n

1\u6b21\u5143\u914d\u5217\u3092ReDim Preserve\u3067\u62e1\u5f35\u3059\u308b\u57fa\u672c\u5f62<\/h2>\n
Sub ReDimPreserveBasic()\r\n    Dim items() As String\r\n\r\n    ReDim items(0 To 1)\r\n    items(0) = "A"\r\n    items(1) = "B"\r\n\r\n    ReDim Preserve items(0 To 2)\r\n    items(2) = "C"\r\n\r\n    Debug.Print items(0), items(1), items(2)\r\nEnd Sub<\/code><\/pre>\n
\u6700\u521d\u306b0\uff5e1\u306e2\u8981\u7d20\u3092\u78ba\u4fdd\u3057\u3001A\u3068B\u3092\u5165\u308c\u3066\u3044\u307e\u3059\u3002\u305d\u306e\u5f8c`ReDim Preserve items(0 To 2)`\u3067\u4e0a\u9650\u30922\u3078\u5e83\u3052\u308b\u3068\u3001A\u3068B\u3092\u6b8b\u3057\u305f\u307e\u307e\u65b0\u3057\u3044\u8981\u7d20`items(2)`\u3092\u4f7f\u3048\u307e\u3059\u3002<\/p>\n
\u540c\u3058\u5834\u6240\u3092\u901a\u5e38\u306e`ReDim items(0 To 2)`\u306b\u3059\u308b\u3068\u3001\u4ee5\u524d\u306eA\u3068B\u306f\u4fdd\u6301\u3055\u308c\u307e\u305b\u3093\u3002\u300e\u30b5\u30a4\u30ba\u3060\u3051\u5909\u3048\u305f\u3044\u304c\u3001\u4eca\u306e\u5024\u306f\u6b8b\u3057\u305f\u3044\u300f\u3068\u304d\u306bPreserve\u3092\u4ed8\u3051\u308b\u306e\u304c\u57fa\u672c\u3067\u3059\u3002<\/p>\n
\n
UBound\u3092\u4f7f\u3048\u3070\u73fe\u5728\u306e\u672b\u5c3e\u304b\u30891\u8981\u7d20\u5897\u3084\u305b\u308b<\/h2>\n
Sub AppendWithReDimPreserve()\r\n    Dim items() As String\r\n    Dim nextIndex As Long\r\n\r\n    ReDim items(0 To 1)\r\n    items(0) = "A"\r\n    items(1) = "B"\r\n\r\n    nextIndex = UBound(items) + 1\r\n    ReDim Preserve items(LBound(items) To nextIndex)\r\n    items(nextIndex) = "C"\r\nEnd Sub<\/code><\/pre>\n
\u914d\u5217\u306e\u73fe\u5728\u30b5\u30a4\u30ba\u3092\u6c7a\u3081\u6253\u3061\u305b\u305a\u3001`UBound(items)`\u3067\u4e0a\u9650\u3092\u53d6\u5f97\u3057\u3066\u304b\u30891\u3064\u5897\u3084\u3059\u5f62\u3067\u3059\u3002\u4e0b\u9650\u3082`LBound(items)`\u3092\u305d\u306e\u307e\u307e\u4f7f\u3046\u305f\u3081\u3001Preserve\u3067\u4e0b\u9650\u3092\u5909\u66f4\u3057\u3066\u3057\u307e\u3046\u4e8b\u6545\u3092\u907f\u3051\u3089\u308c\u307e\u3059\u3002<\/p>\n
\uff08LBound\u30fbUBound\u3092\u542b\u3080VBA\u914d\u5217\u306e\u57fa\u790e\u304b\u3089\u78ba\u8a8d\u3057\u305f\u3044\u5834\u5408\u306b\u3064\u3044\u3066\u306f\u300eVBA\u914d\u5217\u306e\u4f7f\u3044\u65b9\u5b8c\u5168\u30ac\u30a4\u30c9\uff5c\u9ad8\u901f\u5316\u306e\u4ed5\u7d44\u307f\u3068\u30a8\u30e9\u30fc\u5bfe\u7b56\u307e\u3067<\/a>\u300f\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\uff09<\/p>\n
\n
2\u6b21\u5143\u914d\u5217\u3067\u306f\u6700\u5f8c\u306e\u6b21\u5143\u3060\u3051\u5909\u66f4\u3067\u304d\u308b<\/h2>\n
`ReDim Preserve`\u3067\u6700\u3082\u3064\u307e\u305a\u304d\u3084\u3059\u3044\u306e\u304c\u591a\u6b21\u5143\u914d\u5217\u3067\u3059\u3002Microsoft\u306e\u516c\u5f0f\u4ed5\u69d8\u3067\u306f\u3001Preserve\u3092\u4f7f\u3046\u5834\u5408\u306f\u6700\u5f8c\u306e\u6b21\u5143\u3060\u3051\u3092\u30b5\u30a4\u30ba\u5909\u66f4\u3067\u304d\u3001\u6b21\u5143\u6570\u305d\u306e\u3082\u306e\u3082\u5909\u3048\u3089\u308c\u307e\u305b\u3093\u3002<\/p>\n
Sub ReDimPreserve2D()\r\n    Dim data() As String\r\n\r\n    ReDim data(1 To 3, 1 To 2)\r\n    data(1, 1) = "A"\r\n\r\n    ' OK: \u6700\u5f8c\u306e\u6b21\u5143\u306e\u4e0a\u9650\u30922\u304b\u30894\u3078\u5909\u66f4\r\n    ReDim Preserve data(1 To 3, 1 To 4)\r\n\r\n    Debug.Print data(1, 1)\r\nEnd Sub<\/code><\/pre>\n
\u3053\u306e\u4f8b\u3067\u306f\u7b2c1\u6b21\u5143`1 To 3`\u3092\u5909\u3048\u305a\u3001\u7b2c2\u6b21\u5143\u3060\u3051\u3092`1 To 4`\u3078\u5e83\u3052\u3066\u3044\u307e\u3059\u3002\u65e2\u5b58\u5024\u3092\u4fdd\u6301\u3057\u305f\u307e\u307e\u5909\u66f4\u3067\u304d\u307e\u3059\u3002<\/p>\n
' NG: Preserve\u306e\u307e\u307e\u7b2c1\u6b21\u5143\u3092\u5909\u66f4\u3059\u308b\r\nReDim Preserve data(1 To 5, 1 To 2)<\/code><\/pre>\n
\u4e0a\u306e\u3088\u3046\u306b\u7b2c1\u6b21\u5143\u3092\u5909\u66f4\u3059\u308b\u3068\u3001Preserve\u306e\u5236\u7d04\u306b\u53cd\u3057\u307e\u3059\u3002\u884c\u65b9\u5411\u3092\u5897\u3084\u3057\u305f\u3044\u8a2d\u8a08\u3067\u306f\u3001\u5897\u3084\u3057\u305f\u3044\u8ef8\u3092\u6700\u5f8c\u306e\u6b21\u5143\u306b\u7f6e\u3051\u308b\u304b\u3001\u6700\u7d42\u30b5\u30a4\u30ba\u3092\u5148\u306b\u6c42\u3081\u3066\u4e00\u5ea6\u3060\u3051ReDim\u3067\u304d\u308b\u304b\u3092\u691c\u8a0e\u3057\u307e\u3059\u3002<\/p>\n
Preserve\u3067\u306f\u4e0b\u9650\u3092\u5909\u66f4\u3067\u304d\u306a\u3044<\/h2>\n
\u3082\u30461\u3064\u91cd\u8981\u306a\u306e\u304c\u4e0b\u9650\u3067\u3059\u3002Preserve\u3092\u4f7f\u3046\u30b5\u30a4\u30ba\u5909\u66f4\u3067\u306f\u3001\u65e2\u5b58\u306e\u4e0b\u9650\u3092\u5225\u306e\u5024\u306b\u5909\u3048\u308b\u3053\u3068\u306f\u3067\u304d\u307e\u305b\u3093\u3002\u5909\u66f4\u3059\u308b\u306e\u306f\u6700\u5f8c\u306e\u6b21\u5143\u306e**\u4e0a\u9650**\u3067\u3059\u3002<\/p>\n
Sub LowerBoundExample()\r\n    Dim values() As Long\r\n\r\n    ReDim values(1 To 3)\r\n    values(1) = 10\r\n\r\n    ' OK: \u4e0b\u96501\u306f\u7dad\u6301\u3057\u3001\u4e0a\u9650\u3060\u30515\u3078\u5909\u66f4\r\n    ReDim Preserve values(1 To 5)\r\n\r\n    ' NG: \u4e0b\u9650\u30920\u3078\u5909\u66f4\u3057\u306a\u304c\u3089Preserve\u3059\u308b\r\n    ' ReDim Preserve values(0 To 5)\r\nEnd Sub<\/code><\/pre>\n
\u4e0b\u9650\u3092\u5b89\u5168\u306b\u7dad\u6301\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u524d\u306e\u4f8b\u306e\u3088\u3046\u306b`LBound(values)`\u3092\u4f7f\u3046\u3068\u610f\u56f3\u304c\u30b3\u30fc\u30c9\u306b\u6b8b\u308a\u307e\u3059\u3002<\/p>\n
\u914d\u5217\u3092\u5c0f\u3055\u304f\u3059\u308b\u3068\u3001\u5916\u308c\u305f\u8981\u7d20\u306f\u623b\u3089\u306a\u3044<\/h2>\n
Preserve\u306f\u65e2\u5b58\u30c7\u30fc\u30bf\u3092\u3067\u304d\u308b\u3060\u3051\u4fdd\u6301\u3057\u307e\u3059\u304c\u3001\u7e2e\u5c0f\u3057\u3066\u7bc4\u56f2\u5916\u306b\u306a\u3063\u305f\u8981\u7d20\u307e\u3067\u6b8b\u3059\u6a5f\u80fd\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002Microsoft\u306e\u8aac\u660e\u3067\u3082\u3001\u5143\u306e\u30b5\u30a4\u30ba\u3088\u308a\u5c0f\u3055\u304f\u3059\u308b\u3068\u3001\u524a\u9664\u5bfe\u8c61\u306b\u306a\u3063\u305f\u8981\u7d20\u306e\u30c7\u30fc\u30bf\u306f\u5931\u308f\u308c\u308b\u3068\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n
Sub ShrinkArray()\r\n    Dim values() As Long\r\n\r\n    ReDim values(0 To 4)\r\n    values(4) = 99\r\n\r\n    ReDim Preserve values(0 To 2)\r\n\r\n    ' values(4) \u306f\u914d\u5217\u306e\u7bc4\u56f2\u5916\u306b\u306a\u308a\u3001\u4fdd\u6301\u3055\u308c\u306a\u3044\r\nEnd Sub<\/code><\/pre>\n
\u4e00\u6642\u7684\u306b\u5c0f\u3055\u304f\u3057\u3066\u5f8c\u3067\u5143\u3078\u623b\u305b\u3070\u5024\u3082\u623b\u308b\u3001\u3068\u3044\u3046\u52d5\u304d\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u7e2e\u5c0f\u524d\u306b\u5fc5\u8981\u306a\u5024\u304c\u7bc4\u56f2\u5916\u3078\u51fa\u306a\u3044\u304b\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/p>\n
\u56fa\u5b9a\u30b5\u30a4\u30ba\u914d\u5217\u3067\u306f\u306a\u304f\u3001\u52d5\u7684\u914d\u5217\u3068\u3057\u3066\u5ba3\u8a00\u3059\u308b<\/h2>\n
\u5b9f\u884c\u4e2d\u306b\u30b5\u30a4\u30ba\u3092\u5909\u3048\u308b\u4e88\u5b9a\u306a\u3089\u3001\u5ba3\u8a00\u6642\u306b\u8981\u7d20\u6570\u3092\u56fa\u5b9a\u305b\u305a\u3001\u7a7a\u306e\u62ec\u5f27\u3067\u52d5\u7684\u914d\u5217\u3068\u3057\u3066\u5ba3\u8a00\u3057\u307e\u3059\u3002<\/p>\n
Dim dynamicItems() As String\r\n\r\nReDim dynamicItems(0 To 9)<\/code><\/pre>\n
`Dim fixedItems(0 To 9) As String`\u306e\u3088\u3046\u306b\u56fa\u5b9a\u30b5\u30a4\u30ba\u3067\u5ba3\u8a00\u3057\u305f\u914d\u5217\u3092\u3001\u5f8c\u304b\u3089ReDim\u3059\u308b\u8a2d\u8a08\u3068\u306f\u5206\u3051\u3066\u8003\u3048\u307e\u3059\u3002\u5fc5\u8981\u306a\u8981\u7d20\u6570\u304c\u5b9f\u884c\u6642\u307e\u3067\u6c7a\u307e\u3089\u306a\u3044\u30b1\u30fc\u30b9\u3067\u3001\u52d5\u7684\u914d\u5217\u3068ReDim\u3092\u4f7f\u3044\u307e\u3059\u3002<\/p>\n
ReDim Preserve\u3067\u8ff7\u3063\u305f\u3068\u304d\u306e\u78ba\u8a8d\u9806<\/h2>\n
    \n
  • \u914d\u5217\u304c`Dim items()`\u306e\u3088\u3046\u306a\u52d5\u7684\u914d\u5217\u3068\u3057\u3066\u5ba3\u8a00\u3055\u308c\u3066\u3044\u308b\u304b<\/li>\n
  • \u65e2\u5b58\u5024\u3092\u6b8b\u3059\u5fc5\u8981\u304c\u3042\u308b\u306a\u3089`Preserve`\u304c\u4ed8\u3044\u3066\u3044\u308b\u304b<\/li>\n
  • 2\u6b21\u5143\u4ee5\u4e0a\u306a\u3089\u5909\u66f4\u3057\u3066\u3044\u308b\u306e\u304c\u6700\u5f8c\u306e\u6b21\u5143\u304b<\/li>\n
  • Preserve\u306e\u524d\u5f8c\u3067\u4e0b\u9650\u3092\u5909\u3048\u3066\u3044\u306a\u3044\u304b<\/li>\n
  • \u7e2e\u5c0f\u3059\u308b\u5834\u5408\u3001\u5207\u308a\u6368\u3066\u3089\u308c\u308b\u8981\u7d20\u306b\u5fc5\u8981\u306a\u5024\u304c\u306a\u3044\u304b<\/li>\n
  • \u30b5\u30a4\u30ba\u3092\u6c7a\u3081\u6253\u3061\u305b\u305a\u8ffd\u52a0\u3059\u308b\u306a\u3089LBound\u30fbUBound\u3067\u73fe\u5728\u7bc4\u56f2\u3092\u78ba\u8a8d\u3057\u3066\u3044\u308b\u304b<\/li>\n<\/ul>\n
    \u30a8\u30e9\u30fc\u304c\u51fa\u305f\u3089\u3001\u307e\u305a`ReDim Preserve`\u306e\u62ec\u5f27\u5185\u3092\u524d\u56de\u306e\u914d\u5217\u7bc4\u56f2\u3068\u4e26\u3079\u3066\u304f\u3060\u3055\u3044\u3002\u300e\u6700\u5f8c\u306e\u6b21\u5143\u4ee5\u5916\u3092\u5909\u3048\u3066\u3044\u306a\u3044\u304b\u300f\u300e\u4e0b\u9650\u307e\u3067\u5909\u3048\u3066\u3044\u306a\u3044\u304b\u300f\u3092\u898b\u308b\u3068\u3001\u539f\u56e0\u3092\u304b\u306a\u308a\u7d5e\u308c\u307e\u3059\u3002<\/p>\n
    \u3088\u304f\u3042\u308b\u8cea\u554f<\/h2>\n
    ReDim Preserve\u3092\u4f7f\u3048\u3070\u4f55\u6b21\u5143\u3067\u3082\u81ea\u7531\u306b\u30b5\u30a4\u30ba\u5909\u66f4\u3067\u304d\u307e\u3059\u304b\uff1f<\/h3>\n
    \u3067\u304d\u307e\u305b\u3093\u3002Preserve\u3092\u4f7f\u3046\u5834\u5408\u3001\u5909\u66f4\u3067\u304d\u308b\u306e\u306f\u6700\u5f8c\u306e\u6b21\u5143\u306e\u4e0a\u9650\u3067\u3059\u30022\u6b21\u5143\u4ee5\u4e0a\u3067\u306f\u3001\u305d\u308c\u3088\u308a\u524d\u306e\u6b21\u5143\u3092\u5909\u66f4\u3057\u305f\u307e\u307e\u65e2\u5b58\u5024\u3092\u4fdd\u6301\u3059\u308b\u3053\u3068\u306f\u3067\u304d\u307e\u305b\u3093\u3002<\/p>\n
    ReDim\u3060\u3051\u3060\u3068\u672c\u5f53\u306b\u5024\u306f\u6d88\u3048\u307e\u3059\u304b\uff1f<\/h3>\n
    \u306f\u3044\u3002\u901a\u5e38\u306eReDim\u3067\u518d\u5272\u308a\u5f53\u3066\u3059\u308b\u3068\u65e2\u5b58\u306e\u914d\u5217\u8981\u7d20\u306f\u4fdd\u6301\u3055\u308c\u305a\u3001\u578b\u306b\u5fdc\u3058\u305f\u521d\u671f\u5024\u306b\u306a\u308a\u307e\u3059\u3002\u65e2\u5b58\u5024\u3092\u6b8b\u3059\u5fc5\u8981\u304c\u3042\u308b\u5834\u5408\u306fPreserve\u3092\u4f7f\u3044\u307e\u3059\u3002<\/p>\n
    ReDim Preserve\u3067\u914d\u5217\u306e\u958b\u59cb\u756a\u53f7\u30920\u304b\u30891\u3078\u5909\u3048\u3089\u308c\u307e\u3059\u304b\uff1f<\/h3>\n
    Preserve\u3092\u4f7f\u3063\u305f\u30b5\u30a4\u30ba\u5909\u66f4\u3067\u306f\u4e0b\u9650\u3092\u5909\u66f4\u3067\u304d\u307e\u305b\u3093\u3002\u958b\u59cb\u756a\u53f7\u3092\u5909\u3048\u308b\u5fc5\u8981\u304c\u3042\u308b\u5834\u5408\u306f\u3001\u65e2\u5b58\u914d\u5217\u3092\u4fdd\u6301\u3057\u305f\u307e\u307e\u5358\u7d14\u306bReDim Preserve\u3059\u308b\u65b9\u6cd5\u3067\u306f\u5bfe\u5fdc\u3067\u304d\u307e\u305b\u3093\u3002<\/p>\n
    \u8981\u7d20\u30921\u4ef6\u8ffd\u52a0\u3059\u308b\u305f\u3073\u306bReDim Preserve\u3057\u3066\u3082\u3088\u3044\u3067\u3059\u304b\uff1f<\/h3>\n
    \u52d5\u4f5c\u4e0a\u306f\u53ef\u80fd\u3067\u3059\u304c\u3001\u6700\u7d42\u4ef6\u6570\u304c\u5206\u304b\u308b\u306a\u3089\u5148\u306b\u5fc5\u8981\u306a\u30b5\u30a4\u30ba\u3092\u78ba\u4fdd\u3059\u308b\u3068\u30b3\u30fc\u30c9\u306e\u610f\u56f3\u304c\u660e\u78ba\u3067\u3059\u3002\u4ef6\u6570\u304c\u8aad\u3081\u306a\u3044\u5834\u5408\u306f\u3001UBound\u3067\u73fe\u5728\u306e\u4e0a\u9650\u3092\u78ba\u8a8d\u3057\u3066\u62e1\u5f35\u3059\u308b\u30d1\u30bf\u30fc\u30f3\u3092\u4f7f\u3048\u307e\u3059\u3002<\/p>\n
    \u307e\u3068\u3081\uff1a\u5024\u3092\u6b8b\u3059\u306a\u3089Preserve\u3001\u305f\u3060\u3057\u5909\u66f4\u3067\u304d\u308b\u6b21\u5143\u306b\u6ce8\u610f<\/h2>\n
      \n
    • \u901a\u5e38\u306eReDim\u306f\u52d5\u7684\u914d\u5217\u3092\u518d\u5272\u308a\u5f53\u3066\u3057\u3001\u65e2\u5b58\u5024\u3092\u4fdd\u6301\u3057\u306a\u3044<\/li>\n
    • ReDim Preserve\u306f\u65e2\u5b58\u5024\u3092\u6b8b\u3057\u3066\u30b5\u30a4\u30ba\u5909\u66f4\u3067\u304d\u308b<\/li>\n
    • Preserve\u3067\u5909\u66f4\u3067\u304d\u308b\u306e\u306f\u6700\u5f8c\u306e\u6b21\u5143\u306e\u4e0a\u9650\u3060\u3051<\/li>\n
    • Preserve\u306e\u307e\u307e\u4e0b\u9650\u3084\u6b21\u5143\u6570\u3092\u5909\u66f4\u3067\u304d\u306a\u3044<\/li>\n
    • \u7e2e\u5c0f\u3067\u7bc4\u56f2\u5916\u306b\u306a\u3063\u305f\u8981\u7d20\u306e\u30c7\u30fc\u30bf\u306f\u5931\u308f\u308c\u308b<\/li>\n<\/ul>\n
      \u624b\u5143\u306e\u30b3\u30fc\u30c9\u3067\u5024\u304c\u6d88\u3048\u308b\u5834\u5408\u306f\u3001ReDim\u306e\u524d\u5f8c\u3067\u914d\u5217\u7bc4\u56f2\u3092\u78ba\u8a8d\u3057\u3001\u5024\u3092\u6b8b\u3059\u5fc5\u8981\u304c\u3042\u308b\u7b87\u6240\u3060\u3051Preserve\u3078\u7f6e\u304d\u63db\u3048\u3089\u308c\u308b\u304b\u78ba\u8a8d\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"featured_media":6426,"template":"","meta":{"ssp_meta_title":"VBA ReDim Preserve\u306e\u4f7f\u3044\u65b9\uff5c\u5024\u3092\u6b8b\u3059\u914d\u5217\u30b5\u30a4\u30ba\u5909\u66f4\u3068\u5236\u9650","ssp_meta_description":"VBA\u306eReDim Preserve\u306f\u3001\u52d5\u7684\u914d\u5217\u306e\u65e2\u5b58\u30c7\u30fc\u30bf\u3092\u6b8b\u3057\u305f\u307e\u307e\u30b5\u30a4\u30ba\u3092\u5909\u66f4\u3059\u308b\u305f\u3081\u306e\u66f8\u304d\u65b9\u3067\u3059\u3002ReDim\u3068\u306e\u9055\u3044\u30011\u6b21\u5143\u30fb2\u6b21\u5143\u914d\u5217\u306e\u4f8b\u3001\u6700\u5f8c\u306e\u6b21\u5143\u3060\u3051\u5909\u66f4\u3067\u304d\u308b\u5236\u9650\u3001\u4e0b\u9650\u5909\u66f4\u306e\u6ce8\u610f\u70b9\u3092\u6574\u7406\u3057\u307e\u3059\u3002","ssp_meta_keyword":"VBA ReDim Preserve,VBA \u914d\u5217 \u30b5\u30a4\u30ba\u5909\u66f4,VBA \u52d5\u7684\u914d\u5217,ReDim Preserve 2\u6b21\u5143\u914d\u5217,VBA UBound ReDim,ReDim Preserve \u30a8\u30e9\u30fc9,VBA \u914d\u5217 \u5024 \u4fdd\u6301","ssp_meta_canonical":""},"route_category":[9],"_links":{"self":[{"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/route\/6423"}],"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\/6426"}],"wp:attachment":[{"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/media?parent=6423"}],"wp:term":[{"taxonomy":"route_category","embeddable":true,"href":"https:\/\/route-zero.com\/recruit\/wp-json\/wp\/v2\/route_category?post=6423"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}