excel中的VB问题

===========================

私有子工作表_Change(ByVal目标作为范围)

如果目标。那么列= 3

尺寸c作为范围

对于目标中的每个c

如果IsEmpty(c ),则

c.偏移量(，1)。清除内容

其他

c.Offset(，1) =现在

如果…就会结束

然后

如果…就会结束

末端接头