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 SubCode language: VB.NET (vbnet)