VBA判断选择区域

如上图，可从一程序中得到上图中的表，但每天得到的行与列数都不是不固定的。
我的目标：使用VBA，判断选择区域。按上图表，应该选择的区域是：B2：J22
请按动态行列给出判断选择区域的VBA代码！
注：A列是有值的，第23行是空白行，但第24行不是空白行，要求从B2：J22被选择！

推荐答案 2015-11-09

ç¨usedrangeå¯ä»¥å®ç°è¦æ±ï¼å·ä½ä»£ç å¦ä¸ï¼

activesheet.usedrange.select

å³äºusedrangeçè¯¦ç»ç¥è¯ï¼

ç¶åï¼å¨VBEç¼è¾å¨ä¸è¾å¥å¦ä¸ä»£ç ï¼
Sub Sample01()
Worksheets("Sheet1").UsedRange.Select
End Sub
ä»£ç è¿è¡åï¼ä¸é¢çå·¥ä½è¡¨æ¾ç¤ºå¦ä¸å¾2æç¤ºï¼

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3yy7eyvvjvxfv7xf2y.html

其他回答

第1个回答 2014-06-04

Sub DynamicRangeSelect()
    Dim i As Long, j As Integer, stp As Boolean
    Dim curRowUsed As Boolean
    Dim maxCol As Integer, firstRow As Integer
    stp = False '初始化变量stp
    i = 1  '初始化变量i
    maxCol = 2  '初始化最大列号
    '找出第一个非空行
    Do Until Range("B" & i) <> ""
        i = i + 1
        If i > 10 Then
            MsgBox "没有可被选择的数据"
            Exit Sub   '此句防止无数据导致死循环，可以根据实际情况调整此参数大小
        End If
    Loop
    firstRow = i   '记住找到的第一个非空行
    i = i + 1
    Do Until stp = True
        curRowUsed = False
        For j = 2 To 255
            If firstRow > 0 Then
                If Cells(i, j) <> "" Then
                     curRowUsed = True
                     If j > maxCol Then maxCol = j   '标记最大列号
                End If
            End If
        Next j
        '碰到全行空白则发出停止循环指令
        If curRowUsed = False Then
            stp = True
            i = i - 1  '此时的i减1即为最大行号
        End If
        If stp = False Then i = i + 1
    Loop
    Range(Cells(firstRow, 2), Cells(i, maxCol)).Select  '选择动态区域
End Sub

第2个回答 2015-10-23

sub 选择()

if typename(selection)=selection.address then
  msgbox "选择了"& selection.address
else
   msgbox "Nothing"
  end if

end sub

第3个回答 2014-06-04

试试看：

MsgBox Range("B2").CurrentRegion.Address(0, 0)

追问

怪我没说明情况，其实，在我所得到的表中，A列是有值的，并且在上图表中，23行是空白行，但第24行是有值的。
你给的代码把我不想选中的区域也选择了（包含了A列，包含了23行后的其它行）

追答

那你得找个规律才行咯，
比如：
1、标题某某单位配货表这个合并单元格是否都是从你需要的开始列合并到结束列？
2、需要的列下面除了需要的数据是不是没有其他数据了？就像上图，B：J列的22行后是不是都是空行？

第4个回答 2014-06-04

sub 选择区域
activesheet.usedrange.select
end sub

本回答被提问者采纳

1 2 下一页

你可能感兴趣的内容

大家正在搜

如何判断开区域闭区域多区域判断如何判断区域判断一个点离哪个区域最近 pyqt5判断区域范围怎么判断一个点击是不是区域封闭区域怎么判断如何判断点集是否为区域怎样判断单连通区域

非常风气网www.verywind.cn

VBA判断选择区域

相关了解……

你可能感兴趣的内容