不能忘记UsedRange了！

solaris_navi

于 2009-05-26 22:27:00 发布

阅读量771

点赞数

CC 4.0 BY-SA版权

文章标签： vba excel c

本文链接：https://blog.youkuaiyun.com/solaris_navi/article/details/4218725

本文提供了一个使用VBA在Excel中进行数据查找的例子。通过Sheet2的UsedRange属性定位特定值，并将查找结果写入Sheet1指定单元格。示例展示了如何避免遗漏重要的VBA方法UsedRange。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

放上一个Excel里面的VBA，提醒自己不能再忘记 UsedRange 这个方法集了！

xvalue = -1
    '这里读取sheet1里面的输入值
    xvalue = Val(Sheet1.Cells("19", "A"))

    If Trim(Sheet1.Cells("19", "A")) = "" Then
        MsgBox "X 为空 "
        Exit Sub
    End If

    xline = -1
    For i = 6 To Sheet2.UsedRange.Rows.Count
        If Val(Sheet2.Cells(i, "C")) = xvalue Then
            xline = i
            Exit For
        End If
    Next i

    If xline = -1 Then
        MsgBox "米找到"
        Exit Sub
    End If

    Sheet1.Cells(23, 1) = Sheet2.Cells(xline, "J")
    Sheet1.Cells(23, 2) = Sheet2.Cells(xline, "K")
    Sheet1.Cells(23, 3) = Sheet2.Cells(xline, "M")
    Sheet1.Cells(23, 4) = Sheet2.Cells(xline, "N")