切割n个单元格并使用excel vba插入到下面的行

Question

我正在尝试剪切4个相邻的单元格并在下面插入一个新行并将其粘贴到新行上 我的输入类似于
 我有4列Addr，电话，计数，金额。我的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