动态区域中的区域操作

xjx496111

                            arr = sht.Range("C15:AI74")
                            hz.Sheets(1).Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
hz.Sheets(1).Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) 这个动态区域中的中间区域怎么选定操作，应该怎么写？删除？

hoogle

选定：
hz.Sheets(1).Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) .select
删除：
hz.Sheets(1).Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) .ClearContents

xjx496111

这是整体选定操作，如果要选定这个动态区域中的几个连续列操作，比如第6-12列，该如何写？

hoogle

那就把选定区域赋值给数组：
arr=selection
选定：
hz.Sheets(1).Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) .select
删除：
hz.Sheets(1).Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) .ClearContents

xjx496111

你写的动态赋值区域的整体选定和删除，我说的是在你选定的区域中如何再选定操作！比如选定区域中的6-10列的处理，不是行的，谢谢！.