vba - Excel VBA - 将一行数据拆分为多行

Question

我正在尝试获取一个 excel 文件，查看已填充的列，然后将一个 excel 行中的数据拆分为不同的行，并在此过程中使用 VB 消除某些列。我认为如果你看下面的图片会更有意义。

下面是我要拆分的图像。



下面是我希望它如何拆分的图像。



如果有人可以帮助我使用它的VB代码，那就太好了。我是 VB 新手，正在努力学习。

Answer 1

下面的代码怎么样:

Sub Format()

lastrow = ActiveSheet.UsedRange.Rows.Count

For x = lastrow To 2 Step -1

    If Range("G" & x).Value <> "" Then
        Rows(x + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A" & x + 1 & ":D" & x + 1).Value = Range("A" & x & ":D" & x).Value
        Range("E" & x + 1).Value = Range("G" & x).Value
        Range("G" & x).Value = ""
    End If

    If Range("F" & x).Value <> "" Then
        Rows(x + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A" & x + 1 & ":D" & x + 1).Value = Range("A" & x & ":D" & x).Value
        Range("E" & x + 1).Value = Range("F" & x).Value
        Range("F" & x).Value = ""
    End If

Next x

End Sub