excel vba 学习

1、vba中可以用&连接字符串，比如 MsgBox "你好" & 123 & "!" 

2、求两点（3维）距离函数

表格中存放数据为

录制宏，宏中代码如下：

Function calc_dist3(c1 As Range, c2 As Range) As Double

p1 = Split(c1, ",")
p2 = Split(c2, ",")

x1 = CDbl(p1(0)) '把结果转换为 Double 型
y1 = CDbl(p1(1))
z1 = CDbl(p1(2))

x2 = CDbl(p2(0))
y2 = CDbl(p2(1))
z2 = CDbl(p2(2))

calc_dist3 = (x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2) + (z1 - z2) * (z1 - z2)

End Function