vision(教父):
OptionBase1Sub单元格区域连列()DimmyAsRange,my1()DimpAsLongDimiAsLongSetmy=Application.InputBox(Prompt:="使用鼠标选择单元格区域",Type:=8)p=my.Counti=1ReDimmy1(p,1)ForEachcInmyIfc.Value""Thenmy1(i,1)=c.Valuei=i+1EndIfNextcSetmy=Application.InputBox(Prompt:="使用鼠标选择要输出的第一....