查看: 2523|回复: 8
该用户从未签到
马上注册中国会计社区，结交天下会计同行好友，享用更多会员功能
才可以下载或查看，没有帐号？
新手，我们公司和A公司互相拿货，这个月我们向对方进了5000元货，我们卖了10000元的货给对方，对方公司会计叫我们开5000元发票给他们，他们公司就不开票给我们了，说这样发票对冲就可以了，这样操作可以吗，不违法吗？
中国会计社区官方微信公众号：会计通。
该用户从未签到
应该不行的，你们对冲不可以的，让他们给你们开5000发票，你们给他们开10000，要不然你的成本和收入不批配，如果税务核查是有问题的，如果不查还就是运气，不过今年不查以后也不能保证不查！！
中国会计社区官方微信公众号：会计通。
该用户从未签到
对方还理直气壮的说是老会计，和很多公司都是这么做的，谢谢楼上的回答~
中国会计社区官方微信公众号：会计通。
签到天数: 1059 天[LV.10]笑傲江湖
各开各的发票，应收账款到是可以对冲
中国会计社区官方微信公众号：会计通。
签到天数: 104 天[LV.6]武林高手
我觉得不可以，如果以后都这样，你只有收入没有成本了
中国会计社区官方微信公众号：会计通。
该用户从未签到
其实吧，如果就这一次，也就算了，问题不大，如果每个月都有或是一年有好几次或是金额比较大那就真的要问一下你们老板同不同意！如果有问题以后不好解释！
中国会计社区官方微信公众号：会计通。
签到天数: 106 天[LV.6]武林高手
税务师考试教材税法二中的所得税法规定：纳税人采取以货易货方式销售货物的，必须视同正常的销售，各自开具销售发票，结转各自的成本。
这也就是中级会计实务中所说的非货币资产交换，账务处理的原则是视同销售，确认收入、成本。
税务和会计在这一点上是没有税会差异的。
中国会计社区官方微信公众号：会计通。
签到天数: 3 天[LV.2]人海孤鸿
对方当然乐意，他们得到了进项票可以抵扣
中国会计社区官方微信公众号：会计通。
头像被屏蔽
该用户从未签到
提示: 作者被禁止或删除 内容自动屏蔽
中国会计社区官方微信公众号：会计通。工程施工工程结算对冲来自: x5tgb 日分享至 :
工程施工与工程结算对冲是怎么一回事？推荐回答：1科目性质的问题，这两个科目是施工企业单独的，其他的企业核算中是没有的，按照建造合同准则，工程施工下面一般设施合同成本与合同毛利这两个科目，在工程存续期间来归集发生成本费用及与合同发包方结算金额，也就是过渡性的科目。我们知道确认主营业务收入时：借主营业务成本
贷主营业务收入。到完工时，工程施工反映的是你合同成本（主营业务成本）跟合同毛利（毛利）的总额，工程结算反映的是你结算的总额（主营业务收入的总额），工程施工、工程结算的科目性质是资产、负债吗、所有者权益、成本、费用等科目性质吗？不能明确的说是与不是。在资产负债报表中，在未竣工结算施工的过程中，工程施工与工程结算比较大小，分别反映在资产负债表中的存货或预收账款中，工程竣工结算完成后，就不是了。这两科目的应运，主要是因为建造合同产品的生产时间长，且成本确认与结算的时间差异、不对性，为了解决这一特殊核算问题，就使用了这两科目，完工后，为了和其他行业企业账表等会计信息、指标统一性，对此进行了对冲。 2顺便还可以检查你在施工持续过程中建造合同收入、成本、毛利的准确性。这两者之间是有勾稽关系的
就是完工时，工程施工（含合同成本与毛利）等于工程结算金额，对冲后余额为0.哪位清楚工程结算与工程施工的区别？推荐回答：什么是工程结算：工程结束，将工程发生的变更进行计价，算出曾、减项合入施工合同的原预算价的过程，就是结算过程。简称：结算。完成的成果称：结算报告。 工程施工：依照施工合同和施工图进行的工程建设过程较：工程施工。 同是一个项目完成的两个不同阶段。你好，很荣幸回答你的问题，工程结束，将工程发生的变更进行计价，算出曾、减项合入施工合同的原预算价的过程，就是结算过程。简称：结算。完成的成果称：结算报告，工程施工：依照施工合同和施工图进行的工程建设过程较：工程施工。1、
工程结算和工程施工都是成本类科目。对于这两个科目来说，建议您按照下面内容进行掌握： 5401
一、本科目核算企业（建造承包商）实际发生的合同成本和合同毛利。
二、本科目应当按照建造合同，分别“合同成本”、“间接费用”、“合同毛利”进行明细核算。
三、工程施工的主要账务处理
（一）企业进行合同建造时发生的人工费、材料费、机械使用费以及施工现场材料的二次搬运费、生产工具和用具使用费、检验试验费、临时设施折旧费等其他直接费用，借记本科目（合同成本），贷记“应付职工薪酬”、“原材料”等科目；发生的施工、生产单位管理人员职工薪酬、固定资产折旧费、财产保险费、工程保修费、排污费等间接费用，借记本科目（间接费用），贷记“累计折旧”、“银行存款”等科目。
月末，将间接费用分配计入有关合同成本时，借记本科目（合同成本），贷记本科目（间接费用）。
（二）根据建造合同准则确认合同收入、合同费用时，借记“主营业务成本”科目，贷记“主营业务收入”科目，按其差额，借记或贷记本科目（合同毛利）。
（三）合同完工时，将本科目余额与相关工程施工合同的“工程结算”科目对冲，借记“工程结算”科目，贷记本科目。
四、本科目期末借方余额，反映企业尚未完工的建造合同成本和合同毛利。
一、本科目核算企业（建造承包商）根据建造合同约定向业主办理结算的累计金额。
二、本科目应当按照建造合同进行明细核算。
三、企业向业主办理工程价款结算时，按应结算的金额，借记“应收账款“等科目，贷记本科目。
合同完工时，将本科目余额与相关工程施工合同的“工程施工”科目对冲，借记本科目，贷记“工程施工”科目。
四、本科目期末贷方余额，反映企业尚未完工建造合同已办理结算的累计金额。 另外，“工程结算”科目在资产负债表中应作为“工程施工”科目的抵销科目，因为工程结算科目核算企业（建造承包商）根据建造合同约定向业主办理结算的累计金额。企业向业主办理工程价款结算，按应结算的金额，借记“应收账款”等科目，贷记本科目。合同完工时，应将本科目余额与相关工程施工合同的“工程施工”科目对冲，借记本科目，贷记“工程施工”科目。 总之，工程结算和工程施工您可以看做是过渡科目，最后工程完工时要将两个科目结平所以对冲。工程施工大于工程结算的差额列示为流动资产，工程施工小于工程结算的差额列示为流动负债。工程施工和工程结算一般对冲后如果工程施工有余额，在资产负债表存货项目反映，如果工程结算科目有余额，则在预收款项项目列示。哪位知道，工程施工工程结算区别在哪推荐回答：工程施工与工程结算都属工程结算属于“过度性”科目，也可以说是“成本核算类”科目，在日常核算中出现，既：月末将本期的结算收入与本期的费用相抵消后，将抵消后的余额结转到本期利润科目，然后工程结算与工程费用就不存在了，而上述两者的差额就是毛利，他属于“所有者权益科目”。什么是工程结算：工程结束，将工程发生的变更进行计价，算出曾、减项合入施工合同的原预算价的过程，就是结算过程。简称：结算。完成的成果称：结算报告。 工程施工：依照施工合同和施工图进行的工程建设过程较：工程施工。 同是一个项目完成的两个不同阶段。“工程施工”和“工程结算”科目是施工企业所特有的科目，其核算有一定的特殊性。《企业会计准则——应用指南2006》规定：“工程施工”科目期末借方余额反映企业尚未完工的建造合同成本和合同毛利；“工程结算”科目是用来核算施工企业根据建造合同约定向业主办理结算的累计金额，期末贷方余额反映企业尚未完工建造合同已办理结算的累计金额。工程完工后，“工程施工”和“工程结算”两科目对冲，对冲之后无余额。工程施工与工程结算是怎么回事？推荐回答：工程施工
工程的施工阶段 工程结算是指施工企业按照承包合同和已完工程量向建设单位(业主)办理工程价清算的经济文件。工程建设周期长，耗用资金数大，为使建筑安装企业在施工中耗用的资金及时得到补偿，需要对工程价款进行中间结算(进度款结算)、年终结算，全部工程竣工验收后应进行竣工结算。
在会计科目设置中，工程结算，为建造承包商专用的会计科目。
工程结算是工程项目承包中的一项十分重要的工作。 全名为工程价款的结算，是指施工单位与建设单位之间根据双方签订合同(含补充协议)进行的工程合同价款结算。 工程结算又分为:工程定期结算、工程阶段结算、工程年终结算、工程竣工结算。外墙漆工程施工合同谁有？推荐回答：外墙涂料施工合同书 甲方：
乙方： 甲、乙双方经友好洽谈和协商，甲方决定将公司所有外墙涂料粉刷工程承包给乙方。为明确双方的权利和义务，根据国家有关法律规定，特签订本合同，以便共同遵守。 第一条
工程概况 1.工程地址：
2.施工内容：外墙涂料粉刷
，总面积约
立方米。 3.工程开工日期：______年______月______日 4.工程竣工日期：______年______月______日 5.工程承包方式：包工包料。 6.工程总天数：
天,雨天顺延。 第二条 工程价款 工程价款按照每平方米
元计算（大写）
元，以实际测量面积计算）。增加工程，增加造价；减少工程，减少造价。 第三条
质量要求 1.工程使用主要材料的品种、规格、名称，经双方认可。 2.工程验收标准：所有外墙面1.2米高做咖啡色，1.2米以上用蓝色。老办公楼和销售部办公楼全部做咖啡色墙面 3.施工中，甲方如有特殊施工项目或特殊质量要求，双方应确认，增加的费用，应另签订补充合同。 4.凡由乙方采购的材料，产品质量由乙方自负；包括施工质量由乙方负责。 5、乙方要精心施工，确保颜色一致，如不能保持颜色一致，其返工所需材料和工程款全部由乙方自行承担，甲方不承担任何责任。 第四条
乙方提供的材料如不符合质量要求，或规格有差异，应禁止使用。如已使用，对工程造成的损失均由乙方负责。 第五条
付款方式 合同签订后，甲方在工程开工时付
％的工程款；工程竣工验收合格，双方进行结算，乙方开具发票后，甲方在三个月内支付
%的工程款，剩余的
%工程款作为工程质量保证金，在工程质量保证期（自验收之日起壹年）内没有质量问题，质量保证期满后
日内一次性付清。 第六条
工程工期 乙方应按期完工，如果延迟完工，每逾期一天，从总工程款中扣除200元。 第七条
工程验收 双方按本合同第三条约定的验收标准进行验收。 第八条
其他事项 本合同为工程承包合同，甲乙双方无雇佣关系。 乙方在承包过程中应严格执行国家安全生产法律法规及施工规程，做到安全生产，文明施工。乙方在承包过程中发生的所有事故责任均由乙方自行承担，因事故导致的人身损害和财产损失及其他所有损失均由乙方负责赔偿，甲方不承担任何责任和赔偿。 第九条
违约责任 合同生效后，在合同履行期间，擅自解除合同方，使对方造成的实际损失超过违约金的，应进行补偿。 第十条
争议解决 本合同履行期间，双方如发生争议，由双方协商解决。协商解决不成的，可向人民法院提起诉讼。 第十一条
本合同自双方盖章或签字后生效。 第十二条
本合同一式二份，甲乙双方各执壹份。 甲方（盖章）：
委托代理人： 签约日期：
日谁有小型建设工程施工合同？推荐回答：这里给你一个范本吧。 北京市建设工程施工合同 （小型工程本）
方：_______________________________________________ 承
方：_______________________________________________ 工程名称：_______________________________________________ 工程地点：_______________________________________________ 建筑面积：_________________
平方米；层数：_______________ 结构类型：________________
；檐高/跨度：________________米 批准文号：（有权机关批准工程立项的文号）_________________ 工程性质：（指基建、技改、合资等）：_____________________ 承包范围：_______________________________________________ 承包方式：_______________________________________________ 质量等级（优良或合格）：_________________________________ 工程承包造价（金额大写）：_______________________________ ￥：_____________________________
北京市工商行政管理局
北京市城乡建设委员会
一九九五年八月
北京市建设工程施工合同（小型工程本）是依据《建设工程施工合同示范文本》（GF一99-0201）拟定的，适用于建筑面积在2000平方米以内或承包造价在50万元以内的建筑工程。
北京市建设工程施工合同协议条款
依照《中华人民共和国合同法》、《中华人民共和国建筑法》及其它有关法律、行政法规，就本项工程建设有关事项，遵循平等、自愿、公平和诚实信用的原则，经双方协商达成如下协议：
第1条 工期 1·1
本合同工程定于____年____月____日开工；于____年____月____日竣工。合同工期日历天数为____天
。工期如需提前，按约定的开、竣工日期计算的合同工期总天数为_____天。 1·2 承包方为提前工期采取的相应措施及因此增加的经济支出：______________________________________________________________________________________________________ 1·3
工期提前或延误的奖罚，由双方协商后在合同中约定：________________________________________________ ______________________________________________________________________________________
第2条 图纸 发包方于_____年_____月_____日，向承包方提供_____套图纸。
第3条 发包方、承包方驻工地代表。 发包方工程师姓名：___________
； 项日经理姓名：_______________
第4条 发包人工作 开工前办理完毕土地征用，青苗、树木赔偿，坟地迁移，房屋、构筑物拆迁，地上及架空、地下障碍物清除，将施工所需水、电线路、道路接通至施工现场，并保证施工期间的需要，向承包方提供施工现场工程地质和地下管网线路资料，提交办理有关证件、批件的合法手续，将水准点与座标控制点位置以书面形式提交给承包方，并于现场交验，协调、处理施工现场周围建筑物、构筑物（含文物保护建筑）、古树名木和地下管线的保护及施工扰民问题，合同签订后______天内组织会审图纸和设计交底，在收到承包方提供的施工组织设计（或施工方案）和进度计划后_______天内予以确认。凡在有毒有害环境中施工时，发包方按有关规定提供相应的防护措施，并承担相关的经济支出。
第5条 承包人工作 5·1
每月_______日向发包方报送月度施工计划和己完工程进度统计报表。 5·2
遵守国家及本市有关部门对施工现场的交通和施工噪音等管理规定，负责安全保卫、清洁卫生等各项工作，做好施工现场周围建筑物、构筑物
（含文物保护建筑）、古树名木和地下管线的保护。发现地下障碍和文物时，及时报告有关部门并采取有效保护措施，按有关具体规定处置，发包方承担由此发生的费用，延误的工期相应顺延。在图纸会审和设计交底后________天内向发包方提交施工组织设计
（或施工方案）和进度计划。 承包方不按合同约定完成各项工作时，应承担由此造成的经济损失，工期不予顺延。
第6条 工程质量检查及验收。 6·1
当工程具备覆盖、掩盖条件或达到中间验收部位以前，承包方自检，并于48小时前通知发包方参加，验收合格，发包方在验收记录上签字后，方可进行隐蔽和继续施工。工程质量符合规范要求，发包方不在验收记录签字，可视为发包方己经批准，承包方可进行隐蔽或继续施工。验收不合格，承包方在限定时间内修改后重新验收。因发包方不正确纠正或其它非承包方原因引起的经济支出，由发包方承担。检验不应影响施工正常进行，如影响施工正常进行，检验不合格，影响正常施工的费用由承包方承担。除此之外影响正常施工的经济支出由发包方承担，相应顺延工期。 6·2
工程具备竣工验收条件，承包方按国家和本市工程竣工有关规定，向发包方提供完整竣工资料和竣工验收报告，发包方10天内组织验收。发包方不能按约定日期组织验收，应从约定期限最后一天的次日起承担工程保管责任及应支付的费用。 发包方、承包方办理工程竣工验收手续后，发包方于5日内按有关规定向质量监督机构申报竣工工程质量备案本合同即告终止。承包人应按法律、行政法规或国家关于工程质量保修的有关规定，对交付发包人使用的工程在质量保修期内承担质量保修责任。
第7条 设计变更及合同价款的调整 7·1
施工中发包方对原设计进行变更，经批准后，发包方应在变更前10天向承包方发出书面变更通知，否则，承包方有权拒绝变更。承包方按通知进行变更，并于5天内，根据约定的可调整承包方式提出变更价款报告的完整资料，因变更导致的经济支出和承包方损失，由发包方承担，发包方收到变更价款报告之日起5天内予以签认，无正当理由不签认时自变更价款报告送达之日起5天后自行生效，由此延误的工期相应顺延。 7·2
本工程按可调整的承包方式对承包造价作如下调整：_________________________________________________________________________________________________________________________________________
第8条 工程价款及结算 8·1
双方按国家和本市有关主管部门现行规定，在合同生效后，发包方按下表约定分_____次向承包方预付或支付工程款，发包方不按时拨付工程款，从应付之日起承担应付款的利息。
┌────────────────────┬──────────────┬──────────┐ │拨付工程款时间(工程进度、部位)│占合同承包造价百分比│金额人民币(元)
│ ├────────────────────┼──────────────┼──────────┤ │
│ │ │ ├────────────────────┼──────────────┼──────────┤ │
│ │ │ ├────────────────────┼──────────────┼──────────┤ │
│ │ │ ├────────────────────┼──────────────┼──────────┤ │
│ │ │ └────────────────────┴──────────────┴──────────┘
第9条 材料设备的供应。 9·1
发包方按双方约定的《发包方供应材料设备一览表》（附后）供应材料设备，如与《一览表》不符时，承担相应违约责任。 9·2
发包方、承包方双方应对各自负责供应的材料设备，提供产品合格证明；如与设计和规范要求不符的产品，重新采购符合要求的产品，各自承担由此发生的费用。 9·3
承包方需使用代用材料时，须经发包方代表批准方可使用，由此增减的费用双方议定。
第10条 争议 发包方、承包方双方发生争议时，可以通过协商或者申请施工合同管理机构会同有关部门调解。不愿调解或调解不成的，可以采取下列一种方式解决： 第一种争议解决方式：向_____________仲裁委员会申请仲裁； 第二种争议解决方式：向_____________人民法院起诉。
双方约定按第____________种争议解决方式解决。
第11条 违约 发包方或承包方不能按本协议条款约定内容履行自己的各项义务及发生使合同无法履行的行为，应承担相应的违约责任，包括支付违约金，赔偿因其违约给对方造成的全部经济损失。 除非双方协议将合同终止，或因一方违约使合同无法履行，违约方承担上述违约责任后仍应继续履行合同。
第12条 合同份数。本合同正本两份具有同等效力，由发包方承包方双方分别保存；副本_______份。
第13条 补充条款如下：_____________________________________________________________________________
____________________________________________________________________________________________________
____________________________________________________________________________________________________
工程发包方供应材料设备一览表 ┌────┬──────────┬─────┬───┬───┬──┬──────┬─────┬───┐ │序号 │材料或设备名称│规格型号│单位│数量│单价│供应时间│送达地点│备注│ ├────┼──────────┼─────┼───┼───┼──┼──────┼─────┼───┤ │ │ │ │ │ │ │ │ │ │ ├────┼──────────┼─────┼───┼───┼──┼──────┼─────┼───┤ │ │ │ │ │ │ │ │ │ │ ├────┼──────────┼─────┼───┼───┼──┼──────┼─────┼───┤ │ │ │ │ │ │ │ │ │ │ ├────┼──────────┼─────┼───┼───┼──┼──────┼─────┼───┤ │ │ │ │ │ │ │ │ │ │ ├────┼──────────┼─────┼───┼───┼──┼──────┼─────┼───┤ │ │ │ │ │ │ │ │ │ │ ├────┼──────────┼─────┼───┼───┼──┼──────┼─────┼───┤ │ │ │ │ │ │ │ │ │ │ └────┴──────────┴─────┴───┴───┴──┴──────┴─────┴───┘
本合同订立时间： 年 月 日（即日起生效）
（章） 承包方（章） 地址： 法定代表人： 委托代理人： 电话： 开户银行： 帐号： 邮政编码：谁有解除建设工程施工合同？推荐回答：解除建筑施工合同协议书
（以下简称甲方）
（以下简称甲方）
乙方于2011年
房地产有限公司”
签订了《xxx工程承包合同及其补充协议》，包括本协议书前甲、乙双方针对本工程签订的所有合同、补充协议书等合法有效文件（以下统称为“原合同”），依照《中华人民共和国合同法》、《中华人民共和国建筑法》及其他有关法律、行政法规、遵循平等、自愿、公平和诚实信用的原则，双方就施工合同解除事项协商一致，达成以下协议。
一、乙方自愿同意解除“原合同中所有承包的施工项目”。
二、乙方的关联文件及对本工程所签订的涉及到甲方义务各项合同、还包
括在执行中甲方所担保的责任项目同时解除。
三、乙方在本项目中所发生的债权债务均由乙方负责自行解决、并承担因此所引起的一切责任、甲方不承担任何连带责任。
四、乙方必须完善己完成的工程项目验收工作、如未达到验收标准、必须急时采取相关措施、至到验收合格为准。
五、乙方必须按照甲方、监理公司、职能部门的要求提供完整的工程验收资料（承包范围内已完成部分的工程竣工验收所需资料）、经监理和职能部门审核签章后、
日前将所需的资料整理成册（不装订）、移交给甲方。
六、乙方“原合同”中所承包的工作内容中已完成工作量经甲、乙双方现场实测后以文书形式双方签字确认为准。
undefined 七、工程结算按原合同所议定的条款执行、以造价咨询有限公司的审计结果，作为乙方“原合同”此期间所完成工作内容的最终结算。
八、最终结算报告经甲、乙双方签字认同后、再签订甲、乙双方欠款还款协议书、确定还款时间。
九、工程款支付：甲、乙双方对本工程所支付的各项费用，包括甲方担保费用、按财务要求对帐并予以确认、并按要求开具正规税务发票、否则，甲方有权不支付有关工程款项。
十、“原合同”履约保证金：在乙方按甲方财务要求确认并完成本协议约定内容后，与工程结算款一并返还。
十一、解除合同签订后，施工单位应先行无条件退场、同时移交符合档案要求的全部资料、已完成的工程量由双方在场外进行结算。
十二、解除合同签订后，甲方重新安排施工单位进行本项目继续施工、乙方不得以任何理由进入施工现场干扰、否则、造成一切后果均由乙方负责。
十三、解除合同后并不免除承包人对已施工部分的工程质量责任和保修责任以及合同履行过程中的违约责任。
十四、乙方已与相关班组签订的施工合同（含正在履行或即将履行的合同）由乙方与其协商解除，甲方不承担乙方与班组之间因合同纠纷产生的一切后果
十五、本协议书自双方签字、盖章之日起生效。
十六、本协议书一式五份，甲方两份，乙方两份，监理公司一份。
甲方（盖章）：
乙方（盖章）：
法定代表人（签章）：
法定代表人（签章）：
日签订分享至 :
下一篇：上一篇：相关帖子相关文章--工程施工工程结算对冲中国证监会核准的独立基金销售机构
同公司旗下基金
嘉实对冲套利定期开放混合&&&（基金代码：000585）
最新净值（）
基金类型&:&&
成立日期&:&&
基金经理&:&& 刘斌 龙昌伦
累计净值&:&&1.0730
申购状态&:&&暂停申购
资产规模&:&&3.34亿元
累计分红&:&&--
赎回状态&:&&暂停赎回
份额规模&:&&3.10亿份
客服服务热线：400-&&&服务时间：工作日 9:30-18:30&&&客服邮箱：s-yixinfund-
京ICP备号-1 版权所有&Copyright ?
宜信普泽投资顾问（北京）有限公司查看: 420|回复: 6
如何对不同单据号进行金额的对冲
阅读权限20
在线时间 小时
(61.6 KB, 下载次数: 10)
18:11 上传
点击文件名下载附件
需求如附件，十分感谢！
阅读权限30
在线时间 小时
Sub a()
k = [a65536].End(xlUp).Row
For i = k To 3 Step -1
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 5) + Cells(i - 1, 5) = 0 And Cells(i, 7) + Cells(i - 1, 7) = 0 Then
& &Rows(i & &:& & i - 1).Delete
& &i = i - 1
End If
Next
End Sub复制代码
阅读权限20
在线时间 小时
非常感谢，不过数据有几万条，怎样能代码效率更高一些呢？谢谢。
鲜花送没了，后面再补，再次感谢。
阅读权限30
在线时间 小时
在for循环前面添加application.screenupdating=false，代码末尾添加application.screenupdating=true
阅读权限20
在线时间 小时
Option Explicit
Sub chuli()
& & Dim i&, nrow&, arr1(), brr1(), n&
& & Dim dic As Object
& &
& & nrow = Sheet1.Range(&A65536&).End(xlUp).Row
& & ReDim arr1(nrow - 2)
'& & arr1 = Range(&a2:a& & nrow).Value
& & ReDim brr1(nrow, 1 To 2)
& & Set dic = CreateObject(&scripting.dictionary&)
& &
& & For i = 0 To nrow - 2 Step 1
& && &&&arr1(i) = Cells(i + 2, 1).Value
& && &&&If dic.exists(arr1(i)) Then
& && && && &n = dic(arr1(i))
& && && && &brr1(n - 2, 2) = brr1(n - 2, 2) & &,& & (i + 2)
& && &&&Else
& && && && &dic(arr1(i)) = i + 2
& && && && &brr1(i, 1) = arr1(i)
& && && && &brr1(i, 2) = i + 2
& && &&&End If
& &
& & Next i
& &
& & Dim crr1() As String, err1(), k&
& & Dim a&, b&, j&
& &
& & For j = 0 To UBound(brr1())
& &
& && &&&If brr1(j, 2) && && Then
& && && && &
& && && && &crr1 = Split(brr1(j, 2), &,&)
& && && && &If UBound(crr1()) & 0 Then
& && && && && & If UBound(crr1()) = 1 Then
& && && && && && &&&If Cells(crr1(0), 5) + Cells(crr1(1), 5) = 0 And Cells(crr1(0), 7) + Cells(crr1(1), 7) = 0 Then
& && && && && && && && &k = k + 2
& && && && && && && && &ReDim Preserve err1(k)
& && && && && && && && &err1(k - 2) = crr1(0)
& && && && && && && && &err1(k - 1) = crr1(1)
& && && && && && &&&End If
& && && && && & Else
& && && && && && &&&For a = 0 To UBound(crr1)
& && && && && && && && &For b = 1 To UBound(crr1)
& && && && && && && && && &&&If Cells(crr1(a), 5) + Cells(crr1(b), 5) = 0 And Cells(crr1(a), 7) + Cells(crr1(b), 7) = 0 Then
& && && && && && && && && && &&&k = k + 2
& && && && && && && && && && &&&ReDim Preserve err1(k)
& && && && && && && && && && &&&err1(k - 2) = crr1(a)
& && && && && && && && && && &&&err1(k - 1) = crr1(b)
& && && && && && && && && & End If
& && && && && && && && &Next b
& && && && && && &&&Next a
& && && && && & End If
& && && && &End If
& && &&&End If
& && &&&
& && &&&
& && &&&
& &
& & Next j
& &
& & Dim str1 As String
& &
& & Dim dic1 As Object
& & Set dic1 = CreateObject(&scripting.dictionary&)
& &
& & For i = 0 To UBound(err1())
& &
& && &&&If dic1.exists(err1(i)) Then
& && &&&
& && &&&Else
& && && && &dic1(err1(i)) = i
& && &&&End If
& &
& & Next i
& &
& & Dim frr1()
& &
& & frr1 = dic1.keys
& &
& & For i = UBound(frr1()) To 0 Step -1
& && && &If frr1(i) && && Then
& && && && &str1 = &&
& && && && &
& && && && &str1 = frr1(i) & &:& & frr1(i)
& && && && &
& && && && &Range(str1).Delete Shift:=xlUp
& && && && &
& && && && &
& && && && &
& && && &End If
& & Next i
& &
End Sub
复制代码
阅读权限95
在线时间 小时
& & ar = Range(&A1&).CurrentRegion: m = 1
& & On Error Resume Next
& & For i = 3 To UBound(ar)
& && &&&If ar(i, 1) = ar(i - 1, 1) And ar(i, 5) + ar(i - 1, 5) = 0 And ar(i, 7) + ar(i - 1, 7) = 0 Then
& && && && &For j = 1 To UBound(ar, 2)
& && && && && & ar(i, j) = 0: ar(i - 1, j) = 0
& && && && &Next
& && &&&End If
& & For i = 2 To UBound(ar)
& && &&&If ar(i, 1) && 0 Then
& && && && &m = m + 1
& && && && &For j = 1 To UBound(ar, 2)
& && && && && & ar(m, j) = ar(i, j)
& && && && &Next
& && &&&End If
& & Sheet2.Range(&A1&).Resize(m, 7) = ar
阅读权限95
在线时间 小时
&&&&&&&&&&&&&&&&&&&&&&&&&&&&
19:03 上传
点击文件名下载附件
20.1 KB, 下载次数: 6
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师