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

2010-07-11 12:55:46 535 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel-VBA 快速上手（八、单元格对象-常见的单元格操作） vba、单元格的常见操作阅读详情

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列含[店]字的就不删除空单元格向左移动，现在的代码是不管含不含店都移动

...全文

VBA删除Excel工作表空白单元格、行和列 VBA删除Excel工作表空白单元格、行和列阅读详情

hanakoko

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

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

相关推荐

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