我们在手机中备份联系人时，可以将电话号码打包成一个vcf文档，也可以将vcf文档导入到手机中，恢复联系人。

那么在excel中，如何将成百上千的电话号码打包成vcf呢？如果你了解VBA，那么就能实现。

先看看效果视频：

可以生成多个vcf文件，在弹出框中设置每个vcf文件包含的电话号码的个数就可以。

视频加载中...

一、数据表：

下面是无数个电话号码，我们要把这些号码打包成vcf文件，然后导入手机中。

二、全部代码：

三、代码说明：

1、第一个要点就是 k = InputBox("输入每组的联系人个数") ，这句代码的作用是通过文本框输入每个vcf包含电话号码的个数。当然如果你只需要打包成一个vcf，那么这句代码就不需要。

2、第二个要点：For t = 0 To Int(j / k) 通过for循环，写入多个vcf，int(j/k)意思是生成vcf文件的个数。这里笔者完全是秀技能，如果你只需生成一个文件，那么就简单多了。请接着往下看。

3、这句可能有人不理解：

OutFilePath = VBA.Environ$("UserProfile") & "\Desktop\第" & t + 1 & "组联系人.vcf"

意思是将生成的vcf文件设置文件名和存放路径，这里是动态文件名，并且放在桌面上。

4、开始写入内容：

以上就是全部内容，有疑问欢迎到评论区讨论。需要源文件可以私信。