<p>Sub</p>

<p>Dim Rng As Variant</p>

<p>Dim txtlength As Long</p>

<p>If TypeName(Selection) = "Range" Then</p>

<p>For Each Rng In Selection</p>

<p>txtLength = Rng.Characters.Count</p>

<p>Rng.Characters(txtLength,1).Font.Superscript = True</p>

<p>Next Rng</p>

<p>End If</p>

<p>End Sub</p>

<p>Sub 批量删除空行，先选定列()</p>

<p>Dim RowN As Long</p>

<p>For RowN = Cells(Rows.count, "A").End(xlUp).Row To 2 Step -1</p>

<p>If Worksheetfunction.countA( _</p>

<p>Intersect(Rows(RowN), Selection)) = 0 Then</p>

<p>Rows(RowN).Delete Shift:=xlShiftUp</p>

<p>End If</p>

<p>Next RowN</p>

<p>End Sub</p>