VBA, 某行最后一列的列数

假设你要求的行号为row_num，可以使用以下代码获取该行最后一列的列数：

last_col = Cells(row_num, Columns.Count).End(xlToLeft).Column

其中，Cells(row_num, Columns.Count)是该行最后一列的单元格，.End(xlToLeft)是向左查找最后一个非空单元格，.Column是返回该单元格的列数。

相关问题

vba如何判断某一列从第二行开始是否有数字？

可以使用VBA的IsEmpty函数和CountA函数来判断某一列从第二行开始是否有数字，具体代码如下：

Sub CheckColumn()

    Dim lastRow As Long
    Dim i As Long
    
    '获取最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    '从第二行开始循环判断
    For i = 2 To lastRow
        If Not IsEmpty(Cells(i, "A")) And WorksheetFunction.CountA(Range("A" & i)) = 0 Then
            MsgBox "第" & i & "行没有数字"
            Exit Sub
        End If
    Next i
    
    MsgBox "该列从第二行开始均有数字"
    
End Sub

上述代码中，我们首先获取该列的最后一行，然后从第二行开始循环判断每一行是否为空并且是否有数字，如果发现某一行没有数字则弹出提示，否则提示该列从第二行开始均有数字。

VBA获取当前工作表的最后一行和最后一列

获取当前工作表的最后一行可以使用以下代码：

Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

这个代码将在第一列从下往上扫描，找到第一个非空单元格所在的行数，即为最后一行。

获取当前工作表的最后一列可以使用以下代码：

Dim lastCol As Long
lastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

这个代码将在第一行从右往左扫描，找到第一个非空单元格所在的列数，即为最后一列。