<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>