VB中copy单元格并且粘贴的问题 高手进（vb怎么批量循环向下复制并粘贴）

拷贝指定区域

xlsheet.ActiveSheet.Range(〃A1:A2〃).Copy

粘贴

xlsheet.WorkSheet(〃Sheet2〃).Range(〃A3:A4〃).PasteSpecial

xlsheet.HPageBreaks.Add Before:=ActiveCell.offset(1,0)