Excelmacros将数据从一个表格移动到另一个基于列名称和单元格的内容

我有一个工作表1，标有参与者的列和标记为1-20（实验ID号码）的列。

我有另一个工作表2，其中包含参与者（专栏）的数据和他们参与的实验（专栏）。

我需要做的是在worksheet2中的相应的单元格中放置一个“X”，在工作表1。

这里有一些图片显示我的意思：

Answer 1

你应该使用数据透视表。 它会得到你正是你在找什么。

Row Label: Participant Col Label: Experiment Values: Count of Experiment 

然后你需要用查找/replace（手动或者用macros）把所有的“1”改成“X”：

 Range(pivottablecells).Replace("1", "X")