在Excel中，如何使用VBA写函数公式？

Question

如题，（AB列是导出数据）A列是人员姓名，B列是A列人员对应的角色信息。
现在，C列是A列人员姓名删除重复项后得到的结果，D列需要对B列的角色进行汇总。在一个表格中，如何操作！

有其他汇总方式也可以！

Answer 1

把提取字符的公式写入sheet2单元格
Sub aa()
Sheet2.Range("A1").Formula = "=left(sheet1!A1,5)"
End Sub
直接把结果写入sheet2单元格
sub aa()
sheet2.range("A1").value=left(sheet1.range("A1").value,5)
end sub