如何在Excel VBA中获取指定工作表某列最后一行行号并赋值给变量？

嘿，我来帮你梳理这段代码里的问题和优化方向，直接上干货：

1. 获取最后一行行号的核心错误 #

你写的lRow = ThisWorkbook.Sheets("Data").Range("A").Rows.Lastrow有三个坑：

• Range("A")是无效引用，要指定整列得用Range("A:A")或者Columns("A")
• Lastrow拼写错了！正确的属性是LastRow（注意大写R）
• 用Integer存行号风险大——Excel现在支持的行数远超Integer的最大值32767，换成Long类型才不会溢出

给你两种可靠的获取最后一行的写法：

方法一（适用于A列可能有空行的情况） #

Dim lRow As Long
lRow = ThisWorkbook.Sheets("Data").Columns("A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

方法二（适用于A列无空行的简洁写法） #

Dim lRow As Long
lRow = ThisWorkbook.Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row

另外注意：你现在的代码是把subj写到最后一行的位置，这会覆盖原有数据！通常我们要写到最后一行的下一行，所以改成lRow + 1才对：

ThisWorkbook.Sheets("Data").Cells(lRow + 1, 1) = subj

2. 循环部分的无效逻辑 #

你的For循环里的If语句完全是空的——就算找到匹配的表头，也不会执行任何操作。而且硬循环到1000列效率太低，给你两种优化方案：

方案一：用Find快速定位表头（推荐） #

直接用Excel的查找功能定位，比循环高效太多：

Dim headerCol As Long
Dim targetHeader As String
targetHeader = ThisWorkbook.Sheets(subj).Cells(1, 1).Value

On Error Resume Next ' 找不到时避免报错
headerCol = ThisWorkbook.Sheets("Data").Rows(1).Find( _
    What:=targetHeader, _
    LookIn:=xlValues, _
    LookAt:=xlWhole).Column
On Error GoTo 0 ' 恢复正常错误处理

If headerCol > 0 Then
    ' 这里写找到后的操作，比如弹窗提示
    MsgBox "找到匹配表头在第" & headerCol & "列"
Else
    MsgBox "没找到对应的表头哦"
End If

方案二：优化循环范围 #

一定要用循环的话，别固定1000列，用UsedRange获取实际使用的列数：

Dim i As Long
Dim targetHeader As String
targetHeader = ThisWorkbook.Sheets(subj).Cells(1, 1).Value

With ThisWorkbook.Sheets("Data")
    For i = 1 To .UsedRange.Columns.Count
        If .Cells(1, i).Value = targetHeader Then
            ' 执行你需要的操作，比如打印列号
            Debug.Print "匹配列：" & i
            Exit For ' 找到就退出循环，节省时间
        End If
    Next i
End With

3. 其他小优化 #

• 你的x变量完全没用到，直接删掉就行
• i也建议改成Long类型，和lRow保持一致，养成好的编码习惯
• 加个工作表存在性检查，避免用户在TextBox1里输入错误的工作表名导致报错：

On Error Resume Next
If ThisWorkbook.Sheets(subj) Is Nothing Then
    MsgBox "工作表【" & subj & "】不存在，请检查输入！"
    Exit Sub
End If
On Error GoTo 0

完整修正后的示例代码 #

把上面的优化点整合起来，给你一个可用的完整版本：

Dim i As Long
Dim lRow As Long
Dim subj As String
Dim targetHeader As String
Dim headerCol As Long

subj = TextBox1.Text

' 检查目标工作表是否存在
On Error Resume Next
If ThisWorkbook.Sheets(subj) Is Nothing Then
    MsgBox "工作表【" & subj & "】不存在，请检查输入！"
    Exit Sub
End If
On Error GoTo 0

targetHeader = ThisWorkbook.Sheets(subj).Cells(1, 1).Value

With ThisWorkbook.Sheets("Data")
    ' 获取A列最后一行行号，处理空列情况
    If .Cells(.Rows.Count, "A").End(xlUp).Row = 1 And .Cells(1, "A").Value = "" Then
        lRow = 1
    Else
        lRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End If
    
    ' 写入数据到最后一行的下一行
    .Cells(lRow + 1, 1) = subj
    
    ' 查找匹配表头
    On Error Resume Next
    headerCol = .Rows(1).Find(What:=targetHeader, LookIn:=xlValues, LookAt:=xlWhole).Column
    On Error GoTo 0
    
    ' 反馈结果
    If headerCol > 0 Then
        MsgBox "数据写入成功！同时找到匹配表头在第" & headerCol & "列"
    Else
        MsgBox "数据写入成功，但未找到对应的表头"
    End If
End With

内容的提问来源于stack exchange，提问作者SaladSnake