Değişken Boyutlu Aralıkları Kopyalamak ve Yeniden Boyutlandırmak

Aşağıdaki yöntemlerle değişken boyutlu aralıkları kopyalamayı ve yeniden boyutlandırmayı inceleyeceğiz:

Sub makro_kopyala()

'Kopyalama yöntemiyle yapıştırın
    Range("A4").CurrentRegion.Copy Range("J4")

'Buraya üst bilgi olmadan yapıştırın
    Range("A4").CurrentRegion.Offset(1, 0). _
    Resize(Range("A4").CurrentRegion.Rows.Count - 1) _
    .Copy
    Range("A20").PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    Range("A1").Select

'Özel yapıştırma yöntemiyle yapıştırın
    Range("A4").CurrentRegion.Copy
    Range("J20").PasteSpecial xlPasteValues
    Range("J20").PasteSpecial xlPasteValuesAndNumberFormats
    Range("J20").PasteSpecial xlPasteComments
    Application.CutCopyMode = False
    Range("A1").Select

End Sub

Paylaş: