如何用excel给你的宝宝取名

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、三、获取你想要的名字

新建一个按钮，关联你的代码

点击按钮就可以获得你想要的名字序列了，然后从里面选择你想要的名字吧

是不是很有意思。