尺寸c、r、s、n、tmp
出錯時繼續下壹步
C =列（“A”）。數據所在的“列”，即a列。
對於r = 2的單元格（65536，c）。結束（xlUp）。排
s =單元格（r，c）
n = InStr（1，s，“*“）
如果n & gt1和n & lt鏡頭然後單元格（r，c + 1）。調整大小（1，2 _
= Array（Evaluate（Replace（s，“*“，“+“），Evaluate（s））
然後
末端接頭