6,210
社区成员
发帖
与我相关
我的任务
分享
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColStart, ColEnd, RowStart, RowEnd
ColStart = Target.Column
ColEnd = ColStart + Target.Columns.Count - 1
RowStart = Target.Row
RowEnd = RowStart + Target.Rows.Count - 1
For i = ColEnd To ColStart Step -1
For j = RowStart To RowEnd
If Cells(i, j) <> "指定值" Then
Columns(i).Delete
Exit For
End If
Next j
Next i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColStart, ColEnd, RowStart, RowEnd
ColStart = Target.Column
ColEnd = ColStart + Target.Columns.Count - 1
RowStart = Target.Row
RowEnd = RowStart + Target.Rows.Count - 1
For i = ColStart To ColEnd
For j = RowStart To RowEnd
If Cells(i, j) <> "指定值" Then
Columns(i).Delete
Exit For
End If
Next j
Next i
End Sub