在VBA中获取类型不匹配错误

Question

我有一个代码，如下：

Public Sub Match()

    ThisWorkbook.Sheets("Sheet1").Activate

    Range("Data!H8") = Application.Sum(Application.Index(Range("A:GH"), 0, Application.Match("ORDERS" & "Country", Range("B2:B100") & Range("A2:GH2"), 0)))

End Sub

当我运行此代码时，我收到错误“Type Mismatch”。任何人都可以帮我吗？ enter image description here

Answer 1

你要做的是做什么。但由于数据的表示方式，这并不简单。以下是我如何实现目标的一个例子。

我使用第一栏作为你想要总结的国家。   - I3我搜索这个返回列号的国家。   - I4我把这个号码换成了字母   - I5执行sumifs公式（使用间接公式告诉它使用找到的列（本例中为C）作为总和列。其中列“A”=“orders”

使用的Forumlas在第J列。