execl多行转一列vb程序

《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、选择的数据就会转换到第一行中。