搜索下一个非空白单元格，添加行并将其与旁边的单元格一起移动

Question

我正在寻找一些帮助来整理一本小工作簿。 有一些我想删除的列但在删除之前我需要将单元格中的值移到另一列。 列A和C保持不变（具有无法删除的值），但应删除列B和C.列B和C中的某些行包含值。我正在寻找一个代码来查找B列中的值并将其移动到A列，然后从B中的值中取出C中的值，并将其移动到D列。我已经管理过让它在列B中查找非空单元格并将其移动到A列中的新行但是我很难获得C列中的同步值以与它一起移动。我很感激任何帮助。 到目前为止我的代码：

    Sub InsR()

Sheets("sheet1").Select
Dim LR2 As Long, cell2 As Range, rng2 As Range
With Sheets("sheet1")
    LR2 = .Range("B" & Rows.Count).End(xlUp).Row
    For Each cell2 In .Range("B2:B" & LR2)
        If cell2.Value <> "" Then
            If rng2 Is Nothing Then
                Set rng2 = cell2

            End If

        End If
    Next cell2
    rng2.Cut
ActiveCell.EntireRow.Insert
End With

End Sub

Answer 1

替换

-----END

使用这样的代码应该这样做

    If cell2.Value <> "" Then
        If rng2 Is Nothing Then
            Set rng2 = cell2

        End If

    End If