Question

excel vba认数字来填对应字(就是小时候学的相同字连线有点类似),大师请进

第一位字符开始(是0而不是1),第二位才是1,以此类推

用VBA,可以用(C6:P20)这样的来指定对比范围

.直接将数字转成中文或标点(以左边为原数据)
示例见D与F列(直在"认数字来填字"列将数字转成对应的字符)
4.http://pan.baidu.com/s/1o6oJJ9C文件地址

D列数字代表左边单元字符位置

将D列数字转成左边对应的字符

请问这样的VBA可以实现吗





Answer 1

可以的，您只需要建立一个字典，然后根据输入的数字，读取字典里面对应的汉子，然后输出就可以了，

Answer 2

0-9可以转，10以上就无法识别
109是10和9，还是1和0和9

追问

为什么10以上不行
发代码来看一下
是1和0和9

追答

山石水火土田一上下左右前后中,这里有14个字，从“右”字开始的字会一直取不到哦。

追问

山石水火土田一上下左右前后中
这里的字如何做不到,我就按排到后
让找到的安排到前

追答

选中数字所在的单元格，运行宏

如图

Sub FillWords()
Dim myStr As String, Cha As String, i As Integer, numStr
myStr = Selection.Cells(1).Offset(0, -1)
numStr = Selection.Cells(1)
For i = 1 To Len(numStr)
Cha = Cha & Mid(myStr, Val(Mid(numStr, i, 1)) + 1, 1)
Next i
Selection.Cells(1).Offset(0, 1) = Cha
End Sub

追问

1. 可不可以直接给范围(如C6:F20),不用选中数字所在的单元格

2. 可不可在数字单元直接生成结果

追答

C6:F20 这个范围内，哪些列是中文，哪些是数字，没有一个固定的排版，不好做。
可以帮你改成选中一整列数字，一整列转换为中文。

追问

哪修改成选中一整列数字，一整列转换为中文。
并说明一下,哪个代码是控制C6:F20 这个范围内
和说明一下转换为中文列是哪个代码控制

追答

这样就可以一整列数字选中同时转换

Sub FillWords()
Dim myStr As String, Cha As String, i As Integer, numStr
Dim c As Range
For Each c In Selection.Cells
Cha = ""
myStr = c.Offset(0, -1)
numStr = c
For i = 1 To Len(numStr)
Cha = Cha & Mid(myStr, Val(Mid(numStr, i, 1)) + 1, 1)
Next i
c.Offset(0, 1) = Cha
Next c
End Sub