gpt4 book ai didi

excel - 如果在工作表中找不到部分字符串,VBA 跳过文件?

转载 作者:行者123 更新时间:2023-12-04 22:16:29 25 4
gpt4 key购买 nike

在工作表中搜索部分字符串的最有效方法是什么?
我正在尝试通过事件工作表的 C 列的末尾在 C4 中搜索“N”。如果数组中没有出现“N”,那么我想关闭文件。如果确实出现“N”,我想打印一条消息“找到强制数据”
我知道你可以使用 countif 函数,总结它出现的时间,然后使用 if/then 来确定 Action ——但我想有更好的方法。想法?
我下面的代码在工作表中搜索“N”,然后删除它不存在的行。 注意:我想在搜索 中包含 N 之后的 3 个空格
Image here:

Sub InspectColumn()
'Define variables
Dim Cell As Range, cRange As Range, LastRow As Long, x As Long
Dim Res As Variant

' Define LastRow as the last row of data based on column C
LastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row

' Sets check range as C1 to the last row of C
Set cRange = Range("C1:C" & LastRow)

' For each cell in the check range, working from the bottom upwards
For x = cRange.Cells.Count To 1 Step -1
' find if 'N ' found in any cell in the row
Res = Evaluate("COUNTIF(" & x & ":" & x & ", ""*N *"")")

' if 'N ' not found delete row
If Res = 0 Then
ActiveSheet.Rows(x).Delete
End If

Next x
结束子

最佳答案

沿着这些思路。我已将其作为答案,但需要进行一些调整。

Columns("A:A").AutoFilter Field:=1, Criteria1:="<>*N*"
Columns("A:A").SpecialCells(XlCellType.xlCellTypeVisible).EntireRow.Delete
Columns("A:A").AutoFilter

关于excel - 如果在工作表中找不到部分字符串,VBA 跳过文件?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68624892/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com