VBA使用部分公式作为单元格值
VBA使用部分公式作为单元格值
提问于 2020-03-09 22:56:49
我的项目失败了
我有动态变化的可变品牌的公式(AF列)。基本上，我想要的是将Brands提取到公式列旁边的(AE)列中，以方便查看
For i = LBound(Brand) To UBound(Brand)
Range("AF" & i + 2).Formula = "=COUNTIFS(C:C," & RTrim(Month(Mesyaz3)) & _
",H:H,""Headphones"",F:F," & Chr(34) & Brand(i) & Chr(34) & ")"
Next i
Range("AF: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
Dim ws As Worksheet
Set ws = Worksheets(1)
Dim j As Variant
j = Application.Match(""" & Brand(i) & """, ws.Range("AF2:AF8"))
ActiveSheet.Range("AE2").Value = Application.Index(ws.Range("AF2:AF8"), j, 0)我得到的#N/A已经为此损失了两天。会非常感谢任何能帮上忙的人。
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-03-09 23:19:55
从你的问题看，你想要的输出并不是很清楚，但这里有一个猜测：
For i = LBound(Brand) To UBound(Brand)
Range("AF" & i + 2).Formula = "=COUNTIFS(C:C," & RTrim(Month(Mesyaz3)) & _
",H:H,""Headphones"",F:F," & Chr(34) & Brand(i) & Chr(34) & ")"
Range("AE" & i + 2).Value = Brand(i)
Next i
Range("AE:AF").Sort Key1:=Range("AF2"), Order1:=xlDescending, Header:=xlYes我添加了一行代码来将品牌写入AE，并修改了Sort以适应这一点。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60603154
复制相关文章
相似问题
腾讯云开发者
