Sub 定位数字()
'
' 定位数字 宏
' 在工作薄中快速定位纯数字的单元格
'
' 快捷键: Ctrl+Shift+H
'
ActiveWindow.SmallScroll Down:=-15
Selection.SpecialCells(xlCellTypeConstants, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A1").Select
End Sub
这是视频里的代码。。。
'
' 定位数字 宏
' 在工作薄中快速定位纯数字的单元格
'
' 快捷键: Ctrl+Shift+H
'
ActiveWindow.SmallScroll Down:=-15
Selection.SpecialCells(xlCellTypeConstants, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A1").Select
End Sub
这是视频里的代码。。。