Question

您好我需要在每行（扫描）中移动一系列包含特定列中单元格的单元格（在我的情况下可能是任何列，但在我的代码中，它是colomn＆＃34; E＆＃34; ）哪个值以文本字符串 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 Operator，如下所示：

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

如果同一行中的单元格包含＆＃34; TEXT＆＃34;

1 个答案: