Excel缩短和编写空白列 < >我想从第一个非空白列中找到并写入空白值到空白单元格。例如：- Column A ---------------- -Blank cell- -Blank cell- abc abd -Blank cell- -Blank cell- -Blank cell- xyz ycz

我的结果应该是

 Column B
-----------
abc
abc
abc
abd
xyz
xyz
xyz
xyz
ycz

---

有超过25K个带有me的条目，未指定空白单元格。谁能帮我一下吗。任何Excel公式或脚本都可以

如果可以做到这一点，那么一个简单的

B1=IF（A1=”，B2，A1）

在所有B列中填写公式。
一个简单的
IF
可以做到这一点

B1=IF（A1=”，B2，A1）

使用宏填写所有B列中的公式。
：

Sub foo()
LastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1
    If Sheet1.Cells(i, 1).Value <> "" Then LastCheck = Sheet1.Cells(i, 1).Value
    If Sheet1.Cells(i, 1).Value = "" Then Sheet1.Cells(i, 1).Value = LastCheck
Next i
End Sub

Sub-foo（）
LastRow=Sheet1.单元格（Sheet1.Rows.Count，“A”）.结束（xlUp）.行
对于i=最后一行到1步骤-1
如果Sheet1.Cells（i，1）.Value“”则LastCheck=Sheet1.Cells（i，1）.Value
如果Sheet1.Cells（i，1）.Value=”“，则Sheet1.Cells（i，1）.Value=LastCheck
接下来我
端接头
使用宏：

Sub foo()
LastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1
    If Sheet1.Cells(i, 1).Value <> "" Then LastCheck = Sheet1.Cells(i, 1).Value
    If Sheet1.Cells(i, 1).Value = "" Then Sheet1.Cells(i, 1).Value = LastCheck
Next i
End Sub

Sub-foo（）
LastRow=Sheet1.单元格（Sheet1.Rows.Count，“A”）.结束（xlUp）.行
对于i=最后一行到1步骤-1
如果Sheet1.Cells（i，1）.Value“”则LastCheck=Sheet1.Cells（i，1）.Value
如果Sheet1.Cells（i，1）.Value=”“，则Sheet1.Cells（i，1）.Value=LastCheck
接下来我
端接头

首先选择列中的单元格：

按F5或Ctrl+G并单击“特殊…”：

选择“空白”：

单击“确定”：

从这里开始，除了按键键入公式外，不要执行任何操作：
=A2
（=然后按向下箭头键）：

公式完成后，按Ctrl+Enter组合键：

可选：复制整个列并粘贴为值以删除公式
首先选择列中的单元格：

按F5或Ctrl+G并单击“特殊…”：

选择“空白”：

单击“确定”：

从这里开始，除了按键键入公式外，不要执行任何操作：
=A2
（=然后按向下箭头键）：

公式完成后，按Ctrl+Enter组合键：

可选：复制整个列并粘贴为值以删除公式
真棒的回答，哈维！我喜欢这个宏。我还有一个任务，你能帮我吗？如果我能帮上忙，我很乐意帮忙……：）我想将第一个非空白单元格复制并粘贴到相邻的非空白列。stackoverflow不允许我在90分钟前发布另一个问题。太棒了，回答Xabi！我喜欢这个宏。我还有一个任务，你能帮我吗？如果我能帮上忙，我很乐意帮忙……：）我想将第一个非空白单元格复制并粘贴到相邻的非空白列。stackoverflow不允许我在90分钟前发布另一个问题。