多列数据区域转换成一列VBA代码
来源:网络整理
发布时间:2019-03-05 00:07:00
查看次数:
内容提要:VBA模块,实现了选择需要转换的数据区域和选择存放区域起始单元格。
Sub rangetoonecol2()
Dim TheRng, TempArr, RNG As Range
Dim i As Integer, j As Integer, elemCount As Integer
On Error Resume Next
Set RNG = Application.InputBox("请选择源区域", "区域转一列", , , , , , 8)
If RNG.Cells.Count = 1 Then
MsgBox "所选择区域单元格个数应该大于1"
Exit Sub
Else
TheRng = RNG
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
Set RNG = Application.InputBox("请选择存放区域起始单元格", "区域转一列", , , , , , 8)
RNG(1).Resize(elemCount, 1) = TempArr
End If
End Sub
Dim TheRng, TempArr, RNG As Range
Dim i As Integer, j As Integer, elemCount As Integer
On Error Resume Next
Set RNG = Application.InputBox("请选择源区域", "区域转一列", , , , , , 8)
If RNG.Cells.Count = 1 Then
MsgBox "所选择区域单元格个数应该大于1"
Exit Sub
Else
TheRng = RNG
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
Set RNG = Application.InputBox("请选择存放区域起始单元格", "区域转一列", , , , , , 8)
RNG(1).Resize(elemCount, 1) = TempArr
End If
End Sub
- 相关文章
- ·巧妙管理 为打印机减负05-25·快速创建以当前日期命名的文件夹05-15·安卓手机因软件安装失败解决方法06-19·Excel 进行学生成绩统计分析03-13·VBA撤销excel工作表保护09-01·如何一次性同时打开多个Excel工作簿10-30·出于安全原因,Firefox 取消了该请求03-22·A4排版16开打印试卷 08-30·在Word里用通配符实现特殊替换05-09·VBA文本类型转换成数值型05-06
- 最新文章
- ·连接打印机时需要输入用户名密码怎么办?05-15·免魔法使用 New Bing 新方案03-18·Win10电脑账号密码设置、修改、取消12-06·[亲测有效]excel批量修改文件名10-29·Excel随机生成区间数值06-23·PS如何一键批量裁剪图片?06-02·微课制作注意事项06-02·删除 word 中所有的中文字符03-17·WORD批量插入图片和文件名11-12
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·不同电脑文件字体改变了的解决方法12-15·Excel 进行学生成绩统计分析03-13·我的电脑图标不见了,怎么找回来!09-14·Excel如何批量插入分页符02-12·制作Word2003选择性粘贴快捷键07-09·Win10电脑的一些安装提示12-03·Word高级替换技巧03-05
2008-2023 | www.zshunj.cn |www.yykz.net
点击这里识别二维码关注公众号
点击这里识别二维码关注公众号