Excel VBA两两个体距离矩阵转化为数据库格式

一、功能

• 输入Excel数据样例：第一行、第一列分别代表研究个体，表格主体是距离矩阵，如下列数据中第二行、第三列表示ind1与ind2的距离。使用该VBA代码时需选中这一数据区域，然后再运行代码。

	ind1	ind2	ind3
ind1	NA	2	3
ind2	2	NA	5
ind3	3	5	NA

• 输出数据格式：程序会自动新建一个“Trans_result”工作表，其中数据格式如下：

ind1	ind2	Distance
ind1	ind2	2
ind1	ind3	3
ind2	ind3	5

• 警告：1、确保原始数据矩阵是对称阵，否则不符合实际意义；2、确保运行代码前，Excel中没有名为“Trans_result”的工作表(Worksheet)。

二、VBA代码

Sub mat_to_data()
    Dim Sht As Worksheet
    Dim Rng As Range