Excel VBA: 从 H 列中提取首个英文字符到 I 列

本文提供一个 Excel VBA 代码示例，用于从 H 列中提取以 'C+' 开头的单元格中的第一个英文字符，并将它粘贴到 I 列中对应单元格。

代码示例

Sub CutAndPaste()

    Dim lastRow As Long
    Dim i As Long
    Dim cell As Range
    Dim str As String

    lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

    For i = 1 To lastRow
        Set cell = ActiveSheet.Cells(i, "H")
        str = cell.Value
        If Left(str, 2) = "C+" Then
            str = Mid(str, 3)
            For j = 1 To Len(str)
                If Not IsNumeric(Mid(str, j, 1)) Then
                    ActiveSheet.Cells(i, "I").Value = Mid(str, j, 1)
                    Exit For
                End If
            Next j
        End If
    Next i

End Sub

代码解释

这段代码首先获取了 H 列的最后一行，然后使用循环依次处理每一行数据。对于每个单元格，它首先检查它的值是否以 'C+' 开头。如果是，它会剪切掉这个开头，然后循环遍历剩余的字符，找到其中的第一个英文字符并将其写入到 I 列中对应的单元格中。如果没有找到任何英文字符，则不会进行任何操作。

使用方法

打开您的 Excel 工作簿。
按 Alt + F11 键打开 VBA 编辑器。
在 VBA 编辑器中，点击“插入”>“模块”。
将上面的代码粘贴到模块中。
按 F5 键运行代码。

您可以在 H 列中添加以 'C+' 开头的单元格，运行代码后，I 列中就会自动显示相应单元格中第一个英文字符。