{"id":17259,"date":"2022-10-23T17:43:13","date_gmt":"2022-10-23T12:13:13","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/"},"modified":"2022-10-23T17:43:13","modified_gmt":"2022-10-23T12:13:13","slug":"solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/","title":{"rendered":"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed]"},"content":{"rendered":"<p> [ad_1]<br \/>\n<\/p>\n<div id=\"answer-41010963\" class=\"answer js-answer accepted-answer js-accepted-answer\" data-answerid=\"41010963\" data-parentid=\"41010229\" data-score=\"0\" data-position-on-page=\"1\" data-highest-scored=\"1\" data-question-has-accepted-highest-score=\"1\" itemprop=\"acceptedAnswer\" itemscope itemtype=\"https:\/\/schema.org\/Answer\">\n<div class=\"post-layout\">\n<div class=\"votecell post-layout--left\"><\/div>\n<div class=\"answercell post-layout--right\">\n<div class=\"s-prose js-post-body\" itemprop=\"text\">\n<p>In my testing this does exactly what you asked for.<\/p>\n<p>You will need to rename the Sheets depending on what your sheet names for the original data sheet name is and your output \/ result sheet name is.<\/p>\n<pre><code> Option Explicit\n\n Sub splittinghours()\n\n      Dim DataSheet As Worksheet\n      Dim ResultSheet As Worksheet\n      Set DataSheet = ThisWorkbook.Sheets(\"Sheet1\")\n      Set ResultSheet = ThisWorkbook.Sheets(\"Sheet2\")\n\n      Dim DataSheetLastRow As Long\n      With DataSheet\n          DataSheetLastRow = .Range(\"A1\").SpecialCells(xlCellTypeLastCell).Row\n      End With\n\n      Dim ActualWarehouse As String\n      Dim ActualDate As String\n      Dim InTime As Date\n      Dim OutTime As Date\n      Dim Duration As Long\n      Dim CurrentRow As Long\n      Dim DurationCounter As Long\n      Dim SegmentedDuration As Date\n      Dim ResultSheetNextFreeLine As Long\n\n      ResultSheet.Range(Cells(2, \"A\"), Cells(ResultSheet.Rows.Count, ResultSheet.Columns.Count)).Delete\n\n      ResultSheetNextFreeLine = 0\n\n      For CurrentRow = 2 To DataSheetLastRow\n\n           ActualWarehouse = DataSheet.Cells(CurrentRow, \"A\").Value\n           ActualDate = DataSheet.Cells(CurrentRow, \"B\").Value\n           InTime = DataSheet.Cells(CurrentRow, \"C\").Value\n           OutTime = DataSheet.Cells(CurrentRow, \"D\").Value\n           Duration = DataSheet.Cells(CurrentRow, \"E\").Value\n           SegmentedDuration = (OutTime - InTime) \/ Duration\n\n           ResultSheetNextFreeLine = ResultSheet.Cells(ResultSheet.Rows.Count, \"A\").End(xlUp).Row\n\n           For DurationCounter = 1 To Duration\n\n                With ResultSheet\n\n                    .Cells(ResultSheetNextFreeLine + DurationCounter, \"A\").Value = ActualWarehouse\n                    .Cells(ResultSheetNextFreeLine + DurationCounter, \"B\").Value = ActualDate\n                    .Cells(ResultSheetNextFreeLine + DurationCounter, \"C\").Value = InTime\n                    .Cells(ResultSheetNextFreeLine + DurationCounter, \"D\").Value = InTime + SegmentedDuration\n                     InTime = InTime + SegmentedDuration\n\n                End With\n\n           Next DurationCounter\n\n      Next CurrentRow\n\n End Sub\n<\/code><\/pre>\n<\/p><\/div>\n<div class=\"mt24\"><\/div>\n<\/div>\n<p>            <span class=\"d-none\" itemprop=\"commentCount\">2<\/span> <\/p><\/div>\n<\/div>\n<p>[ad_2]<\/p>\n<p>solved Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed] <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[ad_1] In my testing this does exactly what you asked for. You will need to rename the Sheets depending on what your sheet names for the original data sheet name is and your output \/ result sheet name is. Option Explicit Sub splittinghours() Dim DataSheet As Worksheet Dim ResultSheet As Worksheet Set DataSheet = ThisWorkbook.Sheets(&#8220;Sheet1&#8221;) &#8230; <a title=\"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed]\" class=\"read-more\" href=\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\" aria-label=\"More on [Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed]\">Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[320],"tags":[783,400,401],"class_list":["post-17259","post","type-post","status-publish","format-standard","hentry","category-solved","tag-datetime","tag-excel","tag-vba"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v26.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed] - JassWeb<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed] - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] In my testing this does exactly what you asked for. You will need to rename the Sheets depending on what your sheet names for the original data sheet name is and your output \/ result sheet name is. Option Explicit Sub splittinghours() Dim DataSheet As Worksheet Dim ResultSheet As Worksheet Set DataSheet = ThisWorkbook.Sheets(&quot;Sheet1&quot;) ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-10-23T12:13:13+00:00\" \/>\n<meta name=\"author\" content=\"Kirat\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Kirat\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed]\",\"datePublished\":\"2022-10-23T12:13:13+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\"},\"wordCount\":63,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"datetime\",\"excel\",\"vba\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\",\"name\":\"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed] - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-10-23T12:13:13+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed]\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/jassweb.com\/solved\/#website\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"name\":\"JassWeb\",\"description\":\"Build High-quality Websites\",\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/jassweb.com\/solved\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\",\"name\":\"Jass Web\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"contentUrl\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"width\":693,\"height\":132,\"caption\":\"Jass Web\"},\"image\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\",\"name\":\"Kirat\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed] - JassWeb","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed] - JassWeb","og_description":"[ad_1] In my testing this does exactly what you asked for. You will need to rename the Sheets depending on what your sheet names for the original data sheet name is and your output \/ result sheet name is. Option Explicit Sub splittinghours() Dim DataSheet As Worksheet Dim ResultSheet As Worksheet Set DataSheet = ThisWorkbook.Sheets(\"Sheet1\") ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/","og_site_name":"JassWeb","article_published_time":"2022-10-23T12:13:13+00:00","author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed]","datePublished":"2022-10-23T12:13:13+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/"},"wordCount":63,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["datetime","excel","vba"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/","url":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/","name":"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed] - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-10-23T12:13:13+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-repeating-multiple-rows-multiple-times-in-excel-vba-with-calculations-closed\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] Repeating Multiple Rows Multiple Times in Excel VBA, with Calculations [closed]"}]},{"@type":"WebSite","@id":"https:\/\/jassweb.com\/solved\/#website","url":"https:\/\/jassweb.com\/solved\/","name":"JassWeb","description":"Build High-quality Websites","publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/jassweb.com\/solved\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/jassweb.com\/solved\/#organization","name":"Jass Web","url":"https:\/\/jassweb.com\/solved\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/","url":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","contentUrl":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","width":693,"height":132,"caption":"Jass Web"},"image":{"@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31","name":"Kirat","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1776403586","caption":"Kirat"},"sameAs":["http:\/\/jassweb.com"],"url":"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/"}]}},"_links":{"self":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/17259","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/comments?post=17259"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/17259\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=17259"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=17259"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=17259"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}