用于将混合的单元数据转换为交互矩阵的脚本

时间:2014-06-04 17:44:21

标签: excel excel-vba vba

我有来自Web of Science的书目数据,我需要将其配置为交互矩阵(基本上是作者一起工作的制表)。但是,单元格配置不好。

1: [Hussain, Raja Azadar; Badshah, Amin] Quaid I Azam Univ, Dept Chem, Coordinat Chem Lab, Islamabad, Pakistan; [Tahir, Muhammad Nawaz] Univ Sargodha, Dept Phys, Sargodha, Punjab, Pakistan; [Tamoor-ul- Hassan; Bano, Asghari] Quaid I Azam Univ, Phytoharmone Lab, Dept Plant Sci, Islamabad, Pakistan
2: [Shahida, Shabnam; Khan, Muhammad Haleem] Univ Azad Jammu & Kashmir, Dept Chem, Muzaffarabad, Ajk, Pakistan; [Ali, Akbar] Pakistan Inst Nucl Sci & Technol, Div Chem, Islamabad, Pakistan

我需要它看起来像这样:

1: Hussain, Raja Azadar, Quaid I Azam Univ, Dept Chem, Coordinat Chem Lab, Islamabad, Pakistan
1: Badshah, Amin, Quaid I Azam Univ, Dept Chem, Coordinat Chem Lab, Islamabad, Pakistan
1: Tamoor-ul- Hassan, Quaid I Azam Univ, Phytoharmone Lab, Dept Plant Sci, Islamabad, Pakistan
1: Bano, Asghari, Quaid I Azam Univ, Phytoharmone Lab, Dept Plant Sci, Islamabad, Pakistan
2: Shahida, Shabnam, Univ Azad Jammu & Kashmir, Dept Chem, Muzaffarabad, Ajk, Pakistan
2: Khan, Muhammad Haleem, Univ Azad Jammu & Kashmir, Dept Chem, Muzaffarabad, Ajk, Pakistan
2: Ali, Akbar, Pakistan Inst Nucl Sci & Technol, Div Chem, Islamabad, Pakistan

任何帮助将不胜感激!

1 个答案:

答案 0 :(得分:0)

Split on `; [` --> arr1
    For each element in arr1:
        Split on `]` --> arr2(0) and arr2(1)
            split arr2(0) on `;` -->arr3
                 For each element in arr3:
                      Combine arr3(x) with arr2(1) - put in cell
Loop till done