Sub Past_DKKH()
Range("A2:BF3").Select
ActiveSheet.Paste
End Sub
Cách 2
Private Sub CommandButton9_Click()
Sheet5.Range("A2:AK3").PasteSpecial
End Sub
Sub COPY_BH_abic()
Sheet59.Range("c2").Copy
End Sub
copy tu sheet nay sang sheet khac
Sub Past_IPCAS_MoTK()
Sheet34.Range("B4:AC54").PasteSpecial xlPasteValues
Sheet34.Range("b5:b54").Copy
Sheet35.Range("C11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("c5:c54").Copy
Sheet35.Range("D11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("d5:d54").Copy
Sheet35.Range("e11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("e5:e54").Copy
Sheet35.Range("f11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("e5:e54").Copy
Sheet35.Range("f11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("f5:f54").Copy
Sheet35.Range("g11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("j5:j54").Copy
Sheet35.Range("h11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("v5:v54").Copy
Sheet35.Range("i11").PasteSpecial Paste:=xlPasteValues
Sheet34.Range("x5:x54").Copy
Sheet35.Range("j11").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Định dạng excel
Định dạng kiểu số
Sheet1.Range("A2:BF3").Select
Selection.NumberFormat = "0"
định dạng ký tự
Sheet1.Range("A2:BF3").Select
Selection.NumberFormat = "@"
past liên tiếp dữ liệu
Sub PasteIntoFirstEmptyCell()
Dim ws As Worksheet
Dim lastRow As Long
Dim pasteRange As Range
' Chọn sheet hiện tại
Set ws = ActiveSheet
' Tìm hàng cuối cùng có dữ liệu trong cột A
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
' Xác định ô cần dán
Set pasteRange = ws.Cells(lastRow, 1)
' Dán dữ liệu từ Clipboard
pasteRange.PasteSpecial Paste:=xlPasteValues
' Giải phóng bộ nhớ
Application.CutCopyMode = False
End Sub