关于EXCEL中的VBA

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, cc As Range, c0 As Range, FontNm$, FontSz%

'------请按后面说明设置下面的变量-----
Set c0 = Range("A1") '控制的单元格 ,可以为区域
FontNm = "楷体" '控制的字体
FontSz = 20 '控制的字号
'------设置变量结束-----
On Error Resume Next
Application.EnableEvents = False
For Each c In Target
For Each cc In c0
If cc.Address = c.Address Then
With c.Font
.Name = FontNm
.Size = FontSz
End With
End If
Next
Next
Application.EnableEvents = True
End Sub
---------
操作：
在sheet表的名字上，右键，查看代码，将上面的代码复制入打开的代码窗中（当前sheet的代码窗），返回sheet表就可以了

比如你第一行的前几个设置成true 最后一个设置成false 最后还是false
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Dim i%
Dim j%
For j = 1 To 5
Rows(j).EntireRow.Hidden = False

For i = 1 To 50
If InStr(Cells(j, i).Value, "中文") Then
Rows(j).EntireRow.Hidden = True
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub

部分复制的代码需要点击宏\运行的。——因此应该建立一个按钮，再右击“安排宏”（Assign Macro）。
LS的是活动工作表里显示，所以就不用点击了。