excel vba可否给单元格内字符递增
答案:2 悬赏:40 手机版
解决时间 2021-11-21 09:57
- 提问者网友：几叶到寒
- 2021-11-20 23:11
excel vba可否给单元格内字符递增
最佳答案
- 五星知识达人网友：你可爱的野爹
- 2021-11-20 23:57
Sub xx()
a = [k1].Text
For i = 1 To Len(a)
b = b & (1 + Mid(a, i, 1)) Mod 10
Next
[k2] = b
End Sub
a = [k1].Text
For i = 1 To Len(a)
b = b & (1 + Mid(a, i, 1)) Mod 10
Next
[k2] = b
End Sub
全部回答
- 1楼网友：纵马山川剑自提
- 2021-11-21 00:54
Sub test()
For i = 1 To Len(Range("K1"))
Mystr = Mystr & Mid(Range("K1"), i, 1) + 1
Next
[k2] = Mystr
End Sub
这样吧
For i = 1 To Len(Range("K1"))
Mystr = Mystr & Mid(Range("K1"), i, 1) + 1
Next
[k2] = Mystr
End Sub
这样吧
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯