按Alt+F11進入VBA編輯器;在“項目-項目”中雙擊要設置的工作表,在右側選擇事件,在“常規”中選擇工作表,在“聲明”中選擇變更,輸入代碼如下:If Target。那麽列=2。
a =工作表功能。CointIf(範圍(" B:B "),1)
如果a & gt0然後單元格(1,1)。挑選
如果…就會結束
代碼和效果圖