作者：乔山办公网日期：
返回目录：excel表格制作
Sub 填充()
For i = 2 To Range("A65536").End(xlUp).Row()
If Cells(i, 1) = "科学" Then
Cells(i, 2) = Cells(i, 1).Offset(, Cells(i, 256).End(xlToLeft).Column() - 1)
End If
Next
End Sub
代码，百假设了你的第一行是度标题行。问答
代码是根版据excel2003来写的。
如果你的列数据不超权过256，2007也可以用。
选择A列
按F5，定位对话框
定位条件，选择“空值”按确定
然后按组合键CTRL 和 -
就把A列含空白的整行全部删除了
在B3输入 =MID(A3，7，100)
可以用知RIGHT函数、LEN函数和FIND函数嵌套使用实现。
首先假设表格如下，需要将A列字符串中第一道个空格右边的字符串填专入对应B列单元格中
步骤：在B1单元格中输入公式“=RIGHT(A1,LEN(A1)-FIND(" ",A1,1))”，回车确认，向下属填充即可
最终效果