1、一、选取你认为好听的字
从字典或者网，诗歌，小说，散文或者你喜欢的电视剧中找到你认为好听的字，将它们统统输入excel表格中。
2、二、将excel代码复制进你的vba中
下面这段代码复制进你的开发工具下的visual basic 中
Private Sub CommandButton1_Click()
a = Cells(1, 1).Value
Dim arr(1 To 50)
For i = 1 To Len(a)
arr(i) = Mid(a, i, 1)
Cells(i + 1, 2).Value = arr(i)
Next i
m = 2
For i = 1 To Len(a)
For j = 1 To Len(a)
If j <> i Then Cells(m, 3).Value = arr(i) & arr(j): m = m + 1
Next j
Next i
n = 2
For i = 1 To Len(a)
For j = 1 To Len(a)
For k = 1 To Len(a)
If j <> i And j <> k And i <> k Then Cells(n, 4).Value = arr(i) & arr(j) & arr(k): n = n + 1
Next k
Next j
Next i
End Sub
3、三、获取你想要的名字
新建一个按钮，关联你的代码
点击按钮就可以获得你想要的名字序列了，然后从里面选择你想要的名字吧
是不是很有意思。
