求excel vba大神帮助-经管之家官网!

人大经济论坛-经管之家 收藏本站
您当前的位置> 软件培训>>

ExcelVBA金融培训

>>

求excel vba大神帮助

求excel vba大神帮助

发布:¥天天天藍 | 分类:ExcelVBA金融培训

关于本站

人大经济论坛-经管之家:分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

经管之家新媒体交易平台

提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易,真正实现买卖双方的共赢。【请点击这里访问】

提供微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯等虚拟账号交易,真正实现买卖双方的共赢。【请点击这里访问】

要处理八个市土地类型的数据。。具体是筛选出某地类,然后将该市各县的该地类面积求总和,填入另一个表。。由于数据量较大,一个市细分为约十几个地类,所以想用编程来减少工作量。但是程序貌似有语法错误,求指点Su ...
坛友互助群


扫码加入各岗位、行业、专业交流群


要处理八个市土地类型的数据。。具体是筛选出某地类,然后将该市各县的该地类面积求总和,填入另一个表。。由于数据量较大,一个市细分为约十几个地类,所以想用编程来减少工作量。但是程序貌似有语法错误,求指点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
扫码或添加微信号:坛友素质互助


「经管之家」APP:经管人学习、答疑、交友,就上经管之家!
免流量费下载资料----在经管之家app可以下载论坛上的所有资源,并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库,各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里,你可以找到任何学科方向、有共同话题的朋友。
经管之家(原人大经济论坛),跨越高校的围墙,带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
本文关键词:

本文论坛网址:https://bbs.pinggu.org/thread-2342821-1-1.html

人气文章

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责;
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性,不作出任何保证或承若;
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
经管之家 人大经济论坛 大学 专业 手机版