切割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