Nhờ rút gọn code Copy Pascpecial (1 người xem)

[pns56]

Nhờ các anh chị em rút gọn dùm code do mình Record Macro nhằm copy và past special\Value. Mình thấy dài quá cố rút gọn nhưng không biết cách. Mong ACE giúp đỡ. Chờ hồi âm. Cám ơn nhiều!

 

[thanhsangnguyen1982]

Sub Button1_Click()
Range("C11:J462").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[ndu96081631]

Nhờ các anh chị em rút gọn dùm code do mình Record Macro nhằm copy và past special\Value. Mình thấy dài quá cố rút gọn nhưng không biết cách. Mong ACE giúp đỡ. Chờ hồi âm. Cám ơn nhiều!

Bỏ hết mấy dòng ActiveWindow.ScrollRow đi là được rồi
Kết quả:

Sub Button1_Click()
'
' Button1_Click Macro
' Macro recorded 18/06/2013 by Vinaghost.Com
'

'
    Range("C11:C483").Select
    Selection.Copy
    ActiveWindow.ScrollRow
    Range("J11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Rút gọn thêm:

Sub Button1_Click()
  Range("C11:C483").Copy
  Range("J11").PasteSpecial 3
End Sub

Hoặc cách khác:

Sub Button1_Click()
  Range("J11:J483").Value = Range("C11:C483").Value
End Sub

-----------------------

Sub Button1_Click()
Range("C11:J462").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Hổng có chổ nào COPY lấy đâu mà PASTE?

 

[pns56]

Cám ơn các ACE đã trả lời, mình đã thực hiện và thấy như ý, chúc sức khỏe cả nhà!!! thanks.