Excelvba中获取行数

在Excel VBA中，你可以使用`Range.Rows.Count`属性来获取某个特定区域（如一整个工作表、选定范围或单个工作表的某部分）内的行数。例如，如果你想获取A1到Sheet1的最后一个单元格所在的行数，可以这样做：

Dim lastRow As Long
lastRow = Range("A1").CurrentRegion.Rows.Count ' 如果A1是包含数据的区域的起始位置

MsgBox "Sheet1的行数为：" & lastRow

如果你只想获取当前活动工作表的总行数，可以直接使用`ActiveSheet.Rows.Count`。

如果你想要获取特定列的最后一条非空值所在的行，可以用`Find`函数配合`End`函数，例如查找F列的最后一行非空值：

Dim rng As Range
Set rng = Sheets("Sheet1").Columns(6).Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
If Not rng Is Nothing Then
    Dim lastNonEmptyRow As Long
    lastNonEmptyRow = rng.Row - 1 ' 减1是因为Find返回的是下一行的引用
End If

相关问题

excel里vba 获取access表的行数

您可以使用以下代码获取Access表的行数并在Excel中显示：

Sub GetAccessTableRowCount()
    Dim conn As Object
    Dim rs As Object
    Dim rowCount As Long

    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")

    ' 打开Access数据库连接
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=您的Access数据库路径"

    ' 执行SQL查询
    Set rs = conn.Execute("SELECT COUNT(*) FROM 您的表名")

    ' 获取查询结果
    rowCount = rs(0)

    ' 显示行数
    MsgBox "行数为：" & rowCount

    ' 关闭连接和记录集
    rs.Close
    conn.Close
End Sub

在上面的代码中，我们使用ADODB对象（Microsoft ActiveX Data Objects）创建连接对象，并使用Execute方法执行SQL查询，获取Access表的行数。最后，关闭连接和记录集。您可以根据需要修改代码中的Access数据库路径和表名。

excel2010 vba 根据单元格实际行数列数设置格式

在Excel 2010中，可以使用VBA编程语言根据单元格的实际行数和列数来设置格式。下面是一个示例代码：

Sub 格式设置()
    Dim 行数 As Integer
    Dim 列数 As Integer
    
    ' 获取选中单元格的实际行数和列数
    行数 = Selection.Rows.Count
    列数 = Selection.Columns.Count
    
    ' 根据行数设置字体样式
    If 行数 > 1 Then
        Selection.Font.Bold = True
    End If
    
    ' 根据列数设置背景颜色
    If 列数 > 1 Then
        Selection.Interior.Color = RGB(255, 255, 0) ' 设置为黄色
    End If
End Sub

通过上述代码，你可以通过选中单元格来获取其实际行数和列数，并根据这些行数和列数来设置相应的格式。在示例代码中，如果选中单元格的行数大于1，则将文本的字体样式设置为粗体；如果选中单元格的列数大于1，则将单元格的背景颜色设置为黄色。

你可以将上述代码复制到Excel VBA编辑器中，然后在运行时选中相应的单元格进行测试。记得在运行代码之前先选中目标单元格，这样代码才能正确获取其行数和列数，并进行格式设置。