VBA提取Excel C列包含'甲'的信息

以下是提取C列中包含'甲'的信息的VBA代码：

Sub 提取甲信息()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将'Sheet1'替换为实际的工作表名称
    
    ' 获取C列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 遍历C列
    For i = 1 To lastRow
        ' 判断C列单元格的值是否包含'甲'
        If InStr(1, ws.Cells(i, "C").Value, "甲") > 0 Then
            ' 将匹配的行复制到另一个工作表（这里假设目标工作表为'Sheet2'）
            ws.Rows(i).Copy Destination:=ThisWorkbook.Worksheets("Sheet2").Cells(i, 1)
        End If
    Next i
End Sub

请将代码中的'Sheet1'和'Sheet2'替换为实际的工作表名称。执行该代码后，将会在'Sheet2'工作表中复制包含'C'列中包含'甲'的所有行。