Excel VBA: 从 H 列数据中提取“C+数字”后的字符到 I 列

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

本 VBA 代码用于检查 Excel 工作表 H 列数据，提取所有以 'C+' 开头的单元格中 'C+' 后面的字符，并将其粘贴到 I 列。

Sub CutAndPaste()
    Dim lastRow As Long
    Dim cell As Range
    Dim cellValue As String
    Dim i As Integer
    Dim cutValue As String
    
    lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
    
    For i = 1 To lastRow
        cellValue = ActiveSheet.Cells(i, "H").Value
        If Left(cellValue, 2) = "C+" Then
            cutValue = Right(cellValue, Len(cellValue) - 2)
            ActiveSheet.Cells(i, "I").Value = cutValue
            ActiveSheet.Cells(i, "H").Value = "C+"
        End If
    Next i
End Sub

代码解析:

1. lastRow 变量存储 H 列最后一个非空单元格的行号。
2. 循环遍历 H 列每个单元格，将单元格值赋给 cellValue 变量。
3. 检查 cellValue 是否以 'C+' 开头，如果是，则执行以下操作：
   • 使用 Right 函数提取 'C+' 后面的字符，并赋给 cutValue 变量。
   • 将 cutValue 粘贴到 I 列对应行。
   • 将 H 列单元格值修改为 'C+'。

使用方法:

1. 打开 Excel 工作簿。
2. 按 Alt + F11 打开 VBA 编辑器。
3. 在 VBA 编辑器中插入一个模块。
4. 将代码粘贴到模块中。
5. 按 F5 运行代码。

注意:

• 代码适用于所有以 'C+' 开头的单元格。
• 如果 H 列中存在多个 'C+' 后面跟着不同字符的单元格，代码会将所有字符提取到 I 列。
• 运行代码之前建议备份工作簿。