VBA动态品牌公式提取至AE列遇#N/A错误求助

看起来你卡在了排序后品牌与计数不匹配的问题上，而且你的Match/Index逻辑存在几个关键错误，才导致出现#N/A。咱们一步步拆解问题，找到解决方案：

问题根源分析 #

• 排序破坏了对应关系：你先给AF列写入公式，仅对AF列排序，但此时AE列是空的，排序后原Brand数组的顺序和AF列的行已经完全脱节，后续再想匹配品牌自然找不到对应项。
• Match函数的双重错误：你写的Application.Match(""" & Brand(i) & """, ws.Range("AF2:AF8"))有两个问题：
  • 循环结束后，i的值是UBound(Brand)+1，已经超出了Brand数组的范围，调用Brand(i)要么报错，要么取到错误的值。
  • AF列是COUNTIFS公式，不是品牌文本，你试图匹配公式里的字符串，这本身就找错了目标。
• Index参数逻辑错误：就算Match成功，Index(..., j, 0)会返回整行数据，并不是你需要的单个品牌值。

正确解决方案：先写入品牌，再同步排序 #

最直接的方法是在写入AF列公式的同时，把对应的品牌先写到AE列，然后对AE和AF列一起排序，这样品牌和计数会始终绑定在一起，不需要后续复杂的匹配操作。

修正后的完整代码：

' 显式声明变量类型，避免Variant带来的潜在问题
Dim i As Long
For i = LBound(Brand) To UBound(Brand)
    ' 先将品牌写入AE列对应行，和AF列的计数绑定
    Range("AE" & i + 2).Value = Brand(i)
    ' 写入AF列公式，用双引号代替Chr(34)，可读性更强
    Range("AF" & i + 2).Formula = "=COUNTIFS(C:C," & RTrim(Month(Mesyaz3)) & _
        ",H:H,""Headphones"",F:F,""" & Brand(i) & """)"
Next i

' 对AE和AF列同步排序，确保品牌与计数始终对应
Range("AE:AF").Sort Key1:=Range("AF2"), Order1:=xlDescending, Header:=xlYes

' 保留你需要的公式复制逻辑
ActiveSheet.Range("AG2:AG8").Formula = ActiveSheet.Range("AF2:AF8").Formula
ActiveSheet.Range("AH2:AH8").Formula = ActiveSheet.Range("AF2:AF8").Formula

额外优化建议 #

• 尽量用工作表对象引用单元格：比如ws.Range("AE" & i + 2)，避免误操作其他工作表。
• 如果Brand数组长度不固定，用UBound(Brand)-LBound(Brand)+1来动态确定行数，让代码更灵活。

这样修改后，AE列就会正确显示每个计数对应的品牌，不会再出现#N/A错误了。

内容的提问来源于stack exchange，提问作者D_ob_d