http://jingyan.baidu.com/article/219f4bf7d75b9ede442d388c.html
可以使用VBA代码来完成！
详细代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target = 5 Then
Range("A6:A8").NumberFormatLocal = ";;;"
End If
If Target = 3 Then
Range("A4:A8").NumberFormatLocal = ";;;"
End If
If Target = 9 Then
Range("A2:A8").NumberFormatLocal = ";;;"
End If
End If
End Sub
使用方法：
1、ALT+F11-找到对应的工作表
2、粘贴代码
3、关闭VBE，返回工作表，测试
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024