将备用行上的单元格值移动到下一行并使用 VBA/Excel 删除空行

Question

基于上面的图像，我想动态地选择一个看起来像第一张图像的范围并将其处理成第二张图像的布局。

下面是我尝试执行以动态执行此操作的一些代码。

Dim Myrange As Range
Dim Myrow As Range
Set Myrange = Selection
Dim strVal As String

For Each Myrow In Myrange.Rows
If Myrow.Row Mod 2 = 0 Then
strVal = Myrow.Columns(1).Cells
Myrow.Columns(1).Value = ""
Myrow.Offset(1, -1).Value = strVal
End If
Next Myrow

不希望的结果

最后一张图片是我在处理选择时得到的。 三个单元格而不是一个单元格被替换为前一行的值。

Answer 1

假设参与者是 A 列，将此公式放在 A1 中并向下拖动。

 =IF(ISNUMBER(LEFT(B1,1)), OFFSET(B1,-1,0),"")