如图，在练习数组，想一键转化阿拉伯数字为汉语大写，用cstr和mid从1998分别取数转化成大写，但不清楚的一点是该怎么让每个刚取完、转化成汉字后就连在一起，我只能绕路先把四个数字取完的结果分别放到后面几个单元格，最后在用&连起来，不太懂，麻烦大家
VBA代码优化：数组--阿拉伯转汉字
如图，在练习数组，想一键转化阿拉伯数字为汉语大写，用cstr和mid从1998分别取数转化成大写，但不清楚的一点是该怎么让每个刚取完、转化成汉字后就连在一起，我只能绕路先把四个数字取完的结果分别放到后面几个单元格，最后在用&连起来，不太懂，麻烦大家
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
1条回答 默认 最新
- 2022-07-13 20:48回答 2 已采纳 Sub test() Dim arr Dim i, j As Integer Dim flag As Boolean arr = Array("张三", "王五", "钱六") flag = True
- 2021-09-22 16:41回答 1 已采纳 redim一下，注意要preserve，然后然后把2，5，，8，11元素设置成0就好了。有帮助请采纳谢谢！
- 2021-07-19 16:18回答 1 已采纳 检查一下这个dll文件是否存在。
- 2006-04-25 17:05goldanycom的博客 VBA.Sheets(n).Cells(a, 1) =Sheets(n-1).Cells(a, 1) 又问： ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1],_______!R[-1]C)" . 在 _____ 处，我应该怎么填，才可以得到上一张表格？ 答：在空格处写上： sheets...
- 2015-11-29 13:11回答 1 已采纳 http://www.williamlong.info/archives/1136.html
- 2022-07-28 06:00回答 2 已采纳 arr 得到之后循环遍历，只保留元素不为空的数据
- 2022-11-25 10:16回答 2 已采纳 错误原因：你的 i 是int类型，但是sheet名字是string 报错信息 解决办法：需要转码，更改后代码参照如下： Sub sheetsMaker() Dim i As Integer
- 2009-05-09 10:28csdylk的博客 也可换个方式不用数组，在B3中复制如下的公式，然后往右复制： =RANK(B1,$B1:$H1)+COUNTIF($B$1:B1,B1)-1 当做日报表累计数自动加 当做日报表时,怎样让月累计数自动加上? 就是要月累计自动加上今天的当日收入数,今天...
- 2021-10-27 15:58回答 2 已采纳 类型不一样 Sub showType() Dim arr() MsgBox TypeName([a1:c1])'Range MsgBox TypeName(arr)'variant() Ms
- 2022-07-26 08:51回答 1 已采纳 怎么又发一遍这不还是k=k+1那个问题吗
- 2022-06-09 02:01回答 1 已采纳 样例中的数据有5列，比你要处理的数据多了一列“论文序号”，所以代码不能直接拿过来用修改了一下，你再试试： Sub zhuanzhi() Dim i, j, a, m, n m = 2 For
- 2017-02-21 10:20weixin_30319153的博客 再按一次选中光标所在的位置的单词（若是中文的话选中光标所在的后一个字）；再按一次选中光标位置所在的一句；再按一次选中光标位置所在的一段落；再按一次则相当于全选。取消扩展功能，按Esc键。 ü 把光标放到...
- 2022-03-21 11:09回答 3 已采纳 用isnumeric判断是否是数字在做操作，否则就设置数据异常， If IsNumeric(Range("N" & h)) And IsNumeric(Range("AT" & h)) Then
- 2017-07-27 16:27Mr_Suyang的博客 再按一次选中光标所在的位置的单词（若是中文的话选中光标所在的后一个字）；再按一次选中光标位置所在的一句；再按一次选中光标位置所在的一段落；再按一次则相当于全选。取消扩展功能，按Esc键。 ◆ 把光标放...
- 2023-12-06 14:31@北海怪兽的博客 记录学习VBA 的笔记
- 没有解决我的问题, 去提问
问题事件
专家修改了标签
9月6日
创建了问题
9月5日
悬赏问题
- ¥30 STM32 INMP441无法读取数据
- ¥100 求汇川机器人IRCB300控制器和示教器同版本升级固件文件升级包
- ¥15 用visualstudio2022创建vue项目后无法启动
- ¥15 x趋于0时tanx-sinx极限可以拆开算吗
- ¥500 把面具戴到人脸上，请大家贡献智慧
- ¥15 任意一个散点图自己下载其js脚本文件并做成独立的案例页面，不要作在线的，要离线状态。
- ¥15 各位 帮我看看如何写代码，打出来的图形要和如下图呈现的一样，急
- ¥30 c#打开word开启修订并实时显示批注
- ¥15 如何解决ldsc的这条报错/index error
- ¥15 VS2022+WDK驱动开发环境