Excel VBA – 在多行中拆分一行数据

我想要一个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