切割n個單元格並插入到下面的行使用excel vba

Question

我想切割4個相鄰的單元格，並在下面插入一個新行並將其粘貼到一個新行上。
我的輸入類似於
我有4列地址，電話，計數，金額。我的excel工作表中的某些行包含多個n個條目。我想削減4個單元格的多個並在下面插入一個新行並粘貼。
輸出將類似於 我嘗試使用轉換函數，但無法產生預期結果。 我怎樣才能做到這一點用VBA代碼或Excel函數

Answer 1

下面是它正好與你的要求工作

Sub Narasappa() 
For i = 2 To 1000 


     If ThisWorkbook.Worksheets(5).Cells(i, 2) = "" Then 
     Exit For 
     End If 

     For j = 6 To 1000 Step 4 

      If ThisWorkbook.Worksheets(5).Cells(i, j).Value = "" Then 
       Exit For 
       Else 
       ThisWorkbook.Worksheets(5).Cells(i, j).Resize(, 4).Cut 
       ThisWorkbook.Worksheets(5).Range("B" & i + 1).Insert xlShiftDown 
       End If 

       Next 

      Next 

End Sub