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

学习 时间:2026-04-04 18:04:52 阅读:1847
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区域

最佳回答

儒雅的百合

忧伤的帆布鞋

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

最新回答共有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

上一篇 动物园中一头大象的体重是3.4吨,比一只老虎体重的3倍还多0.7吨,一只老虎体重是多少吨?

下一篇 what"re the differences about the life style between elderly