您的位置: 首页 > Office技巧 > excel技巧

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

时间:2014-10-13 整理:docExcel.net

[excel如何给数据区域设置名称]为了方便日常工作和数据信息统计管理,很多人依旧还需要使用Excel进行操作,利用Excel制作一些辅助性表格,那关于怎么给Excel中一块数据区域设置名称这个问题,小编就和大家分享一...+阅读

有时需要在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”运行代码。

本文地址:https://www.docexcel.net/show/3_3808.html

以下为关联文档:

Excel怎么设置区域格式为自动套用格式我们想要用Excel设置区域格式为自动套用格式的时候。这个时候就会烦恼应该如何让它自动套用格式呢?一起来了解一下吧...

excel怎么打印不连续的区域如果Excel表格内容很多,而我们只想打印其中的一部分,但是需要打印的区域又不是连续在一起,此时应该如何设置才能将它们打印到一起呢?下面小编给大家介绍一种方法...

Excel2021怎么设置打印区域很多网友不清楚Excel2021怎么设置打印区域?这篇文章主要介绍了Excel2021设置打印区域教程,需要的朋友可以参考下...

excel灰色区域怎么取消这篇文章主要介绍了excel灰色区域怎么取消?excel灰色区域取消方法的相关资料,需要的朋友可以参考下本文详细内容。...

如何设置win10系统通知区域图标Win10的通知区域图标设置成为了“首批”进入Modern界面“设置”的项目之一,有一些从Win7/Win8.1升级而来的老用户也会因此感到迷茫,毕竟新界面和原...

Word区域保护功能不再担心电子合同内容被修改很多时候我们都会通过电子方式传递合同,在此过程中经常会担心合同的文本被人篡改。其实在Word中,有一项功能既能保证关键信息不被修改,又能允许个别区域一直处于(如...

Win10 20H1在可选功能上添加排序和搜索功能并移除区域语言包Windows 10 20H1功能更新可能会对系统中的“可选功能”设置页面进行细节调整。目前Windows 10系统中的设置应用包含“可选功能”页面,允许用户管...

Excel怎么设置打印区域在利用Excel进行打印操作过程中,打印的默认设置都是整个文档的打印,有时我们只想打印其中一部分内容,有不少用户感觉Excel打印区域设置起来十分别扭,其实只要...

excel打印区域怎么设置excel是我们常用的电子表格,我们一般用excel来记账,登记人事资料等.但是很多朋友不知道excel打印区域怎么设置,其实excel打印区域的设置方法还是非...

相关推荐: