<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" scrollbars="0" papervisible="false">
<sheet name="sheet1" visible="false">
<text name="text1" origin="146,74" bounds="8,32,258,260" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="把当前选中的文字单元中的字符全部清空。

实际执行下面的代码：

BeginUpdate()
i = 0
while i &lt; ActiveSheet.Selection.UnitCount
  d = ActiveSheet.Selection.Units[i]
  if d.Type = &quot;text&quot; then
    d.Text = &quot;&quot;
  end if
  i = i + 1
wend
EndUpdate()"/>
<text name="text2" origin="10,18" bounds="8,8,64,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="清空表格"/>
</sheet>
</vg>
