如果同一行中的单元格包含“文本”，则移动单元格的范围

Question

嗨，我需要移动每行（扫描）中的一个单元格范围，这些单元格包含特定列（在我的情况下可以是任何列，但在我的代码中是coln“e”）中的一个单元格，该值以文本字符串L开始。以下是我所尝试的（我是VBA新手）。在本例中，我希望将ji:mi移动到ki:ni，其中I是行号。

Sub Move2()
    For i = 48 To 31 Step -1
        If Range("E" & i) = "*l" Then
            Range("J" & i & ":" & "M" & i).Cut
            Range("K" & i & ":" & "N" & i).Select
            ActiveSheet.Paste
        End If
    Next i
End Sub

Answer 1

尝试使用Like运算符，如下所示：

Sub Move2()
    For i = 48 To 31 Step -1
        If Range("E" & i) Like "l*" Then
            Range("J" & i & ":" & "M" & i).Cut _
            Range("K" & i & ":" & "N" & i)
        End If
    Next i
End Sub

上面的代码专门查找l并忽略l。
如果需要同时包含这两个代码，请将这行用于If。HTH.

If Range("E" & i) Like "[Ll]*" Then