如何在VBA中筛选StudyBoard列空白单元格并导出至新工作表？

看了你写的代码，确实逻辑偏了，而且有不少基础语法问题，咱们一步步来修正，实现你要的功能：把StudyBoard列空白的行提取到新工作表里。

先说说你现有代码的几个问题： #

• 没声明变量i，建议开头加Option Explicit强制变量声明，避免拼写错误导致的奇怪问题
• 逻辑完全走偏了：你用Rnd随机选单元格，还乱用Application.Match，这和找空白单元格的需求完全不沾边
• 错误地给Range对象赋值：比如FacultyIdCol = Application.Match(...)，Range对象不能这么直接赋值，而且Match返回的是位置索引，不是单元格内容
• 没有处理新工作表的创建和数据写入逻辑

正确的实现代码 #

假设你的列顺序是：A列=ProgramCode，B列=StudyBoard，C列=FacultyID，D列=ProgramType（如果实际列不一样，你改一下列号就行），下面是可以直接运行的代码：

Option Explicit

Sub ExtractBlankStudyBoardRows()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim sourceRow As Long
    Dim targetRow As Long
    
    ' 设置源工作表（你的数据所在表）
    Set wsSource = ThisWorkbook.Worksheets("SSBB")
    ' 创建新工作表并命名（如果已存在会报错，也可以改成判断是否存在）
    Set wsTarget = ThisWorkbook.Worksheets.Add
    wsTarget.Name = "BlankStudyBoardData"
    
    ' 复制表头到新表
    wsSource.Range("A1:D1").Copy wsTarget.Range("A1")
    
    ' 获取源表最后一行行号（不用硬写1800，更灵活）
    lastRow = wsSource.Cells(wsSource.Rows.Count, "B").End(xlUp).Row
    targetRow = 2 ' 新表从第二行开始写数据（第一行是表头）
    
    ' 遍历源表每一行，检查StudyBoard列（B列）是否为空
    For sourceRow = 2 To lastRow
        ' 判断B列单元格是否空白（包括用户输入空格的情况）
        If Trim(wsSource.Cells(sourceRow, "B").Value) = "" Then
            ' 复制当前行的A-D列到新表
            wsSource.Range(wsSource.Cells(sourceRow, "A"), wsSource.Cells(sourceRow, "D")).Copy _
                wsTarget.Cells(targetRow, "A")
            targetRow = targetRow + 1 ' 新表行号自增
        End If
    Next sourceRow
    
    ' 自动调整新表列宽
    wsTarget.Columns.AutoFit
    
    MsgBox "提取完成！共找到 " & targetRow - 2 & " 条StudyBoard空白的记录", vbInformation
End Sub

代码说明： #

• Option Explicit：强制声明所有变量，避免因为拼写错误导致的隐藏bug
• 先创建并命名新工作表，复制表头过去，保证新表格式和源表一致
• 用lastRow获取实际的最后一行，不用硬写1800，数据增减时都能适配
• 遍历每一行时，用Trim(...) = ""判断单元格是否空白，能过滤掉用户不小心输入的空格
• 直接复制整行的目标列到新表，简单高效
• 最后弹出提示框告诉用户提取了多少条数据

如果你不想复制，而是逐单元格写入（适合需要修改内容的场景），可以把复制那段改成： #

wsTarget.Cells(targetRow, "A").Value = wsSource.Cells(sourceRow, "A").Value
wsTarget.Cells(targetRow, "B").Value = wsSource.Cells(sourceRow, "B").Value
wsTarget.Cells(targetRow, "C").Value = wsSource.Cells(sourceRow, "C").Value
wsTarget.Cells(targetRow, "D").Value = wsSource.Cells(sourceRow, "D").Value
targetRow = targetRow + 1

如果你的StudyBoard列不是B列，把代码里的"B"改成对应的列号或者列名就行，比如如果是A列，就改成"A"。

内容的提问来源于stack exchange，提问作者S.KK