将空白单元格（在列中）的值除以空白单元格并用vba重复

我从这样的一张表开始：

colB: row1: 15 row2: (empty) row3: (empty) row4: 60 row5: (empty) row6: 45 row7: 88 row8: (empty) row9: 10 ... rowN: 56 

我想将非空单元格的值（例如，第1行中的15）划分为空白单元格的数目。 这意味着在转换之后，B列将如下所示：

 colB: row1: 5 row2: 5 row3: 5 row4: 30 row5: 30 row6: 45 row7: 44 row8: 44 row9: 10 ... rowN: 56 

我不知道该怎么做。 任何人都可以帮我，请问？

Answer 1

那么把这个数字除以空格+1呢？ （15/3），除非没有空白，然后除以1？ （45 == 45）

这将在B中的最后一个单元完成，通过锚定一个填满的单元格，查看其垂直偏移，然后在非空时重新锚定;

 Dim max As Long, i As Long, cell As Range Set cell = Range("B1") max = Range("B" & Rows.Count).End(xlUp).Row Do i = i + 1 If (cell.Offset(i, 0).value <> "") Then Range(cell, cell.Offset(i - 1, 0)).value = cell.value / i Set cell = cell.Offset(i, 0) i = 0 End If If cell.Row = max Then Exit Sub Loop