Excel需求：E列含数字时自动在O列写入research（VBA实现）

完整VBA代码 #

打开Excel按Alt+F11打开VBA编辑器，右键点击当前工作簿→插入→模块，粘贴以下代码后按F5运行：

Sub MarkResearchItems()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表，替换成你的实际表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取E列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 从第5行开始循环处理
    For i = 5 To lastRow
        ' 判断E列单元格是否为数字
        If IsNumeric(ws.Cells(i, "E").Value) Then
            ' 是数字则在同行O列写入"research"
            ws.Cells(i, "O").Value = "research"
        Else
            ' 非数字则清空O列（不需要的话可以删掉这行）
            ws.Cells(i, "O").Value = ""
        End If
    Next i
End Sub

代码说明 #

• Set ws = ThisWorkbook.Worksheets("Sheet1")：把Sheet1改成你实际的工作表名称
• lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row：自动定位E列最后一行数据，避免固定循环范围漏处理或做无用功
• IsNumeric()：准确识别单元格内容是否为数字（整数、小数都能匹配）
• 循环从第5行开始，完全贴合你的需求范围

为什么条件格式没用？ #

条件格式只能修改单元格的显示格式（比如字体、填充色），没法直接在单元格里写入实际文本内容，所以满足不了你的要求。

备选公式方法（非VBA） #

如果暂时不想用VBA，可在O5单元格输入以下公式，然后下拉填充到目标行：

=IF(ISNUMBER(E5),"research","")

内容的提问来源于stack exchange，提问作者Virtual Films