Example
Range("C3:C7").SelectTruncate the above snippet to
Selecting.Copy
Range("V2").Select
Selection.PasteSpecial Paste := xlValues,
Range("C3:C7").Copy
Range("V2").PasteSpecial Paste := xlValues,
And for Font related code, Macro seems to generate unnecessary lines of code which are already consider default. VBA does not need to verify each of these default lines
Example
Range("F1").SelectDelete those unnecessary lines to only ...
With Selection.Font
.Name = "Tahoma"
.Size = 10
.Strikethrough = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
Range("F1").Select
With Selection.Font
.Name = "Tahoma"
.Size = 10
No comments:
Post a Comment