单元格中字符之间有规律的插入*

DZ潇潇

以下三个问题应该对公式的应用类似，求各位帮忙编辑函数，谢谢！
问题一：
假设单元格A1中的字符串为 12345678，通过公式返回结果1*2*3*4*5*6*7*8
问题二：
假设单元格A1中的字符串为 12345678，通过公式返回结果12*34*56*78
问题三：
假设单元格A1中的字符串为 1234567890，通过公式返回结果1*23*456*7890

补充内容 (2014-3-19 22:55):
问题基本解决（本人V盲）

咫尺天涯_lk

1. Public Function cr(x)
   
2.     jieguo = Left(x, 7)
   
3.     For i = 8 To Len(x)
   
4.         jieguo = jieguo & Mid(x, i, 1) & "*"
   
5.     Next i
   
6.     cr = Left(jieguo, Len(jieguo) - 1)
   
7. End Function

复制代码

我不会函数，奉献一段从第8个数字开始，每个数字后面插入1个*的自定义函数，条件可以自己修改

DZ潇潇

咫尺天涯_lk 发表于 2014-2-22 13:00
我不会函数，奉献一段从第8个数字开始，每个数字后面插入1个*的自定义函数，条件可以自己修改

感谢您的帮助！虽然我不懂VBA

咫尺天涯_lk

DZ潇潇 发表于 2014-2-22 13:14
感谢您的帮助！虽然我不懂VBA

cr就是1个自定义函数，将代码放到VBE编辑器内，然后和普通函数一样用，x表示所选单元格，left、len、mid等函数与工作簿函数一个意思，for...next就是从在某一范围内按顺序遍历。我的示例解释就是：从第8位开始遍历，然后逐一插入*

DZ潇潇

咫尺天涯_lk 发表于 2014-2-22 13:19
cr就是1个自定义函数，将代码放到VBE编辑器内，然后和普通函数一样用，x表示所选单元格，left、len、mid等 ...

感谢……！

desence

1. Function insertChar(data As String, str As String, t As Byte) As String
   
2.     insertChar = ""
   
3.     Select Case t
   
4.         Case 1      '参数为1时，解决第一个问题
   
5.             For i = 1 To Len(data)
   
6.                 insertChar = insertChar & Mid(data, i, 1) & str
   
7.             Next i
   
8.         Case 2      '参数为2时，解决第二个问题
   
9.             For i = 1 To Len(data) Step 2
   
10.                 insertChar = insertChar & Mid(data, i, 2) & str
    
11.             Next i
    
12.         Case 3      '参数为3时，解决第三个问题
    
13.             startNum = 1
    
14.             i = 1
    
15.             Do While startNum <= Len(data)
    
16.                 insertChar = insertChar & Mid(data, startNum, i) & str
    
17.                 startNum = startNum + i
    
18.                 i = i + 1
    
19.             Loop
    
20.          Case Else  '其他参数，报错
    
21.             
    
22.     End Select
    
23.     insertChar = Left(insertChar, Len(insertChar) - Len(str))
    
24. End Function
    

复制代码

desence

或者这样，参数3为负数，解决第三个问题，为正数就隔t个字符插入特殊字符

1. Function insertChar(data As String, str As String, t As Integer) As String
   
2.     insertChar = ""
   
3.    
   
4.     If t >= 0 Then      't等于几就隔几位插入字符
   
5.         For i = 1 To Len(data) Step t
   
6.             insertChar = insertChar & Mid(data, i, t) & str
   
7.         Next i
   
8.     Else                't为负数，解决问题3
   
9.         startNum = 1
   
10.             i = 1
    
11.             Do While startNum <= Len(data)
    
12.                 insertChar = insertChar & Mid(data, startNum, i) & str
    
13.                 startNum = startNum + i
    
14.                 i = i + 1
    
15.             Loop
    
16.     End If
    
17.    
    
18.     insertChar = Left(insertChar, Len(insertChar) - Len(str))
    
19. End Function
    

复制代码

cleverzhzhf

=TEXT(A2,"0\*0\*0\*0\*0\*0\*0\*0")
=TEXT(A3,"00\*00\*00\*00")
=TEXT(A4,"0\*00\*000\*0000")

cleverzhzhf

如果数字的位数不固定，就需要多一些的手段结合REPT来处理text的第二个参数

DZ潇潇

cleverzhzhf 发表于 2014-2-22 14:26
=TEXT(A2,"0\*0\*0\*0\*0\*0\*0\*0")
=TEXT(A3,"00\*00\*00\*00")
=TEXT(A4,"0\*00\*000\*0000")

这个答案更符合目前的认知水平（VBA不会），太感谢啦！
不过这个好像是格式设置，实际单元格字符没有变动是吧？