欢迎来到天天文库
浏览记录
ID:8813980
大小:199.50 KB
页数:3页
时间:2018-04-08
《execl多行转一列vb程序》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、1、用EXECL打开需要转换的.xls(不要用WPS);找到“开发工具”,点击“VisualBasic”:2、弹出VB程序对话窗口:3、双击左侧的Sheet1,然后将下列公式复制到右侧编辑窗内:SubRangeToOneCol()DimTheRng,TempArrDimiAsInteger,jAsInteger,elemCountAsIntegerOnErrorGoToline1Range("a:a").ClearContentsIfSelection.Cells.Count=1ThenRange("a1")=SelectionElseTheRng=Sel
2、ectionelemCount=UBound(TheRng,1)*UBound(TheRng,2)ReDimTempArr(1ToelemCount,1To1)Fori=1ToUBound(TheRng,1)Forj=1ToUBound(TheRng,2)TempArr((i-1)*UBound(TheRng,2)+j,1)=TheRng(i,j)NextNextRange("a1:a"&elemCount)=TempArrEndIfline1:EndSub4、在EXCLE中选择要转化成一列的数据:5、然后到刚才打开的microsoftVisualBasi
3、c中,点击运行按钮:6、选择的数据就会转换到第一行中。
此文档下载收益归作者所有