修改和完善录制宏的代码

WYS67

各位大神：下边是我自己录制的一段宏代码：能够把网上的开奖数据，复制粘贴到 完善和修改录制宏的代码.zip (41.59 KB, 下载次数: 3)

2018-7-8 23:48 上传

点击文件名下载附件

《数据录入》中从A5开始的固定区域，并进行计算。代码如下：
Sub 幸运魔方()
'
' 开奖数据录入 宏
'


'
    Application.Goto Reference:="INDIRECT(R2C11)"
    Selection.ClearContents
    Range("K4").Select
    Selection.AutoFill Destination:=Range("K4:K500"), Type:=xlFillDefault
    Range("K4:K500").Select
    Calculate
    Application.Goto Reference:="INDIRECT(R3C11)"
    Selection.Copy
End Sub


    我现在想要在每次开始录制数据前，自动清除上次保存在A5:K500里的计算结果为空白，然后再复制网上的开奖数据，粘贴在从A5开始的区域里，麻烦大神们帮忙在上边代码合适的地方，添加“自动清除上次保存在A5:K500里的计算结果为空白”  的代码。多谢了！

WYS67

恳请老师们帮忙！

lsc900707

WYS67 发表于 2018-7-9 08:05
恳请老师们帮忙！

[A5:K500]=""加到你的代码前面不就行了吗？

WYS67

lsc900707 发表于 2018-7-9 08:21
[A5:K500]=""加到你的代码前面不就行了吗？

加到第一行【App......】上面吗？
Sub 幸运魔方()
'
' 开奖数据录入 宏
'


'
[A5:K500] = ""
    Application.Goto Reference:="INDIRECT(R2C11)"
    Selection.ClearContents
    Range("K4").Select
    Selection.AutoFill Destination:=Range("K4:K500"), Type:=xlFillDefault
    Range("K4:K500").Select
    Calculate
    Application.Goto Reference:="INDIRECT(R3C11)"
    Selection.Copy
End Sub



版主：  这样不行的，复制粘贴网页数据后，还没显示计算结果再次复制，就清除了。
      最好是把网页内容粘贴进《数据录入》工作表后，按第一次按钮，显示计算结果；然后把计算结果复制粘贴到其它工作表后，第二次按下按钮，清除A5:K500为空白。怎么修改代码？麻烦版主做个附件传上来。

WYS67

lsc900707 发表于 2018-7-9 08:21
[A5:K500]=""加到你的代码前面不就行了吗？

谢谢版主！如您所说，问题已解决！

WYS67

Sub 幸运魔方()
'
' 开奖数据录入 宏
'


'
    Application.Goto Reference:="INDIRECT(R2C11)"
    Selection.ClearContents
    Range("K4").Select
    Selection.AutoFill Destination:=Range("K4:K500"), Type:=xlFillDefault
    Range("K4:K500").Select
    Calculate
    Application.Goto Reference:="INDIRECT(R3C11)"
    Selection.Copy
End Sub

      把网页内容粘贴进《数据录入》工作表后，按第一次按钮，显示计算结果，方便把计算结果复制粘贴到其它工作表；第二次按下按钮，清除A5:K500为空白。怎么修改代码？恳请老师们帮忙解决！