VBA代码需求：按规则提取单元格字符并插入指定位置

需求回顾 #

• 从M38单元格开始，每次提取7个字符，依次写入N38、N39及下方单元格
• 若提取的7个字符包含;，则在N列插入空单元格，之后从M83单元格继续提取7个字符往下写入

问题分析 #

你原来的代码仅做了固定行的左7字符提取，没有处理;的判断逻辑，也未实现跳转M83和插入空单元格的操作，因此无法满足需求。

修正后的代码 #

Sub ExtractSevenChars()
    Dim sourceRow As Integer ' M列的源数据行
    Dim targetRow As Integer ' N列的目标写入行
    Dim extractedText As String ' 提取的7个字符
    
    ' 初始化起始行位置
    sourceRow = 38
    targetRow = 38
    
    Do While sourceRow <= 100 ' 可根据实际数据量调整最大行号
        ' 提取当前M行的前7个字符（内容不足7个时取全部）
        extractedText = Left(Range("M" & sourceRow).Value, 7)
        
        ' 检测提取内容是否包含分号
        If InStr(extractedText, ";") > 0 Then
            ' N列当前行留空（插入空单元格）
            Range("N" & targetRow).Value = ""
            targetRow = targetRow + 1
            ' 跳转到M83继续提取
            sourceRow = 83
        Else
            ' 将提取内容写入N列对应行
            Range("N" & targetRow).Value = extractedText
            targetRow = targetRow + 1
            sourceRow = sourceRow + 1
        End If
    Loop
End Sub

关键逻辑说明 #

• 用Do While循环替代固定次数的For循环，灵活处理行跳转需求
• 通过InStr函数检测提取文本中是否存在;，触发特殊处理逻辑
• 遇到分号时，N列当前行留空，直接将源数据行切换为83，实现从M83继续提取
• 设置循环最大行号（示例为100）避免无限循环，可根据实际数据范围调整

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