要处理八个市土地类型的数据。。具体是筛选出某地类，然后将该市各县的该地类面积求总和，填入另一个表。。由于数据量较大，一个市细分为约十几个地类，所以想用编程来减少工作量。但是程序貌似有语法错误，求指点Sub culc() Dim myRow As Integer
myRow = 4

Sheets(1).Active
Sheets(2).Cells(myRow, 1) = SumIf(G, "有林地", W)
Sheets(2).Cells(myRow, 2) = SumIf(G, "灌木林地", W)
Sheets(2).Cells(myRow, 3) = SumIf(G, "茶园" OR "果园" OR "其他林地" OR "其他园地", W)
Sheets(2).Cells(myRow, 7) = SumIf(G, "水田", W)
Sheets(2).Cells(myRow, 8) = SumIf(G, "旱地", W)
Sheets(2).Cells(myRow, 9) = SumIf(G, "城市", W)
Sheets(2).Cells(myRow, 10) = SumIf(G, "村庄", W)
Sheets(2).Cells(myRow, 11) = SumIf(G, "采矿用地" OR "风景名胜及特殊用地" OR "港口码头用地" OR "机场用地" OR "建制镇" OR "设施农用地" OR "人工建筑用地" OR "铁路用地", W)
Sheets(2).Cells(myRow, 14) = SumIf(G, "裸地", W)
Sheets(2).Cells(myRow, 16) = SumIf(G, "河流水面" OR 沟渠, W)
Sheets(2).Cells(myRow, 17) = SumIf(G, "湖泊水面" OR "坑塘水面" OR "水库水面", W)
Sheets(2).Cells(myRow, 18) = SumIf(G, "内陆滩涂" OR "沼泽地", W)
Sheets(2).Cells(myRow + 1, 1) = Sheets(8).Cells(myRow, 1) + Sheets(8).Cells(myRow, 2) + Sheets(8).Cells(myRow, 3)
Sheets(2).Cells(myRow + 1, 4) = SumIf(G, "人工牧草地" OR "天然牧草地" OR "其他草地", W)
Sheets(2).Cells(myRow + 1, 7) = Sheets(8).Cells(myRow, 7) + Sheets(8).Cells(myRow, 8)
Sheets(2).Cells(myRow + 1, 9) = Sheets(8).Cells(myRow, 9) + Sheets(8).Cells(myRow, 10) + Sheets(8).Cells(myRow, 11)
Sheets(2).Cells(myRow + 1, 12) = Sheets(8).Cells(myRow, 14)
Sheets(2).Cells(myRow + 1, 16) = Sheets(8).Cells(myRow, 16) + Sheets(8).Cells(myRow, 17) + Sheets(8).Cells(myRow, 18)
End Sub