VBA单元格循环依次输入数据
VBA单元格循环依次输入数据已知:表1单元格A1+B1=C1(表1原公式,A1数不固定)求B1依次输入0至9(循环)如果C1>20,则输入数放在F1:O1区域否则,F1:O1区域为""例如:A1=15的时,B1依次输入6至9都大于20,则6至9放在F1:O1区域又如:A1=17的时,B1依次输入4至9都大于20,则4至9放在F1:O1区域
最佳回答
Sub a()Range("F1:O1") = ""j = 5For i = 0 To 9Range("B1") = i'Range("C1") = Range("A1") + iIf Range("C1") > 20 Thenj = j + 1Cells(1, j) = iEnd IfNextEnd Su
最新回答共有2条回答
-
2026-04-04 18:04:52结实的季节
回复Sub a()Range("F1:O1") = ""j = 5For i = 0 To 9Range("B1") = i'Range("C1") = Range("A1") + iIf Range("C1") > 20 Thenj = j + 1Cells(1, j) = iEnd IfNextEnd Su
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动,从释放开始计时,则物体在前2s内的平均速度为______m/s,物体下落2m时的速度大小为______m/s.
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解(二)设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡
