excel利用VBA将多行多列区域转为一列

办公教程导读

收集整理了【excel利用VBA将多行多列区域转为一列】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含726字，纯文字阅读大概需要2分钟。

办公教程内容图文

有时需要在Excel中将某个多行多列的区域转换到一列中，下面的VBA代码可以实现这个目的。

1.按快捷键Alt+F11，打开VBA编辑器，在右侧代码窗口中粘贴下列代码：

Sub RangeToOneCol()
Dim TheRng, TempArr
Dim i As Integer, j As Integer, elemCount As Integer
On Error GoTo line1
Range("a:a").ClearContents
If Selection.Cells.Count = 1 Then
Range("a1") = Selection
Else
TheRng = Selection
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
Range("a1:a" & elemCount) = TempArr
End If
line1:
End Sub

上述代码可以将所选择的区域转换到A列中。

2.关闭VBA编辑器，返回Excel工作表界面。

3.如果A列包含数据，先在工作表的最左侧插入一列，以便放置转换后的数据。

4.选择需要转换的区域，按Alt+F8，打开“宏”对话框，选择上述代码中的宏名“RangeToOneCol”运行代码。

办公教程总结

以上是为您收集整理的【excel利用VBA将多行多列区域转为一列】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel利用VBA将多行多列区域转为一列。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。