Excel vb脚本用数据填充单元格，直到看到已填充的单元格，然后继续该操作

下午好

我正在尝试创建一个VBscript，我可以将其添加到excel中，该脚本将查找列中的数据，然后将该数据复制到下面的每一行，直到它看到填充的单元格也这样做

---

这可能吗？

用前面的非空值填充集合（数组、列、范围）中的空值的算法

初始（默认）值v

对于集合中的每个元素

如果e为空，则用v替换e，否则用非空e更新v

演示代码：

Option Explicit

Dim a ' array to fill
For Each a In Array(Split("1  47 5 "), Split("  3  5 0"))
    WScript.Echo 0, Join(a, "*")
    Dim v : v = "0" ' value to fill empties
    Dim i
    For i = 0 To UBound(a)
        If "" = a(i) Then ' found empty, fill with v
           a(i) = v
        Else ' found non-empty, update v
           v = a(i)
        End If
    Next
    WScript.Echo 1, Join(a, "*")
Next

输出：

cscript 24656643.vbs
0 1**47*5*
1 1*1*47*5*5
0 **3**5*0
1 0*0*3*3*5*0

---

如果你不喜欢回答“是”，你应该公开你的问题：你的任务需要算法吗？你不能实施你的计划吗？你的实验脚本失败/崩溃了吗（在这种情况下：发布它）？嗨，Ekkehard，到目前为止，我已经创建了我脚本的第一部分和最后一部分，我被困在上述问题上。第1部分将搜索一列并删除通过操作框定义的选定文本的行（已生成。第2部分是我需要一个算法来搜索一列，并将包含数据的单元格复制到下面的单元格，直到它命中一个包含数据的单元格，然后再对该单元格执行相同操作，直到数据结束。这是我在苦苦挣扎的地方，因为我不确定从何处开始。第3部分将数据创建一个透视表到单独的工作表。（已生成）如果您需要更多信息，请告诉我Hi Ekkehard，我正在测试此数据。我使用的数据是：Emp编号100001 100005 100009 1000010 1000012 1000020 1000021 Emp编号100001 100005 100009 1000010 1000012 1000021，例如，在C列中