点击这里查看首页

多列数据区域转换成一列VBA代码


来源:网络整理
发布时间:2019-03-05 00:07:00
查看次数:

内容提要:VBA模块,实现了选择需要转换的数据区域和选择存放区域起始单元格。

Sub rangetoonecol2()
Dim TheRng, TempArr, RNG As Range
Dim i As Integer, j As Integer, elemCount As Integer
On Error Resume Next
Set RNG = Application.InputBox("请选择源区域", "区域转一列", , , , , , 8)
If RNG.Cells.Count = 1 Then
    MsgBox "所选择区域单元格个数应该大于1"
    Exit Sub
Else
  TheRng = RNG
  elemCount = UBound(TheRng, 1) * UBound(TheRng, 2)
  ReDim TempArr(1 To elemCount, 1 To 1)
  For i = 1 To UBound(TheRng, 1)
    For j = 1 To UBound(TheRng, 2)
      TempArr((i - 1) * UBound(TheRng, 2) + j, 1) = TheRng(i, j)
    Next
  Next
 Set RNG = Application.InputBox("请选择存放区域起始单元格", "区域转一列", , , , , , 8)
  RNG(1).Resize(elemCount, 1) = TempArr
End If
End Sub

相关文章
·免魔法使用 New Bing 新方案03-18
·Win10电脑的一些安装提示12-03
·破解不能复制修改的word文档 06-13
·如何压缩word?10-19
·qlv格式视频转mp4方法08-10
·Excel输入分数的七种方法06-05
·VBA文本类型转换成数值型05-06
·EXCEL输入的技巧08-11
·Word查找的通配符和特殊字符!04-14
·心意答系统导出成绩之各题得分打印宏代码02-04
最新文章
·十秒免工具激活windows 1002-25
·批量替换word文档中的第一行作为文件的文件名06-21
·自动对一个文件夹下的N个word文件批量执行一个宏06-21
·Win10电脑开机启动慢?教你只需三步,电脑开机速度快06-11
·连接打印机时需要输入用户名密码怎么办?05-15
·免魔法使用 New Bing 新方案03-18
·Win10电脑账号密码设置、修改、取消12-06
·视频加速脚本TimerHooker (计时器掌控者)06-17
·[亲测有效]excel批量修改文件名10-29
·Excel随机生成区间数值06-23
阅读排行