需要有关循环和查找范围内某个子字符串的帮助 [英] Need help with looping and finding a certain substring in a range

问题描述

你好 -

我需要写一个循环的VBS脚本，假设所有列F搜索诸如"JP"之类的字符串。

I need to write a VBS script that loops over, lets say all of Column F searching for a string such as "JP".

如果单元格包含"JP"，则表示"JP"。然后删除整行。

If a cell contains, "JP" then delete entire row.

请注意，"JP"不仅仅是两个字符 - 完整的搜索字符串如下所示：

Please note, "JP" isn't just two characters - the full search string looks like this :

我使用此代码获取LastCell：

I use this code to get LastCell:

	Set objWorksheet1 = objWorkbook1.Worksheets("Sheet3")
	xlUp = -4162
	Set LastCell1 = objWorksheet1.Range("A" & objWorksheet1.Rows.Count).End(xlUp)

搜索应从F2开始。

谢谢！

推荐答案

    Set objWorksheet1 = objWorkbook1.Worksheets("Sheet3")
    xlPart = 2
    With objWorksheet1.Range("F:F")
        Set rngFound = .Find("JP", objWorksheet1.Range("F1"), , xlPart)
        If Not rngFound Is Nothing Then
            strAddress = rngFound.Address
            Do
                ' do something with rngFound here
                ' ...
                Set rngFound = .FindNext(rngFound)
                If rngFound Is Nothing Then Exit Do
            Loop Until rngFound.Address = strAddress
        End If
    End With

这篇关于需要有关循环和查找范围内某个子字符串的帮助的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！