1个回答
展开全部
Sub aa()
ca = "A"
Set rg = [e4]
t = Val(Left(rg, 1))
s = IIf(ca = "A", 1, 4)
For i = 1 To 4
t = (t + s) Mod 5
rg.Offset(i) = t & t + 5
Next
End Sub
更多追问追答
追问
才填充了3个单元格，是填充4个单元格（除原单元外）
ca = "b"时，与 ca = "a"时相反，现在修改为"b"时无变化
追答
是4个
ca=“b"只改第一个
来自：求助得到的回答
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
