Excel办公应用:多行多列数据,一键转化为一列!VBA入门应用 图文

2018年7月6日16:37:12Excel办公应用:多行多列数据,一键转化为一列!VBA入门应用 图文已关闭评论 5,558 views
微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com

在对数据进行统计分析时,经常需要把多行多列数据转化为一列!

有人说,这还不简单?!比如下面的方法:

方法1:复制一列,再粘贴一列;

方法2:利用错位引用;

方法3:利用剪贴板;

方法4:利用数据透视表

上面4种方法,小编只能哈哈大笑了!!!

请看,小编的方法:

Excel办公应用:多行多列数据,一键转化为一列!

温馨提示:在转化前,先选择待转化的数据或数据区域!!

实现上述功能,所需代码如下:

  1. Sub RangeToOneCol()
  2.  
  3. Dim TheRng, TempArr
  4.  
  5. Dim i As Integer, j As Integer, elemCount As Integer
  6.  
  7. On Error GoTo line1
  8.  
  9. Range("a:a").ClearContents
  10.  
  11. MsgBox "请先选择需要被转化的数据区域!"
  12.  
  13. If Selection.Cells.Count = 1 Then
  14.  
  15. Range("a1") = Selection
  16.  
  17. Else
  18.  
  19. TheRng = Selection
  20.  
  21. elemCount = UBound(TheRng, 1) * UBound(TheRng, 2)
  22.  
  23. ReDim TempArr(1 To elemCount, 1 To 1)
  24.  
  25. For i = 1 To UBound(TheRng, 1)
  26.  
  27. For j = 1 To UBound(TheRng, 2)
  28.  
  29. TempArr((i - 1) * UBound(TheRng, 2) + j, 1) = TheRng(i, j)
  30.  
  31. Next
  32.  
  33. Next
  34.  
  35. Range("a1:a" & elemCount) = TempArr
  36.  
  37. End If
  38.  
  39. line1:
  40.  
  41. End Sub

 

代码窗口的截图,如下:

Excel办公应用:多行多列数据,一键转化为一列!

插入一命令按钮(比如名称为“点我”),把上面的代码赋于这个按钮,这样就把既浪费时间又容易出错的事情,轻轻按下按钮就可以解决了。

 

表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页