{"id":3294,"date":"2023-03-16T13:51:36","date_gmt":"2023-03-16T04:51:36","guid":{"rendered":"https:\/\/blog.since2020.jp\/?p=3294"},"modified":"2023-03-18T01:52:00","modified_gmt":"2023-03-17T16:52:00","slug":"%e3%80%90excel%e3%80%91vba%e3%81%a7%e3%83%87%e3%83%bc%e3%82%bf%e6%95%b4%e5%bd%a2-%e8%a1%a8%e3%83%ac%e3%82%a4%e3%82%a2%e3%82%a6%e3%83%88%e5%a4%89%e6%9b%b4-%e3%82%92%e8%87%aa%e5%8b%95%e5%8c%96","status":"publish","type":"post","link":"https:\/\/since2020.jp\/media\/%e3%80%90excel%e3%80%91vba%e3%81%a7%e3%83%87%e3%83%bc%e3%82%bf%e6%95%b4%e5%bd%a2-%e8%a1%a8%e3%83%ac%e3%82%a4%e3%82%a2%e3%82%a6%e3%83%88%e5%a4%89%e6%9b%b4-%e3%82%92%e8%87%aa%e5%8b%95%e5%8c%96\/","title":{"rendered":"\u3010Excel\u3011VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62\uff08\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4\uff09\u3092\u81ea\u52d5\u5316"},"content":{"rendered":"\n

Excel VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62 (\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4) \u3092\u81ea\u52d5\u5316\u3057\u307e\u3057\u305f\u3002\r\n\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4\u306b\u5f79\u7acb\u3064\u30b3\u30fc\u30c9\u3082\u307e\u3068\u3081\u3001\u89e3\u8aac\u3057\u3066\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n

\u306f\u3058\u3081\u306b<\/h2>\n\u96c6\u3081\u305f\u5143\u30c7\u30fc\u30bf\u306e\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u304c\u4f7f\u3044\u306b\u304f\u3044\u5834\u5408\u3001\u96c6\u8a08\u3084\u5206\u6790\u304c\u3057\u3084\u3059\u3044\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u3078\u5909\u66f4\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3088\u306d\u3002\r\n\r\n\u4eca\u56de\u306f\u30a8\u30af\u30bb\u30eb\u7528\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u30b3\u30fc\u30c9VBA\u3092\u7528\u3044\u308b\u3053\u3068\u306b\u3088\u3063\u3066\u30c7\u30fc\u30bf\u6574\u5f62(\u4e3b\u306b\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4)\u3092\u884c\u3044\u307e\u3057\u305f\u3002<\/strong>\r\n\r\n\u306a\u305cVBA\u3092\u4f7f\u3046\u306e\u304b\u3068\u3044\u3046\u7591\u554f\u306b\u601d\u3046\u65b9\u3082\u3044\u308b\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u5b9f\u969b\u306e\u30c7\u30fc\u30bf\u306f10\u4e07\u884c\u8d8a\u3048\u306b\u306a\u308b\u305f\u3081\u624b\u52d5\u3067\u306f\u30c7\u30fc\u30bf\u6574\u5f62\u304c\u4e0d\u53ef\u80fd\u3067\u3057\u305f\u3002\u3086\u3048\u306bVBA\u3092\u7528\u3044\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002\r\n\r\n\u3053\u3053\u3067\u306f\u30b5\u30f3\u30d7\u30eb\u30c7\u30fc\u30bf\u3092\u7528\u3044\u3066\u8aac\u660e\u3055\u305b\u3066\u3044\u305f\u3060\u304d\u307e\u3059\u3002\r\n\r\n\uff1c\u3053\u306e\u8a18\u4e8b\u304c\u304a\u3059\u3059\u3081\u306e\u65b9\uff1e\r\n\r\n\u30fbExcel\u3067\u30c7\u30fc\u30bf\u6574\u5f62\u3092\u81ea\u52d5\u3067\u52b9\u7387\u7684\u306b\u884c\u3044\u305f\u3044\u65b9\r\n\r\n\u30fbExcel\u3067\u30c7\u30fc\u30bf\u6574\u5f62\u306b\u5f79\u7acb\u3064VBA\u30b3\u30fc\u30c9\u3092\u77e5\u308a\u305f\u3044\u65b9\r\n\r\n\u30fbExcel\u3067\u5217\u3084\u884c\u3092\u5165\u308c\u66ff\u3048\u308b\u5fc5\u8981\u304c\u3042\u308b\u30c7\u30fc\u30bf\u6574\u5f62\u3092\u884c\u3044\u305f\u3044\u65b9\r\n\r\n\u30fb\u96c6\u3081\u305f\u5143\u30c7\u30fc\u30bf\u3092\u4f7f\u3044\u3084\u3059\u3044\u8868\u306b\u307e\u3068\u3081\u305f\u3044\u65b9\n\n

\u305d\u3082\u305d\u3082\u96c6\u8a08\u3084\u5206\u6790\u304c\u3057\u3084\u3059\u3044\u30ec\u30a4\u30a2\u30a6\u30c8\u3068\u306f<\/h2>\n\u305d\u3082\u305d\u3082\u96c6\u8a08\u3084\u5206\u6790\u304c\u3057\u3084\u3059\u3044\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u3068\u306f\u3001\u4ee5\u4e0b\u306e\u5199\u771f\u306e\u3088\u3046\u306b\r\n\r\n\u2460\u898b\u51fa\u3057\u304c\uff11\u884c<\/strong>\r\n\r\n\u2461\uff11\u5217\uff11\u884c\u30c7\u30fc\u30bf<\/strong>\r\n\r\n\u2462\uff11\u5217\u540c\u7a2e\u985e\u30c7\u30fc\u30bf<\/strong>\r\n\r\n\u306e\u4e0a\u8a18\uff13\u3064\u304c\u5b88\u3089\u308c\u3066\u3044\u308b\u30c7\u30fc\u30bf\u306e\u3053\u3068\u3092\u6307\u3057\u307e\u3059\u3002\r\n\r\n\u30c7\u30fc\u30bf\u5206\u6790\u306b\u304a\u3044\u3066\u306f\u30c7\u30fc\u30bf\u3092\u4f7f\u3044\u3084\u3059\u3044\u8868\u5f62\u5f0f\u306b\u76f4\u3059\u3053\u3068\u306f\u91cd\u8981\u3067\u3059\u3002\r\n\r\n\u3064\u307e\u308a\u3053\u306e\u8a18\u4e8b\u3067\u306f\u3001Excel\u306eVBA\u3092\u4f7f\u7528\u3057\u3066\u3001\u5143\u30c7\u30fc\u30bf\u306e\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u3092\u96c6\u8a08\u3084\u5206\u6790\u3057\u3084\u3059\u3044\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u306b\u5909\u66f4\u3059\u308b\u65b9\u6cd5<\/strong>\u3092\u7d39\u4ecb\u3057\u3066\u3044\u304f\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002\n\n

VBA\u3068\u306f<\/h2>\nVBA\u3068\u306f\u3001Visual Basic for Applications\u306e\u7565\u3067\u3001Microsoft Office\u88fd\u54c1\u306b\u642d\u8f09\u3055\u308c\u305f\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e<\/strong>\u3067\u3059\u3002VBA\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u3001Excel\u3084Word\u306a\u3069\u306eOffice\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u69d8\u3005\u306a\u6a5f\u80fd\u3092\u62e1\u5f35\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\r\n\r\n\u307e\u305f\u3001\u3053\u306e\u5f8c\u306bVBA\u306e\u30c7\u30fc\u30bf\u6574\u5f62\u306b\u4fbf\u5229\u306a\u69cb\u6587\u306b\u3064\u3044\u3066\u3082\u89e3\u8aac<\/strong>\u3057\u3066\u3044\u307e\u3059\u3002VBA\u3092\u59cb\u3081\u305f\u3070\u304b\u308a\u306e\u65b9\u3084\u3001\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u521d\u5fc3\u8005\u306e\u65b9\u3067\u3082\u7406\u89e3\u3057\u3084\u3059\u3044\u3088\u3046\u306b\u3001\u4e01\u5be7\u306b\u8aac\u660e\u3057\u3066\u3044\u307e\u3059\u3002Excel\u3067\u306e\u4f5c\u696d\u304c\u591a\u3044\u65b9\u306f\u3001\u305c\u3072VBA\u3092\u5b66\u3093\u3067\u4f5c\u696d\u52b9\u7387\u3092\u30a2\u30c3\u30d7\u3055\u305b\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\n\n

VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62_1_\u5143\u30c7\u30fc\u30bf<\/h2>\n\u5177\u4f53\u7684\u306a\u30c7\u30fc\u30bf\u3092\u51fa\u3055\u306a\u3044\u3068\u30a4\u30e1\u30fc\u30b8\u304c\u6e67\u304d\u306b\u304f\u3044\u3068\u601d\u3046\u306e\u3067\u3001\u5168\u4f53\u306e\u6d41\u308c\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u307e\u3059\u3002\r\n\r\n\u76ee\u6a19\u306f\u4ee5\u4e0b\u306e\u5199\u771f\u306e\u3088\u3046\u306a\u5143\u30c7\u30fc\u30bf\u306e\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u3092\u5206\u6790\u30fb\u96c6\u8a08\u3057\u3084\u3059\u3044\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u306b\u5909\u5f62<\/strong>\u3059\u308b\u3053\u3068\u3067\u3059\u3002\r\n\r\n\u3053\u306e\u5143\u30c7\u30fc\u30bf\u306e\u307e\u307e\u3060\u3068\u3044\u3056\u96c6\u8a08\u3084\u5206\u6790\u3092\u884c\u3046\u969b\u306b\u4f7f\u3044\u306b\u304f\u3044\u30c7\u30fc\u30bf\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002\r\n\r\nSQL\u3084Python\u3067\u30c7\u30fc\u30bf\u6574\u5f62\u3092\u884c\u3046\u3053\u3068\u3082\u8003\u3048\u307e\u3057\u305f\u304c\u3001\u884c\u306e\u5165\u308c\u66ff\u3048\u3084\u30b3\u30d4\u30fc\u3001\u30da\u30fc\u30b9\u30c8\u3092\u81ea\u7531\u306b\u64cd\u4f5c\u3067\u304d\u308bVBA\u304c\u4eca\u56de\u9069\u4efb\u3068\u306a\u308a\u307e\u3057\u305f\u3002\n\n

VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62_2_\u30c7\u30fc\u30bf\u6574\u5f62\u5f8c<\/h2>\n\u30c7\u30fc\u30bf\u6574\u5f62\u5f8c\u306f\u4ee5\u4e0b\u306e\u5199\u771f\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002\r\n\r\n\u30c7\u30fc\u30bf\u6574\u5f62\u3092\u884c\u3046\u3053\u3068\u306b\u3088\u3063\u3066\u96c6\u8a08\u3084\u5206\u6790\u304c\u3057\u3084\u3059\u3044\u8868\u306b\u306a\u308a\u307e\u3057\u305f\u3002\r\n\r\n\u96c6\u8a08\u3084\u5206\u6790\u304c\u3057\u3084\u3059\u3044\u8868\u306e\uff13\u539f\u5247\u304c\u5b88\u3089\u308c\u3066\u3044\u307e\u3059\u306d\u3002\n\n

VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62_3_\u5b9f\u884c\u30a4\u30e1\u30fc\u30b8<\/h2>\nVBA\u3067\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u52d5\u753b\u306b\u3042\u308b\u3088\u3046\u306b\u81ea\u52d5\u3067\u30c7\u30fc\u30bf\u6574\u5f62\u3057\u3066\u304f\u308c\u307e\u3059\u3002\r\n\r\n\u52d5\u753b\u3092\u518d\u751f\u3059\u308b\u3068\u5206\u304b\u308b\u901a\u308a\u3001\u3068\u3066\u3082\u4fbf\u5229\u3067\u3059\u306d\u3002\r\n\r\n\u5143\u30c7\u30fc\u30bf\u304c10\u4e07\u884c\u4ee5\u4e0a\u306e\u30b5\u30a4\u30ba\u306e\u6642\u306b\u306f\u3053\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3053\u3068\u3067\u697d\u306b\u30c7\u30fc\u30bf\u6574\u5f62\u3067\u304d\u307e\u3059\u3002\r\n\r\nExcel\u306bVBA\u3067\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u304f\u3068\u3044\u3046\u6a5f\u80fd\u304c\u3042\u3063\u3066\u52a9\u304b\u308a\u307e\u3057\u305f\u3002\n\n

VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62_4_VBA\u4fbf\u5229\u30b3\u30fc\u30c9\u306e\u7d39\u4ecb<\/h2>\n\u30c7\u30fc\u30bf\u6574\u5f62\u306b\u4fbf\u5229\u306aVBA\u30b3\u30fc\u30c9\u306b\u3064\u3044\u3066\u89e3\u8aac\u3057\u307e\u3059\u3002\r\n\r\n\u2460\u30b7\u30fc\u30c8\u3092\u5909\u6570\u306b\u683c\u7d0d<\/span>\r\n
\r\n
Dim Sht1 As Worksheet\r\nDim Sht2 As Worksheet\r\n'\u30b3\u30d4\u30fc\u3057\u305f\u3044\u30b7\u30fc\u30c8\u540d\u3092\u6307\u5b9a\r\nSet Sht1 = Sheets(\"Sheet1\")\r\n'\u8cbc\u308a\u4ed8\u3051\u305f\u3044\u30b7\u30fc\u30c8\u540d\u3092\u6307\u5b9a\r\nSet Sht2 = Sheets(\"Sheet2\")<\/code><\/pre>\r\n<\/div>\r\n\u3053\u308c\u306f\u5f8c\u307b\u3069\u3068\u3066\u3082\u5f79\u7acb\u3061\u307e\u3059\u3002\r\n\r\n\u2461\u30bb\u30eb\u7bc4\u56f2\u3092\u6307\u5b9a\u3057\u3066\u30b3\u30d4\u30fc<\/span>\r\n
\r\n
'Sheet1\u306e\u30bb\u30eb(1,1)\u304b\u3089\u30bb\u30eb(1,3)\u306e\u7bc4\u56f2\u3092\u30b3\u30d4\u30fc\r\nSht1.Range(Sht1.Cells(1, 1), Sht1.Cells(1,3)).Copy<\/code><\/pre>\r\n<\/div>\r\nSht1\u306b\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u540d\u306e\u30b3\u30d4\u30fc\u3057\u305f\u3044\u7bc4\u56f2\u3092Range\u3067\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002\r\n\r\nSht1.Range(\u201dA1\u201d).Copy\u3068\u3044\u3046Cells\uff08\uff09\u3067\u306f\u306a\u304fA1\u306a\u3069\u3067\u3082\u6307\u5b9a\u53ef\u80fd\u3067\u3059\u304c\r\n\r\n\u4eca\u56de\u306f\u6570\u5b57\u306e\u5909\u6570\u3092\u5f8c\u306b\u30b3\u30d4\u30fc\u3057\u305f\u3044\u7bc4\u56f2\u306b\u3082\u3044\u308c\u308b\u305f\u3081Cells\u3067\u7bc4\u56f2\u6307\u5b9a\u3057\u3066\u304a\u304f\u3068\u4fbf\u5229\u3067\u3059\u3002\r\n\r\n\u2462\u30b3\u30d4\u30fc\u3057\u305f\u7bc4\u56f2\u3092\u30da\u30fc\u30b9\u30c8\uff08\u666e\u901a\uff09<\/span>\r\n
\r\n
'Sheet2\u306e\u30bb\u30eb(1,1)\u304b\u3089\u30bb\u30eb(1,3)\u306b\u30b3\u30d4\u30fc\u3057\u305f\u3082\u306e\u3092\u30da\u30fc\u30b9\u30c8\r\nSht2.Range(Sht2.Cells(1, 1), Sht2.Cells(1, 3)).PasteSpecial<\/code><\/pre>\r\n<\/div>\r\n\u3053\u3061\u3089\u3082\u540c\u69d8\u306b\u30da\u30fc\u30b9\u30c8\u3057\u305f\u3044\u7bc4\u56f2\u3092\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002\r\n\r\n\u2463\u30b3\u30d4\u30fc\u3057\u305f\u7bc4\u56f2\u3092\u30da\u30fc\u30b9\u30c8\uff08\u884c\u3068\u5217\u3092\u5165\u308c\u66ff\u3048\uff09<\/span>\r\n
\r\n
'Sheet2\u306e\u30bb\u30eb(1,1)\u304b\u3089\u30bb\u30eb(1,3)\u306b\u30b3\u30d4\u30fc\u3057\u305f\u3082\u306e\u3092\u884c\u3068\u5217\u3092\u5165\u308c\u66ff\u3048\u3066\u30da\u30fc\u30b9\u30c8\r\nSht2.Range(Sht2.Cells(1, 1), Sht2.Cells(1, 3)).PasteSpecial\u3000Transpose:=True<\/code><\/pre>\r\n<\/div>\r\n\u3053\u308c\u304c\u3068\u3066\u3082\u4fbf\u5229\u3067\u3059\u3002\r\n\r\n\u5f8c\u308d\u306bTranspose:=True\u3092\u8ffd\u52a0\u3059\u308b\u3053\u3068\u3067\u884c\u3068\u5217\u3092\u5165\u308c\u66ff\u3048\u3066\u30da\u30fc\u30b9\u30c8\u3067\u304d\u307e\u3059\u3002\r\n\r\n\u307b\u304b\u306b\u3082\u8272\u3005\u306a\u30da\u30fc\u30b9\u30c8\u306e\u7a2e\u985e\u304c\u3042\u308b\u306e\u3067\u662f\u975e\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\r\n\r\n\u66f8\u5f0f\u306e\u307f\u8cbc\u308a\u4ed8\u3051\u3084\u5024\u306e\u307f\u8cbc\u308a\u4ed8\u3051\u306a\u3069\u4fbf\u5229\u306a\u3082\u306e\u304c\u305f\u304f\u3055\u3093\u3042\u308a\u307e\u3059\u3002\r\n\r\n\u8a66\u3057\u306b\u2460\uff5e\u2462\u3092\u4f7f\u3063\u3066\u5b9f\u884c\u3057\u307e\u3057\u3087\u3046\u3002<\/strong>\r\n\r\n\u4ee5\u4e0b\u306e\u3088\u3046\u306aSheet1\u304c\u3042\u3063\u305f\u3068\u3057\u307e\u3059\u3002\u7d39\u4ecb\u3057\u305f\u4fbf\u5229\u306aVBA\u3092\u4f7f\u3063\u3066\u3053\u308c\u3068\u540c\u3058\u3082\u306e\u3092Sheet2\u306b\u30b3\u30d4\u30fc\u3057\u307e\u3057\u3087\u3046\u3002\n\n
VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62_5_VBA\u4fbf\u5229\u30b3\u30fc\u30c9\u306e\u7d39\u4ecb_\u4f8b\u3092\u7528\u3044\u3066\u5b9f\u884c<\/h2>\n\u6e96\u5099\u304c\u3067\u304d\u305f\u3089\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u307e\u3057\u3087\u3046\u3002\r\n
\r\n
Sub example()\r\n\r\nDim Sht1 As Worksheet\r\nDim Sht2 As Worksheet\r\n'\u30b3\u30d4\u30fc\u3057\u305f\u3044\u30b7\u30fc\u30c8\u540d\u3092\u6307\u5b9a\r\nSet Sht1 = Sheets(\"Sheet1\")\r\n'\u8cbc\u308a\u4ed8\u3051\u305f\u3044\u30b7\u30fc\u30c8\u540d\u3092\u6307\u5b9a\r\nSet Sht2 = Sheets(\"Sheet2\")\r\n\r\n'Sheet1\u306e\u30bb\u30eb(1,1)\u304b\u3089\u30bb\u30eb(1,3)\u306e\u7bc4\u56f2\u3092\u30b3\u30d4\u30fc\r\nSht1.Range(Sht1.Cells(1, 1), Sht1.Cells(1,3)).Copy\r\n\r\n'Sheet1\u306e\u30bb\u30eb(1,1)\u304b\u3089\u30bb\u30eb(1,3)\u306b\u30b3\u30d4\u30fc\u3057\u305f\u3082\u306e\u3092\u30da\u30fc\u30b9\u30c8\r\nSht2.Range(Sht2.Cells(1, 1), Sht2.Cells(1, 3)).PasteSpecial<\/code><\/pre>\r\n<\/div>\r\n\u305d\u3057\u3066\u5b9f\u884c\u3059\u308b\u3068Sheet1\u304b\u3089Sheet2\u306b\u304d\u3061\u3093\u3068\u30b3\u30d4\u30fc\u3057\u3066\u30da\u30fc\u30b9\u30c8\u3067\u304d\u3066\u3044\u308b\u3053\u3068\u304c\u5206\u304b\u308b\u3068\u601d\u3044\u307e\u3059\u3002\n\n
VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62_6_\u30b3\u30fc\u30c9<\/h2>\n\u57fa\u672c\u7684\u306b\u4eca\u56de\u306e\u30b3\u30fc\u30c9\u3067\u4f7f\u3046VBA\u6587\u6cd5\u306f\u2460\uff5e\u2463\u306e\u307f<\/strong>\u3067\u3059\u3002\r\n\r\n\u3053\u308c\u3089\u3092For\u6587\u3084\u5909\u6570\u3068\u7d44\u307f\u5408\u308f\u305b\u308b\u3053\u3068\u3067\u81ea\u7531\u306b\u30b3\u30d4\u30fc\u3057\u3066\u30da\u30fc\u30b9\u30c8\u304c\u3067\u304d\u307e\u3059\u3002\r\n\r\n\u4f7f\u3046\u4eba\u306b\u3088\u3063\u3066\u5143\u30c7\u30fc\u30bf\u306e\u5f62\u5f0f\u304c\u7570\u306a\u3063\u3066\u3044\u305f\u308a\u3059\u308b\u3068\u601d\u3044\u307e\u3059\u306e\u3067\u3001\u9069\u5b9c\u4e0a\u8a18\u306e\u6587\u6cd5\u3068For\u6587\u3068\u5909\u6570\u3092\u7d44\u307f\u5408\u308f\u305b\u308b\u3053\u3068\u3067\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4\u306e\u81ea\u52d5\u5316<\/strong>\u3092\u884c\u3044\u307e\u3057\u3087\u3046\u3002\r\n\r\n\u5148\u307b\u3069\u306e\u6587\u6cd5\u3068For\u6587\u3084\u5909\u6570\u3067\u7d44\u307f\u5408\u308f\u305b\u3066\u5b8c\u6210\u3057\u305f\u30b3\u30fc\u30c9\u304c\u3053\u3061\u3089\u306b\u306a\u308a\u307e\u3059\u3002\r\n
\r\n
Sub paste_example()\r\n\r\nDim Sht1 As Worksheet\r\nDim Sht2 As Worksheet\r\n\r\n'\u53c2\u8003\u306b\u3057\u305f\u3044\u30c7\u30fc\u30bf\u304c\u3042\u308b\u30b7\u30fc\u30c8\u540d\u3092\u6307\u5b9a\r\nSet Sht1 = Sheets(\"\u5143\u30c7\u30fc\u30bf\")\r\n'\u52a0\u5de5\u3057\u305f\u30c7\u30fc\u30bf\u3092\u8cbc\u308a\u4ed8\u3051\u308b\u30b7\u30fc\u30c8\u540d\u3092\u6307\u5b9a\r\nSet Sht2 = Sheets(\"\u52a0\u5de5\u5f8c\u30c7\u30fc\u30bf\")\r\n\r\nDim i As Integer\r\nDim roop_num As Integer\r\nDim date_num As Integer\r\nDim paste_row As Integer\r\nDim paste_row_next As Integer\r\nDim coloum_num As Integer\r\nDim shop_coloum_num As Integer\r\nDim date_start_coloum As Integer\r\nDim date_end_coloum As Integer\r\nDim row_start As Integer\r\nDim row_end As Integer\r\n\r\n'\u30eb\u30fc\u30d7\u56de\u6570\u3000\u4eca\u56de\u306f\u30ec\u30b3\u30fc\u30c9\u304c3\u00d76\u884c\u3042\u308b\u306e\u30676\u56de\u5b9f\u884c\u3059\u308b\r\nroop_num = 6\r\n'\u3053\u3053\u3067\u3044\u3046\u5ba2\u6570\u3001\u58f2\u4e0a\u3001\u58f2\u4e0a\u6570\u3092\u6307\u3059\u30ab\u30e9\u30e0\u6570\r\ncoloum_num = 3\r\n'\u3053\u3053\u3067\u3044\u3046\u90fd\u9053\u5e9c\u770c\u3001\u5e97\u8217\u540d\u3092\u6307\u3059\u30ab\u30e9\u30e0\u6570\r\nshop_coloum_num = 2\r\n'\u65e5\u4ed8\u30c7\u30fc\u30bf\u306e\u958b\u59cb\u5217\r\ndate_start_coloum = 4\r\n'\u65e5\u4ed8\u30c7\u30fc\u30bf\u306e\u7d42\u4e86\u5217\r\ndate_end_coloum = 11\r\n'\u65e5\u4ed8\u306e\u30bb\u30eb\u306e\u500b\u6570\u3000\u4eca\u56de\u306f18\u65e5\u304b\u308925\u65e5\u306a\u306e\u30678\u65e5\u9593\r\ndate_num = date_end_coloum - date_start_coloum + 1\r\n\r\nFor i = 0 To roop_num - 1\r\n'\u30c7\u30fc\u30bf\u306e\u8cbc\u308a\u4ed8\u3051\u958b\u59cb\u884c\r\npaste_row = 2 + i * date_num\r\n'\u6b21\u306e\u30c7\u30fc\u30bf\u306e\u8cbc\u308a\u4ed8\u3051\u958b\u59cb\u884c\r\npaste_row_next = 2 + (i + 1) * date_num\r\n\r\n'\u90fd\u9053\u5e9c\u770c\u3068\u5e97\u8217\u540d\u3092\u30b3\u30d4\u30fc\r\nSht1.Range(Sht1.Cells(2+i*coloum_num,1),Sht1.Cells(2+i*coloum_num,shop_coloum_num)).Copy\r\n'\u90fd\u9053\u5e9c\u770c\u3068\u5e97\u8217\u540d\u3092\u8cbc\u308a\u4ed8\u3051\u308b\r\nSht2.Range(Sht2.Cells(paste_row,2),Sht2.Cells(paste_row_next-1,2)).PasteSpecial xlPasteAll\r\n'\u65e5\u4ed8\u3092\u30b3\u30d4\u30fc\r\nSht1.Range(Sht1.Cells(1,date_start_coloum),Sht1.Cells(1, date_end_coloum)).Copy\r\n'\u65e5\u4ed8\u3092\u8ee2\u7f6e\u3057\u3066\u8cbc\u308a\u4ed8\u3051\u308b\r\nSht2.Cells(paste_row, 1).PasteSpecial Transpose:=True\r\n\r\n'\u5ba2\u6570\u3001\u58f2\u4e0a\u6570\u3001\u58f2\u4e0a\u306e\u30b3\u30d4\u30fc\u958b\u59cb\u5217\u3092\u6307\u5b9a\r\nrow_start =2 +coloum_num * i\r\n'\u5ba2\u6570\u3001\u58f2\u4e0a\u6570\u3001\u58f2\u4e0a\u306e\u30b3\u30d4\u30fc\u7d42\u4e86\u5217\u3092\u6307\u5b9a\r\nrow_end = row_start + coloum_num - 1\r\n\r\n'\u5ba2\u6570\u3001\u58f2\u4e0a\u6570\u3001\u58f2\u4e0a\u3092\u30b3\u30d4\u30fc\r\nSht1.Range(Sht1.Cells(row_start,date_start_coloum),Sht1.Cells(row_end, date_end_coloum)).Copy\r\n'\u5ba2\u6570\u3001\u58f2\u4e0a\u6570\u3001\u58f2\u4e0a\u3092\u8ee2\u7f6e\u3057\u3066\u8cbc\u308a\u4ed8\u3051\u308b\r\nSht2.Cells(paste_row, shop_coloum_num + 2).PasteSpecial Transpose:=True\r\nNext i\r\n\r\nEnd Sub<\/code><\/pre>\r\n<\/div>\r\n\u3053\u306e\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u5b9f\u884c\u30a4\u30e1\u30fc\u30b8\u52d5\u753b\u306e\u3088\u3046\u306b\u52d5\u4f5c\u3057\u307e\u3059\u3002\n\n
\u307e\u3068\u3081<\/h2>\n\u3053\u306e\u8a18\u4e8b\u3067\u306f\u3001Excel\u306eVBA\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u306b\u3088\u3063\u3066\u3001\u5143\u306e\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u3092\u96c6\u8a08\u3084\u5206\u6790\u306b\u9069\u3057\u305f\u5f62\u5f0f\u306b\u5909\u66f4\u3059\u308b\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u3002\u5177\u4f53\u7684\u306b\u306f\u3001\u30b7\u30fc\u30c8\u3092\u5909\u6570\u306b\u683c\u7d0d\u3059\u308b\u65b9\u6cd5\u3001\u30bb\u30eb\u7bc4\u56f2\u3092\u6307\u5b9a\u3057\u3066\u30b3\u30d4\u30fc\u3059\u308b\u65b9\u6cd5\u3001\u30b3\u30d4\u30fc\u3057\u305f\u7bc4\u56f2\u3092\u30da\u30fc\u30b9\u30c8\u3059\u308b\u65b9\u6cd5\u3001\u30b3\u30d4\u30fc\u3057\u305f\u7bc4\u56f2\u3092\u884c\u3068\u5217\u3092\u5165\u308c\u66ff\u3048\u3066\u30da\u30fc\u30b9\u30c8\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u307e\u3057\u305f\u3002\u307e\u305f\u3001\u3053\u308c\u3089\u306e\u6587\u6cd5\u3092For\u6587\u3084\u5909\u6570\u3068\u7d44\u307f\u5408\u308f\u305b\u3066\u81ea\u7531\u306b\u30b3\u30d4\u30fc\u3057\u3066\u30da\u30fc\u30b9\u30c8\u304c\u3067\u304d\u308b\u3053\u3068\u3092\u793a\u3057\u307e\u3057\u305f\u3002Excel\u3067\u306e\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4\u3092\u52b9\u7387\u5316\u3057\u305f\u3044\u65b9\u306f\u3001\u305c\u3072VBA\u3092\u5b66\u3093\u3067\u307f\u3066\u304f\u3060\u3055\u3044\u3002\r\n\r\n\uff1c\u53c2\u8003URL\uff1e\r\n\r\nExcel\uff08\u30a8\u30af\u30bb\u30eb\uff09\u3067\u884c\u3046\u30c7\u30fc\u30bf\u6574\u5f62\u306e\u4f5c\u696d\u5185\u5bb9\u3068\u4e3b\u8981\u6a5f\u80fd\u307e\u3068\u3081<\/a>","protected":false},"excerpt":{"rendered":"
Excel VBA\u3067\u30c7\u30fc\u30bf\u6574\u5f62 (\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4) \u3092\u81ea\u52d5\u5316\u3057\u307e\u3057\u305f\u3002 \u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u5909\u66f4\u306b\u5f79\u7acb\u3064\u30b3\u30fc\u30c9\u3082\u307e\u3068\u3081\u3001\u89e3\u8aac\u3057\u3066\u3042\u308a\u307e\u3059\u3002 \u306f\u3058\u3081\u306b \u96c6\u3081\u305f\u5143\u30c7\u30fc\u30bf\u306e\u8868\u30ec\u30a4\u30a2\u30a6\u30c8\u304c\u4f7f\u3044\u306b\u304f\u3044\u5834\u5408\u3001\u96c6\u8a08\u3084\u5206\u6790\u304c\u3057\u3084\u3059\u3044\u8868\u30ec\u30a4\u30a2\u30a6 […]<\/p>\n","protected":false},"author":83,"featured_media":3302,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"content-type":"","swell_btn_cv_data":"","footnotes":"","_wp_rev_ctl_limit":""},"categories":[1246],"tags":[427,426,428,158,429],"class_list":["post-3294","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-data-infrastructure","tag-excel","tag-vba","tag-428","tag-158","tag-429"],"_links":{"self":[{"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/posts\/3294","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/users\/83"}],"replies":[{"embeddable":true,"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/comments?post=3294"}],"version-history":[{"count":1,"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/posts\/3294\/revisions"}],"predecessor-version":[{"id":3324,"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/posts\/3294\/revisions\/3324"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/media\/3302"}],"wp:attachment":[{"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/media?parent=3294"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/categories?post=3294"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/since2020.jp\/media\/wp-json\/wp\/v2\/tags?post=3294"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}