Excel是许多职场人士常用的烦恼之源，学习相关技巧需耗费大量时间。简道云作为一款办公神器，能很好地替代Excel。它是一个在线表单和数据管理工具，支持PC端和手机微信浏览器操作。除此之外，简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理，满足不同需求。
有时需要在Excel中将某个多行多列的区域转换到一列中，下面的VBA代码可以实现这个目的。
1.按快捷键Alt+F11，打开VBA编辑器，在右侧代码窗口中粘贴下列代码：
Sub RangeToOneCol()Dim TheRng, TempArrDim i As Integer, j As Integer, elemCount As IntegerOn Error GoTo line1Range( excel利用VBA将多行多列区域转为一列
有时需要在Excel中将某个多行多列的区域转换到一列中，下面的VBA代码可以实现这个目的。
1.按快捷键Alt+F11，打开VBA编辑器，在右侧代码窗口中粘贴下列代码：
Sub RangeToOneCol()Dim TheRng, TempArrDim i As Integer, j As Integer, elemCount As IntegerOn Error GoTo line1Range("a:a").ClearContentsIf Selection.Cells.Count = 1 ThenRange("a1") = SelectionElseTheRng = SelectionelemCount = 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)NextNextRange("a1:a" & elemCount) = TempArrEnd Ifline1:End Sub
上述代码可以将所选择的区域转换到A列中。
2.关闭VBA编辑器，返回Excel工作表界面。
3.如果A列包含数据，先在工作表的最左侧插入一列，以便放置转换后的数据。
4.选择需要转换的区域，按Alt+F8，打开“宏”对话框，选择上述代码中的宏名“RangeToOneCol”运行代码。
