將備用行上的單元格值移動到下一行並使用 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),"")