利用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
投稿
猜你喜欢
- 现在市面上电脑安装的一般都是win10系统,因为新电脑都支持uefi引导启动,安装win10系统可以让启动更加快速。还有很多新手小白不清楚如
- 现在很多人都在使用excel软件,那么excel向下填充的技巧是怎么样的呢?今天小编为大家讲讲,希望能够对大家有所帮助。1、首先打开exce
- 在用EXCEL中,我们常常用到函数,你知道该如何使用函数吗?下面小编就为大家介绍在excel表格中怎么使用Indirect函数方法,不会的朋
- 首先安装好Beyond Compare,选中要比较的表格文件,右键,选择 比较 直接就能看到想要的比较结果 &nb
- 大家知道,Excel中的网格线是打印不出来的,要打印网格线,一般是设置边框。实际上不设置边框,也可以打印网格线。 图1
- word中页眉怎么设置与上一节不同1、首先打开一个文档,点击上方的命令栏,找到“页眉”指令。2、点击编辑,输入页眉的文字,输入完成之后,会看
- 假如一个Excel2007/2003工作表有10000行,如果第1列第8936行的数据需要修改,怎么办?无论用鼠标拖滚动条,还是用键盘上的翻
- 本文介绍Microsoft Excel中RSQ函数的语法和用法。函数说明RSQ函数的主要作用是返回根据 known_y's 和 kn
- 常用办公软件 Excel技巧的整理、讲解,在这里给读者们看一看,给大家一些提示,希望在你在平时能用得上。1、两列数据查找相同值对应的位置=M
- 使用电脑的时候总是会遇到很多问题,让很多用户遇到了很多问题。最近就有很多小伙伴们在重启电脑的时候没有成功开启,卡在了开机的logo界面一直进
- Excel单元格的位置同样是用坐标表示,同样是横坐标在前,纵坐标在后。如图:横坐标是用英文字母顺序表示,纵坐标是用阿拉伯数字表示。
- word、excel里给折线图加上坐标轴注释操作方法相同。(以下用word做详细操作步骤说明)方法如下:1、打开已插入拆线图的word;2、
- 微软在前几天发布了新一代Office的客户预览版,新版的Office 2013继续支持对PDF文档的兼容,并比之前的版本更加强大了。 &nb
- 如果一篇Word文字内容太多超过了一页纸,但是第二页又只有一点点内容。如果把这篇Word缩小90%打印就可以在一页里放下所有内容了,但是该怎
- 大家知道,财务那里的Excel工资大表中只有一个表头,下面有许多员工的工资记录,但在生成工资条时,每个员工的工资条上都会有一个表头和各项明细
- Excel在当今社会运用得比较广泛,它通常作用于数据的统计、分析、对比等。而且很多时候都需要登记一下一个集体的个人资料,但是很多时候身份证号
- 相信亲们在使用word文档的时候,不管是哪个版本,都会碰到输入法切换不到中文的那种情况吧。今天小编简单给大家介绍下各个版本的word文档如何
- 很多使用win10专业版系统的小伙伴发现,自己打开声音设置里显示麦克风未插入,无法使用设备,那怎么办呢?如何解决这个问题?一起来看看吧!Wi
- win10不支持Uefi固件的磁盘布局一般是主板的设置问题,尤其是在安装或者更新的时候会有这个现象产生,解决的话可以按照以下的几个步骤来进行
- Win10在重大更新TH2(1511)后,我们在使用Win10 th2会反复出现蓝屏故障。这是什么情况呢?现在小编就给大家介绍Win10更新