控制列的显示没多少意义。直接控制能不能输入就好。prepareEdit事件
Select Case e.Col.Name
Case "1", "2", "3"
If e.Row("v") <> "A" Then e.Cancel = true
Case "4", "5", "6"
If e.Row("v") <> "B" Then e.Cancel = true
Case "7", "8", "9"
If e.Row("v") <> "C" Then e.Cancel = true
End Select