VBA代码修改求助：实现单元格内容以262015开头时的数据传输

没问题，我帮你搞定这个代码的修改～你之前报错主要是两个小问题：一是原If语句多了个多余的左括号导致语法错误，二是没正确用Left函数实现开头匹配逻辑。

下面是修改后的完整代码，我已经调整了判断条件，还修正了语法问题：

Sub transferstudent()
    Dim wsIn As Worksheet
    Dim wsOut As Worksheet
    Set wsIn = ThisWorkbook.Worksheets("Base")
    Set wsOut = ThisWorkbook.Worksheets("Students")
    
    ' 复制表头内容
    wsOut.Cells(1, 1) = wsIn.Cells(1, 1)
    wsOut.Cells(1, 2) = wsIn.Cells(1, 8)
    wsOut.Cells(1, 3) = wsIn.Cells(1, 9)
    
    Dim lLastInputRow As Long
    Dim lCurrentInputRow As Long
    Dim lCurrentOutputRow As Long
    
    lLastInputRow = wsIn.Cells(wsIn.Rows.Count, 1).End(xlUp).Row
    lCurrentOutputRow = 2
    
    ' 从最后一行向上遍历数据行
    For lCurrentInputRow = lLastInputRow To 2 Step -1
        ' 关键修改：判断第12列内容以"262015"开头
        ' CStr确保单元格内容转为字符串，避免数字格式导致的提取错误
        If Left(CStr(wsIn.Cells(lCurrentInputRow, 12).Value), 6) = "262015" Then
            wsOut.Cells(lCurrentOutputRow, 1) = wsIn.Cells(lCurrentInputRow, 1)
            wsOut.Cells(lCurrentOutputRow, 2) = wsIn.Cells(lCurrentInputRow, 8)
            wsOut.Cells(lCurrentOutputRow, 3) = wsIn.Cells(lCurrentInputRow, 9)
            lCurrentOutputRow = lCurrentOutputRow + 1
        End If
    Next lCurrentInputRow
    
    wsIn.Select
    Set wsIn = Nothing
    Set wsOut = Nothing
End Sub

核心修改说明： #

• 修正语法错误：去掉了If语句里多余的左括号，VBA的If条件不需要额外加括号，加了会直接触发语法报错。
• 实现开头匹配：用Left(目标内容, 6)提取前6位字符（因为"262015"是6位），和目标字符串对比；加上CStr是为了兼容单元格是数字格式的情况，确保不管单元格存的是文本还是数字，都能转为字符串后正确判断。
• 保留原有逻辑：你原本从最后一行向上遍历、复制指定列数据的逻辑完全保留，只调整了判断条件，不影响原有功能。

如果后续还有格式适配或者逻辑调整的需求，随时说就行～

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