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

想添加个按钮,利用VBA自动选择并复制M到S列有内容的单元格。M~S列的行数是不固定的,会变,少则几行,多则几千行!这个如何能实现啊?... 想添加个按钮,利用VBA自动选择并复制M到S列有内容的单元格。M~S列的行数是不固定的,会变,少则几行,多则几千行!这个如何能实现啊? 展开
 我来答
mzz9060
2017-05-22 · TA获得超过1319个赞
知道小有建树答主
回答量:770
采纳率:85%
帮助的人:227万
展开全部
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式