利用VBA将多行多列区域转为一列
发布时间：2022-07-06 15:19:53
标签：代码,区域,转换,选择,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”运行代码。
0
投稿猜你喜欢
- Excel中经常需要用到Excel里的自动编号功能进行录入编号，具体该如何使用自动编号功能呢?下面是小编带来的关于excel中使用自动编号的
- 首先，想先告诉题主一个PPT的规则：文字是PPT的天敌。因此，除非你的PPT是专门用于阅读而非演讲，建议不要放太多文字。其次，PPT是注重逻
word索引怎么做？首先要知道什么是索引？索引是为了加速对表中数据行的检索而创建的一种分散的存储结构。索引是针对表而建立的，它是由数据页面以- 以WPS 2019版为例，点击“新建”--->“PDF”。 在“推荐功能”处，点击“PDF转Word”即可。PDF如何在线转
- 腾讯文档是腾讯官方推出的一款专业的电脑文档管理软件，有用户在使用腾讯文档的时候，想要将腾讯文档生成网页文档，但是不知道应该怎么操作，接下买就
- 昨天，小编的电脑突然怪状，win8开始菜单不见了，找半天也没找到，这是怎么回事呢?小编百思不得其解啊，在网上各种搜罗win8开始菜单不见了的
- 搜书大师APP怎么去广告？搜书大师APP是一款小说阅读器，我们在搜书大师APP中观看小说时，都会有一些烦人的广告，如果我们想要去除这些广告，
- Mac电脑必备的系统清理软件，可以非常轻松地清理和优化您的Mac，因为现在市场上的Mac清理软件有很多，对于不熟悉的人就会有点不知道该怎么选
- WinXP系统电脑怎么清理磁盘碎片？WinXP系统电脑该如何使用磁盘碎片清理功能？下面就给大家详细介绍WinXP系统电脑清理磁盘碎片的具体操
- 在word编辑文档的时候，有时候我们需要对文档进行多次修改，为了保持修改痕迹，我们都会采取修订的模式，这样就可以清晰的看到哪里修改了，改了什
- 怎么使用PS把照片改成一寸照片尺寸？现在许多场合都会使用到一寸照片，可是有些用户在照相的时候都没有让摄影师将各个尺寸的电子档发给用户，那么我
- 当然，在PPT设计中，除了色轮我们还常用到其他的配色方法。配色方 * OGO取色：你公司的LOGO可能由一种或者多种颜色组成的，如果你用取色管
- 不少用户最近都新购置了一些电脑，而不少电脑预装的系统都是Windows11系统，那么新电脑首次开机要怎么跳过账户呢？其实方法也非常的简单，下
- QQ五笔输入法自动更新设置教程？QQ五笔输入法是腾讯推出的一款五笔输入法软件，具有快速造词、拼音临时记录、词库同步等功能。QQ五笔输入法要怎
- 魔兽世界是一款很经典的游戏，即使是在现在，也还有许多用户在玩。在MAC中玩魔兽世界的时候，有些用户发现电脑总是有些运行不顺，那么该如何解决这
- ppt怎么做长图？ppt中想要用多张图片制作成长图，该怎么制作呢？下面我们就来看看ppt长图的三种制作方法，很简单，需要的朋友可以参考下PP
- 我们平常在使用电脑的时候会遇到电脑网络无法连接的情况，这时可以尝试通过修改dns地址来解决，不过很多用户不清楚win11怎么修改dns，其实
- EXCEL怎么设置隔5个数就取最大值？excel使用过程中会遇到求相隔几个数里面的最大数，可以利用函数mod的判断，行范围数，用max取响应
- WPS表格软件是金山公司开发的同微软的Excel功能一致，在WPS表格中制作折线图是我们经常用到的，这里小编就介绍一下如何在WPS表格中生成
- 巧影怎么制作视频抠像效果?巧影是一款在安卓系统上运行的专业视频编辑应用，用户可以使用其编辑视频。想要使用巧影制作视频抠图效果，具体该怎么操作
