EXCEL VBA自动选中有内容的区域

Question

想添加个按钮，利用VBA自动选择并复制M到S列有内容的单元格。M~S列的行数是不固定的，会变，少则几行，多则几千行！这个如何能实现啊？

Answer 1

Sub SelectDemo()
''选择M到S列有数据的区域
    Range("M2:S" & Cells(Cells.Rows.Count, 13).End(xlUp).Row).Select
''复制该区域
    Selection.Copy
End Sub

追问

我都是用IFERROR下拉填充的，=IFERROR(IF(F2<>0,E2,""),"")

但是这么已选择依然会把下面看似空白，但是里面有公式的区域也选择上了。

在第一行用Ctrl+shift+↓快捷键也会这样选择把看似空行含有公式的区域也选中了。

请问还有办法能解决这个问题吗 ？

追答

那我更改了下代码

Sub SelectDemo()
    Dim MRng As Variant
    Dim i As Long
    MRng = Range("M2:M" & Cells(Cells.Rows.Count, 13).End(xlUp).Row).Value
    For i = LBound(MRng, 1) To UBound(MRng, 1)
        If MRng(i, 1) = "" Then Exit For
    Next i
''选择M到S列有数据的区域
    Range("M2:S" & i).Select
''复制该区域
    Selection.Copy
End Sub