=HYPERLINK("tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=QQ号码","开始对话")
使用方法：
在单元格中输入上述公式，并把 QQ号码 替换成你的好友号码，然后点击生成的链接，就会直接打开QQ聊天界面，当然你的QQ软件需要在开启的状态。
公式原理：
HYPERLINK函数可以在excel单元格中建立指向特定目标的超链接，可以是excel任一文件的任一个单元格，也可以是网址。上述公式就是建立和腾迅的即时聊天网址的链接。“开始对话”是在单元格显示的文字。
附烟花版主提供的利用VBA打开聊天界面的代码，懂VBA的同学可以收藏一下。
Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpszOp As String, _
ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal LpszDir As String, ByVal FsShowCmd As Long) _
As Long
Sub teset()
ShellExecute 0, "open", "tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=QQ号码", vbNullString, vbNullString, 1
End Sub