作者：乔山办公网日期：
返回目录：excel表格制作
arr = Intersect(Sheets(4).UsedRange, table_array)
将Sheets(4).已用单元百格部分与table_array重合的度区域赋值给专arr
就像下图=COUNTIF(A:A,"")和=COUNTIF(A1:A3,"")的区别属
Sub xxx()
Dim rg As Range, i As Integer
For Each rg In Application.Selection
If rg Like "*[[]*[]]*" Then
rg.Characters(InStr(rg, "["), Len(Mid(rg, InStr(rg, "]"), InStr(rg, "]") - InStr(rg, "[") + 1))).Font.Superscript = False
rg.Characters(InStr(rg, "["), Len(Mid(rg, InStr(rg, "]"), InStr(rg, "]") - InStr(rg, "[") + 1))).Font.Subscript = True
End If
Next
End Sub
里面那一知层for可以道不要，改专成这样属
查找区域(1).Resize(查找区域.Rows.Count, 1)第一个1)是指第一个单元格，第二个10是指单列
首先是分段，然后是分层次