excel 100内加减法自动出题及评分

VBA | 2016-05-30 21:39:09 | 阅读 14036 次 | 评论(0)
Sub Macro5()
'
' Macro5 Macro
' qunxingw  2016/5/21 
全部录制。

'
    Sheets("Sheet3").Select
    Range("E1").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("E1:E50")
    Range("E1:E50").Select
    Range("A1:C50").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet3").Select
    Range("G1:I50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("G1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
文章评论,共0条
游客请输入验证码
浏览177014次
最新评论
  • zhouwenyuan:博主可以开发房产APP吗?
  • qunxingw:结合附件,在分表A或B...实验一下宏就理解了
  • qunxingw:这仅是小范围的一种思路,此题是指数级的数据。