提问人：Virtual Films 提问时间：11/1/2023 最后编辑：Virtual Films 更新时间：11/2/2023 访问量：68
当上述单元格满足条件时，在单元格中插入文本（如果它有任何数字）
Insert text in cells when above cell meets condition ( if it has any number )
问：
我有一张写满了客户订单的表格。当产品打开包装箱时，第五列（E5）具有唯一标识符（一个数字）
我的计划是制定一个具有条件格式的规则（如果可能的话，VBA会更好），如果第五列（单元格）有任何数字（等等），则在列（单元格）O5上写单词研究 我正在尝试设置一个循环，对列 E（在 E5 之后）和 O（在 O5 之后）上的所有单元格执行此操作，但到目前为止没有运气。
（我想做的一个小例子，数据从第 5 行开始）
我猜 VBA 是要走的路，但到目前为止我发现的 VBA 代码似乎使用特定的单元格，并且不会遍历每一列。
感谢您的时间和帮助。
我尝试了条件格式，但无法正常工作（或我希望它工作的方式）
答：
1赞
Virtual Films
11/2/2023
#1
我找到了一种使用 VBA 使循环工作的方法。
法典：
Dim i As Long
Dim lastRow As Long
lastRow = Cells(Rows.Count,"E").End(xlUp).Row
For i = 6 To lastRow
If IsNumeric(Cells(i, "E").Value) Then
Cells(i, "O").Value ="Research"
End If
Next i
评论
=IF(NOT(ISBLANK(E2)),"Research","")IF(ISNUMBER(E5), "Research", "")