子排虛（）
暗淡i%
維度j%
如果工作表。Count=1然後結束
對於j = 1到工作表。計數- 1
對於i = 1到工作表。計數-1
如果床單（壹）。Name & gt張（i + 1）。那就說出名字
張（i + 1）。向前移動:=張（I）
如果…就會結束
接下來我
下壹個j
末端接頭
只需使用壹個宏，單擊錄制宏，然後停止錄制，然後編輯這個空宏代碼，復制上面的命令並改為運行這個宏命令。宏也是VBA的壹部分。