帮做一个vba自动提取

帮我做一个按文字提取a列数据到q列，可以一键提取的，灰常感谢！

参考GPT和自己的思路：

好的，我可以为您提供解决方案。使用VBA编程实现按文字提取A列数据到Q列，可以通过以下步骤完成：

1. 打开Excel文件，按下Alt+F11进入Visual Basic Editor界面。
2. 在左侧的项目资源管理器窗口中，右键点击“VBAProject(XLSM文件名)”选项，选择插入->模块，新建一个模块。
3. 在模块中插入以下代码：

Sub extractData()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行
    For i = 1 To lastRow '循环遍历每一行
        If InStr(1, Cells(i, 1), "文字") > 0 Then '判断A列中是否包含“文字”
            Cells(i, 17) = Cells(i, 1) '将A列数据复制到Q列
        End If
    Next i
End Sub

4. 在Excel中选中Sheet1工作表，按下Ctrl+Shift+Q 绑定该宏至快捷键Q。

这样，每次按下快捷键Q，就可以实现一键提取A列中包含“文字”的数据到Q列。