我知道这是一个反复出现的话题,但我需要你的帮助,因为我的 VBA 代码不起作用
我正在尝试在列中包含特殊文本的单元格值上创建循环 (B:B):
请找到我的代码
Sub test ()
Dim rw As Long, Cell As Range
For Each Cell In Sheets("Work").Range("B:B")
rw = Cell.Row
If InStr(1, Cell.Value, "ResourcesHIIT4") > 0 Then '
'If Cell.Value Like "*ResourcesHIIT4*" Then
Cell.EntireRow.Copy
Sheets("Database").Select
Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues
Set r = Sheets("Allocation").Range("A2")
Do While r.Value <> ""
Range("C1048576").End(xlUp).Offset(1, 0).Value = r.Value
Set r = r.Offset(1)
Loop
end if
next
end sub
我尝试了这 2 种不同的代码,每次宏转到 end if
时:
If InStr(1, Cell.Value, "ResourcesHIIT4") > 0 Then '
If Cell.Value Like "*ResourcesHIIT4*" Then
你能帮我知道问题出在哪里吗?
感谢您的帮助