excel 如何使得一个单元格内1-20,的数字一一显示

来源:百度知道 编辑:UC知道 时间:2024/05/23 01:22:12
我在一个单元格里输入1-20, 如何让它在这个单元格里显示成1,2,3,4,...,19,20.
谢谢!!

用VBA解决吧
建一个模块,输入以下代码

function SplitInt(byval sInt as string) as string
dim Arr
dim i%
dim str

on error goto ErrH:

arr=split(sint,"-")
str=""
for i=cint(arr(0)) to cint(arr(1))
if str="" then
str=i
else
str=str & "," & i
end if
next i
SplitInt=str
exit function
ErrH:
SplitInt=""
end function

在这工作生簿的任意单元格输入公式
=SplitInt("1-20") 就可以得到,当然也可以引用单元格

没有办法,只能一个一个地摁。在不同的单位格里可以,输入1,下面的单元格输入2,全部选中,用鼠标托住右下角向下拉。