Excel VBA: 从 H 列数据中提取 'C+数字' 后字符至 I 列

Excel VBA: 从 H 列数据中提取 'C+数字' 后字符至 I 列

本 VBA 代码用于检查 H 列数据，将 'C+数字' 后面的字符剪切到 I 列内容。

Sub CutString()
    Dim lastRow As Long
    Dim i As Long
    Dim str As String
    
    lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
    
    For i = 1 To lastRow
        str = ActiveSheet.Cells(i, "H").Value
        
        If Left(str, 2) = "C+" Then
            ActiveSheet.Cells(i, "I").Value = Mid(str, 4)
            ActiveSheet.Cells(i, "H").Value = Left(str, 3)
        End If
    Next i
End Sub

代码逻辑解释:

1. 声明变量: 声明变量 lastRow 用于存储 H 列最后一行数据所在行号，变量 i 用于循环遍历 H 列，变量 str 用于存储 H 列当前单元格的值。
2. 获取最后一行: 使用 ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row 获取 H 列最后一行数据所在行号，并将结果赋值给 lastRow 变量。
3. 循环遍历: 使用 For 循环从第一行到最后一行遍历 H 列。
4. 判断条件: 判断当前单元格的值是否以 'C+' 开头，如果以 'C+' 开头，则执行后面的操作。
5. 提取并剪切字符: 使用 Mid(str, 4) 提取 'C+数字' 后面的字符，并将结果赋值给 I 列当前单元格；使用 Left(str, 3) 提取 'C+数字'，并将结果赋值给 H 列当前单元格。

使用步骤:

1. 打开您需要处理的 Excel 文件。
2. 按 Alt+F11 打开 VBA 编辑器。
3. 在 VBA 编辑器中，点击 插入 -> 模块。
4. 将以上代码复制到模块中。
5. 按 F5 运行代码。

注意:

• 该代码只处理以 'C+' 开头的单元格。
• 代码会直接修改原始数据，请在运行代码前备份数据。

通过以上步骤，您就可以轻松使用 Excel VBA 代码从 H 列数据中提取 'C+数字' 后字符至 I 列。