excel中a1为0或空白时,这一列不显示或自动删除
展开全部
alt+F11打开VBA编辑窗口
双击
sheeet1
在右边窗口中复制下面的代码
然后你在sheet1的a1中输入0试试。
下面是A1为0时隐藏A列的代码
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
If
Cells(1,
1)
=
0
Then
Columns("A:A").Select
Selection.EntireColumn.Hidden
=
True
End
If
End
Sub
下面是A1为0时用B列的数字覆盖A列的数字
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
If
Cells(1,
1)
=
0
Then
Columns("B:B").Select
Selection.Copy
Columns("A:A").Select
ActiveSheet.Paste
End
If
End
Sub
双击
sheeet1
在右边窗口中复制下面的代码
然后你在sheet1的a1中输入0试试。
下面是A1为0时隐藏A列的代码
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
If
Cells(1,
1)
=
0
Then
Columns("A:A").Select
Selection.EntireColumn.Hidden
=
True
End
If
End
Sub
下面是A1为0时用B列的数字覆盖A列的数字
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
If
Cells(1,
1)
=
0
Then
Columns("B:B").Select
Selection.Copy
Columns("A:A").Select
ActiveSheet.Paste
End
If
End
Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询