VBA Excel对删除空单元格后向左移动操作的判断 急急急？？？

[hanakoko]

Sub 空白セルを削除して左詰めにする()

Dim myAr As Variant
Dim myAr2() As Variant
Dim i As Long, j As Long, k As Long
Dim a As Integer

With Range("A2").CurrentRegion.Resize(10000, 5) '行数指定可,列はE列(5)まで,アクティブセル未対応
myAr = .Value
'　　　　.ClearContents
ReDim myAr2(1 To UBound(myAr, 1), 1 To UBound(myAr, 2))
For i = 1 To UBound(myAr, 1)
For j = 1 To UBound(myAr, 2)
If myAr(i, j) <> "" Then
a = 1
If Range("A" & j).Value Like "*店*" Then
a = 0
End If
If a <> 0 Then
k = k + 1
myAr2(i, k) = myAr(i, j)
End If
End If

Next j
k = 0
Next i
Application.ScreenUpdating = False
.Value = myAr2
Application.ScreenUpdating = True
End With

End Sub


我要的结果是A列含[店]字的就不删除空单元格向左移动，现在的代码是不管含不含店都移动

[lzqgj]

不然用instr函数代替？like看不出问题所在
If Range("A" & j).Value Like "*店*" Then
a = 0
End If
If a <> 0 Then
k = k + 1
myAr2(i, k) = myAr(i, j)
End If
好像有点复杂，改成
If Range("A" & j).Value Like "*店*" Then
k = k + 1
myAr2(i, k) = myAr(i, j)
End If