将INDEX MATCH公式转换为VBA代码并复制单元格格式

Question

使用适当的示例修改并更新了问题：

我有以下数据：

我使用此公式来过滤第一列中的值为 AA 的数据。

当单元格中没有值时，此公式给出零，并且还给出错误。

=INDEX(B$1:B$500;SMALL(IF($A$1:$A$500=$G$2;ROW(B$1:B$500));ROW(1:1));1)

所以我修改它以避免这些零和错误：

=IFERROR(IF(OR(ISERROR(INDEX(B$1:B$500;SMALL(IF($A$1:$A$500=$G$2;ROW(B$1:B$500));ROW(1:1));1));INDEX(B$1:B$500;SMALL(IF($A$1:$A$500=$G$2;ROW(B$1:B$500));ROW(1:1));1)=0);"";INDEX(B$1:B$500;SMALL(IF($A$1:$A$500=$G$2;ROW(B$1:B$500));ROW(1:1));1));"")

所以我试图避免，我得到的和我想要实现的目标如下所示：

该公式不复制细胞颜色。所以：

问题：
如何使用vba代码执行相同的操作？我也想复制单元格格式。该公式不会复制单元格格式。

的 here is the example sheet if you need to copy paste the data