Excel VBA实现按指定列单元格文本内容设置行高的问题

架构老林

2026-4-16

嗨，Hank！我看了你遇到的难题——要针对B列从第3行到最后一行的单元格，根据里面是否包含E:、F:、WWW:这些标记来自动调整行高，而且还得跳过那些不需要处理的单元格对吧？之前用InStr没成功，大概率是循环范围或者判断逻辑没捋顺，我来给你写个靠谱的VBA代码，再给你拆解清楚每一步怎么回事。

首先，先给你完整的可直接用的代码，你可以直接复制到VBA编辑器里：

Sub SetRowHeightBasedOnContent()
    Dim ws As Worksheet
    Dim cell As Range
    Dim finalRow As Long
    
    ' 这里指定你要操作的工作表，比如把"Sheet1"改成你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取B列最后一个有数据的行号，避免循环空行
    finalRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历B3到最后一行的每个单元格
    For Each cell In ws.Range("B3:B" & finalRow)
        ' 只处理包含"E:"的单元格，不包含的直接跳过
        If InStr(1, cell.Value, "E:", vbTextCompare) > 0 Then
            ' 基础规则：仅含"E:"时，行高设为67
            cell.Row.Height = 67
            
            ' 如果同时包含"F:"，把行高调整为80
            If InStr(1, cell.Value, "F:", vbTextCompare) > 0 Then
                cell.Row.Height = 80
                
                ' 如果还包含"WWW:"，再把行高改成90
                If InStr(1, cell.Value, "WWW:", vbTextCompare) > 0 Then
                    cell.Row.Height = 90
                End If
            End If
        End If
        ' 不包含"E:"的单元格保持原样，完全不处理
    Next cell
End Sub

接下来给你讲几个关键细节，帮你理解代码，也方便你根据自己的需求调整：

工作表指定：我用了ThisWorkbook.Worksheets("Sheet1")，这样不管当前激活的是哪个表，代码都会操作你指定的工作表，避免出错。你只需要把Sheet1改成你实际的工作表名称就行。
InStr的正确用法：InStr(1, cell.Value, "E:", vbTextCompare)里的vbTextCompare是不区分大小写匹配的，比如单元格里是e:也能识别到；如果你需要严格区分大小写，就把它改成vbBinaryCompare。
判断逻辑顺序：我们从最基础的条件（仅含E:）开始，依次叠加更复杂的条件（加F:、再加WWW:），这样能保证优先级正确——只要同时满足多个条件，会自动应用最高级的行高设置。
跳过无关单元格：代码里只有包含E:的单元格才会进入判断逻辑，其他单元格完全不做修改，正好符合你“不想处理其他单元格”的需求。

关于你之前InStr没成功的可能原因：

可能你没指定正确的单元格取值（比如用了cell.Text而不是cell.Value，Text是单元格显示的内容，有时候会因为换行或格式问题和实际存储的Value不一致）；
可能循环的范围没正确获取到最后一行，导致漏处理或处理空行；
可能没加vbTextCompare，而单元格里的标记是小写的，导致匹配失败。

最后，你只需要打开Excel的开发者工具（按Alt+F11），插入一个模块，把代码粘贴进去，修改工作表名称后运行宏就行啦。如果需要调整行高数值，直接改代码里的67、80、90这些数字就可以。

备注：内容来源于stack exchange，提问作者Hank