分割并粘贴多次

Question

我是VBA的初学者，希望建立一个宏，该宏将根据每个计划中存在的计划数将n行复制并粘贴整个行

我试图在“计划”列下拆分值以获取计数，但无法获取每个计划

First_Name  Last_Name   Plans  
David   Smith   Plan 1,  Plan 2  
John    Jones   Plan 3, Plan 5, Plan 7  
James   Wilson  Plan 4  



First_Name  Last_Name   Plans  
David   Smith   Plan 1  
David   Smith   Plan 2  
John    Jones   Plan 3  
John    Jones   Plan 5  
John    Jones   Plan 7  
James   Wilson  Plan 4