请求高手帮忙！在线等！Excel操作问题

xjx496111

请高手帮忙！
arr = sht.Range("C15:V74")
hz.Sheets(1).Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
想要删除其中连续的三列数据，怎么办？

zyouong

上传附件吧，没有附件感觉无从下手。

xjx496111

http://www.excelpx.com/thread-266504-1-1.html

zyouong

根据实际调整（这是删除三行）
Sub dd()
xx = Sheets("sheet1").Range("E" & Rows.Count).End(xlUp).Row
For i = 1 To 3

Rows(xx - i).Delete
Next i


End Sub