使用VBA / Excel

Question

基于上面的图片，我希望a是动态选择一个看起来像第一个图片的范围，然后将其处理为第二个图片的布局。

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

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

Undesired result

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

Answer 1

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

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