设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 154|回复: 0

[待分类提问] 麻烦大神看下,下面的为什么 执行不了??

[复制链接]
发表于 2019-2-15 19:00:03 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

您需要 登录 才可以下载或查看,没有帐号?注册

x
Sub Demo()

Set sht = ActiveSheet
    For i = 1 To 1
       sht.Copy after:=Sheets(Sheets.Count)
    Next

    If ActiveSheet.Name = "1月" Then
         For x = 3 To 300
Range("bd" & x) = Range("bc" & x)
Range("bo" & x) = Range("bn" & x)
Range("bu" & x) = Range("bp" & x) + Range("bq" & x) + Range("br" & x) + Range("bs" & x) + Range("bt" & x)
  Range("bz" & x) = Range("bw" & x)   就是这里不执行,前面的都可以
         Next x
         End If
         If ActiveSheet.Name <> "1月" Then

          For x = 3 To 300
Range("bd" & x) = Range("bd" & x) + Range("bc" & x)
Range("bo" & x) = Range("bo" & x) + Range("bn" & x)
Range("bu" & x) = Range("bp" & x) + Range("bq" & x) + Range("br" & x) + Range("bs" & x) + Range("bt" & x) + Range("bu" & x)
Range("bz" & x) = Range("bz" & x) + Range("bv" & x) + Range("bw" & x) + Range("bx" & x) + Range("by" & x)
         Next x
         End If      

Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

上面的代码有点乱,水平有限,希望大神能出手优化下

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师

Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2 ) | 闽公网安备 35020302032608号  

GMT+8, 2019-3-23 06:27

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表