Excel Forum

Code: Select all

 ActiveSheet.Paste 

Code: Select all

Sub Macro3()
 
 Sheets("ยอดจ่าย").Select
    
    Range("A5:E300").Select
    
    Selection.Copy
   
   Sheets("สรุป").Select
    
    Range("A1").Select
    
    Selection.SpecialCells(xlCellTypeBlanks).Select
    
    [background=]ActiveSheet.Paste[/background]

    Range([A1], [E65535].End(xlUp)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone

    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    

Sheets("ยอดจ่าย").Select
    
    Rows("7:300").ClearContents

End Sub