VBA单元格循环依次输入数据

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/07 09:13:56

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 = 5
For i = 0 To 9
Range("B1") = i
'Range("C1") = Range("A1") + i
If Range("C1") > 20 Then
j = j + 1
Cells(1, j) = i
End If
Next
End Su

VBA单元格循环依次输入数据 VBA找单元格数据的中间名次 VBA找单元格奇数次数 VBA找单元格对应重复的数字 VBA统计单元格里面逗号的个数如何在VBA中使用For.Next 与 Do.Loop的循环方式对数据累计求和? VBA中for next循环语句求解 VBA编程,输入五个数,输出最大值 excel2007一列中每一个单元格都要输入一个计算公式,公式相同只是采用的单元格中的数据根据列数而改变用Vba计算同列两个相邻单元格数值相同的下一个单元格的个数 c语言循环结构编程输入若干个学生成绩,若输入数据大于100或小于0则循环结束,最后求成绩的平均值 Vba几种循环语句是怎么写的