大批空格填充问题

来源：百度知道 编辑：UC知道 时间：2024/06/08 06:21:34
excel中一工作表有上万行，其中A1为任意文本，A2、A3为空，A4单元格又有文本，A5、A6、A7又为空，等等没有规则，一会儿有文本，一会为空，现在问题是：将A2、A3单元格内容为A1中的内容，A5，A6，A7中填为A4中的内容，也就是说将空格填充为上一行中的内容，有上万行不可能手动输入，请问有什么巧方法，如excel不好办，导入sql中在表中也可以，请告诉我方法

费了好大劲才试出来

在B1列输入A1的内容
B2输入=IF(A2<>"",A2,B1)
这样就可了然后就往下拖吧，有多少，拖多少，呵呵
最后把A1列删了

我试过了，可以
如果不行找我
QQ：88198400
就这个意思吧
1 1
**1
**1
2 2
**2
**2
**2
q q
**q
**q
**q
**q
**q
**q
**q
qqqqq qqqqq
******qqqqq
******qqqqq
******qqqqq
******qqqqq
*表标空的内容

按下ALT+F11,菜单插入-模块,复制下列代码.按下F5运行.

Sub Macro1()
Range("A63356").End(xlUp).Select
A = ActiveCell.Row
Range("A1:A" & A).Select
For Each X In Selection
If ActiveCell.Value = "" Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub