这个EXCEL语句是什么意思啊

来源:百度知道 编辑:UC知道 时间:2024/05/31 14:04:23
Sub Trial()
'
' Trial Macro
' Macro recorded 3/5/2000 by gshou
'

'
Range("B8").Select
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub MatchCurve()
'
' MatchCurve Macro
' Macro recorded 3/5/2000 by gshou
'

'
Range("K25:K42").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-7
Range("K4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub Trial()
'
' Trial Macro
' Macro recorded 3/5/2000 by gshou
'

'
Range("B8").Select
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

功能:将B8的值粘贴到B4。

Sub MatchCurve()
'
' MatchCurve Macro
' Macro recorded 3/5/2000 by gshou
'

'
Range("K25:K42").Select '选中K25:K42
Selection.Copy '将选中的K25:K42复制到剪贴板
ActiveWindow.SmallScroll Down:=-7 '活动窗口内容向上滚动7行(这句放在此处无实际意义)
Range("K4").Select '选中K4
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False '选择性粘贴 粘贴值
End Sub

功能:K25:K42的值被复制到K4:K21。