想要用vba实现在一列数值中将第一个小于0的数值和最后一个大于0的值看作一个区间,并判断当这个区间的存在的名称不一致时,将区间标记为黄色(图中标记绿色是为了区分每个区间,判断完区间最后一个正数后,当下一次出现负数再重新判断)
2条回答 默认 最新
- CSDN专家-showbo 2022-09-15 22:10关注
示例如下
Sub setCellCValue() rownum = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).row For i = 2 To rownum '遍历数据行 If Sheets(1).Cells(i, "B") < 0 Then r = True lasta = Sheets(1).Cells(i, "A") For j = i + 1 To rownum '找最后一个正值 cella = Sheets(1).Cells(j, "A") If cella <> lasta Then r = False End If If Sheets(1).Cells(j, "B") > 0 And Sheets(1).Cells(j + 1, "B") < 0 Then Exit For End If lasta = cella Next If j > rownum Then j = rownum Sheets(1).Cells(j, "C") = r i = j End If Next End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥100 set_link_state
- ¥15 虚幻5 UE美术毛发渲染
- ¥15 CVRP 图论 物流运输优化
- ¥15 Tableau online 嵌入ppt失败
- ¥100 支付宝网页转账系统不识别账号
- ¥15 基于单片机的靶位控制系统
- ¥15 真我手机蓝牙传输进度消息被关闭了,怎么打开?(关键词-消息通知)
- ¥15 装 pytorch 的时候出了好多问题,遇到这种情况怎么处理?
- ¥20 IOS游览器某宝手机网页版自动立即购买JavaScript脚本
- ¥15 手机接入宽带网线,如何释放宽带全部速度