在另一张表的“动态范围”中查找文本
塞夫波因特
我正在创建一个VBA应用程序，它将在一定范围内找到我输入的文本（应该是动态的，以便将来输入更多内容）。这样，范围内输入的文本将在另一个工作表列中查找单词：
例子：
然后它将寻找在另一张纸上输入的单词。
Dim Main as Worksheet
Set Main = Sheets("Sheet1")
Dim Raw2 as Worksheet
Set Raw2 = Sheets("Sheet2")
LookFor = Main.Range(D8:100)
Fruits = Raw2.Range("G" & Raw2.Rows.Count).End(xlUp).row
For e = lastRow To 2 Step -1
value = Raw2.Cells(e, 7).value
If Instr(value, LookFor) = 0 _
Then
Raw2.Rows(e).Delete
老实说，我不确定如何进行。上面提到的代码只是实验。所需的输出是删除sheet2中的所有内容，但包含我在“查找单词”中输入的单词的行除外。希望您能够帮助我。谢谢你。
R3uK
这应该可以解决问题：
Sub Sevpoint()
Dim Main As Worksheet
Set Main = Sheets("Sheet1")
Dim Raw2 As Worksheet
Set Raw2 = Sheets("Sheet2")
Dim LooKFoR() As Variant
Dim LastRow As Double
Dim i As Double
Dim j As Double
Dim ValRow As String
Dim DelRow As Boolean
LooKFoR = Main.Range(Main.Range("G8"), Main.Range("G" & Main.Rows.Count).End(xlUp)).Value
LastRow = Raw2.Range("G" & Raw2.Rows.Count).End(xlUp).Row
For i = LastRow To 2 Step -1
ValRow = Raw2.Cells(i, 7).Value
DelRow = True
'MsgBox UBound(LooKFoR, 1)
For j = LBound(LooKFoR, 1) To UBound(LooKFoR, 1)
If LCase(ValRow)<>LCase(LooKFoR(j, 1)) Then
Else
DelRow = False
Exit For
End If
Next j
If DelRow Then Raw2.Rows(i).Delete
Next i
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
从一张纸中查找文本并用它替换另一张纸
- 2
将动态行范围复制/追加到另一张工作表
- 3
查找特定用户MySQL在同一张表中的日期范围重叠
- 4
原始工作簿中每个工作表中带有动态列的静态表！错误：一张表不能与另一张表重叠
- 5
根据另一张表中的编号在一张表中插入多行
- 6
从一张表中的一列到另一张表中的多列查找值
- 7
在MySQL中从一张表到另一张表的数据
- 8
从另一张表中减去一张表
- 9
使用一张表中的数据查询另一张表
- 10
基于另一张纸中的动态自动过滤器在一张纸上创建图表 - 返回不正确的范围
- 11
从同一张表中查找dplyr
- 12
在同一张表中查找错误/重复的数据
- 13
将选定的动态数据列从一张工作表复制并粘贴到另一张工作表
- 14
将行输出到另一张表中
- 15
将一行中的列范围而不是整个行复制到另一张工作表？
- 16
将一行中的列范围而不是整个行复制到另一张工作表？
- 17
如何使用范围内的每个值自动过滤另一张工作表中的数据？
- 18
根据mysql中另一张表中的值更新一张表中的多列
- 19
如何通过从另一张表中获取ID将值插入到一张表中
- 20
在sql中根据另一张表中的日期计算一张表的数量总和
- 21
从一张表中取出数据并将其存储到另一张表中
- 22
将 JSON 数据从一张表插入到 HIVE 中的另一张表
- 23
将日期从一张表复制到另一张表并更改 mysql 中的格式
- 24
PHP & MySQL - 如果内容不在一张表中，请检查另一张表
- 25
通过从SQL Server的另一张表中选择行，将所有行一张一张地插入到空表中
- 26
Rails在不同的动态范围内两次连接同一张表
- 27
EXCEL VBA代码未将范围复制到另一张工作表
- 28
Excel VBA：如何将数据推到另一张工作表上的独占范围？
- 29
另一张工作表上的参考单元格范围-Excel
我来说两句