学习VBA-合并列

首先选定一个区域,将这个区域的内容按列合并到该区域的后一列中。

学习过程中,如有错误或改进之处,还请多多指教!

Sub 合并列()

Dim hang As Integer '控制输出的行
    Dim lie As Integer '控制输出的列
    hang = Selection.Cells(1).Row
    lie = Selection.Columns.Count + Selection.Cells(1).Column '默认在选定区域后的第一列输出
    Dim sHang As Integer '选定区域的左上第一个单元格的行下标
    Dim sLie As Integer '选定区域的左上第一个单元格的列下标
    For sLie = Selection.Cells(1).Column To Selection.Columns.Count + Selection.Cells(1).Column - 1 '列后循环 Selection.Columns.Count 为选定区域的列数
        For sHang = Selection.Cells(1).Row To Selection.Rows.Count + Selection.Cells(1).Row - 1 '行先循环
            If Cells(sHang, sLie) = "" Then '若当前单元格内容为空则跳出当前循环
                Exit For
            End If
            Cells(hang, lie) = Cells(sHang, sLie) '若不为空则在输出单元格输出数据
            hang = hang + 1 '输出行标加1
        Next
    Next

End Sub

测试如下:

选定单元格:

执行结果:

选定单元格:

执行结果:

学习vba之按列合并将选定区域的单元格合并成一列相关推荐

  1. 帆软相同列合并_扩展后连续单元格合并

    2.1 模板设计 1)新建数据集查询ds1: SELECT substr(订购日期,1,4) as 年份, 货主省份, 货主城市, count(1) as 数量 FROM S订单 where 货主省份 ...

  2. html 导出excel 列被合并,前端实现导出excel单元格合并和调整样式

    有些业务场景需要导出excel表格,寻常这类需求其实是服务端完成,但是前端也有可以实现这类需求的库,这里我介绍最近使用过的三个库. 通用电子表格格式(CSF) 单元地址对象存储为{c:C, r:R}, ...

  3. 计算机删除等级列在哪里,插入与删除Excel表格的单元格、行和列

    您可以在Excel工作表中活动单元格的上方或左侧插入空白单元格,同时将同一列中的其他单元格下移或将同一行中的其他单元格右移.同样,您可以在一行的上方插入多行和在一列的左边插入多列.您还可以删除单元格. ...

  4. 2.单元格的跨列居中和自动换行

    提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档 单元格的跨列居中和自动换行 前言 一.跨列居中 二.自动换行 前言 制作表格时,为了不影响后续的数据处理与分析,可以使用跨列居中功能代 ...

  5. Python 技术篇 - 操作excel实现单元格合并并居中实例演示,用openpyxl库为指定区域的单元格设置对齐样式和字体样式方法

    Openpyxl 设置 excel 单元格合并.对齐样式和字体 第一章:openpyxl 操作 excel ① 设置单元格合并 ② 设置单元格居中对齐样式 ③ 设置单元格字体样式 第一章:openpy ...

  6. datagridview单元格合并居中_系统地学习Excel第17课,设置单元格格式

    上一篇:系统地学习Excel第16课,使用Excel的「替换」功能 本篇内容结构如下: 本章的知识体系 Excel工作表的整体外观由各个单元格的样式构成,单元格的样式外观在Excel的可选设置中主要包 ...

  7. POI导出Excel:设置字体、颜色、行高自适应、列宽自适应、锁住单元格、合并单元格...

    点击关注公众号,利用碎片时间学习 1. 前言 poi框架可以支持我们在java代码中, 将数据导出成excel , 在实际开发中, 往往还需要设置excel字体,颜色,行高,列宽等属性, 有时候还需要 ...

  8. asp单元格合并后宽度没有合并_ElementUI Table组件如何使用合并行或列功能深入解析...

    需求,对指定的列表展示进行合并单元格,循环展示指定行和指定列. 1.官方文档 通过给table传入span-method方法可以实现合并行或列,方法的参数是一个对象,里面包含当前行row.当前列col ...

  9. pandas处理excel单元格合并后的列

    日常处理数据时会面临到一种excel数据就是单元格合并,但是在pandas读取的时候会被分位两行读取(意:显示位2行 一行为空值 或者更多) 这里主要讲下单元格合并两行的时候,其他的与之类似 这里有我 ...

最新文章

  1. python udp 直播_[Python] socket发送UDP广播实现聊天室功能
  2. 超经典超好玩的光枪游戏,强烈推荐!
  3. Ubuntu18.04 Numix
  4. python web scraping
  5. 如何在 ASP.Net Core 中使用 Consul 来存储配置
  6. AWS EC2怎么动态增加磁盘空间
  7. 【CV学习4】OpenCV-Python: SIFT Demo one
  8. C语言中全局变量存放在哪个位置?
  9. 我知道真相,但我仍然勇往直前
  10. python怎么使用-如何使用 Python 开始建立
  11. LaTeX报错 Difference (2) between bookmark levels is greater (hyperref) than one, level fixed.
  12. P2P技术原理及应用
  13. 六、DMSP/OLS夜间灯光数据之GDP空间化的反演
  14. 《现代操作系统(中文第四版)》课后习题答案 第一章 引论
  15. 最大似然估计程序c语言,极大似然估计(示例代码)
  16. 完美世界:你病了,要么离职,要么996,要么小黑屋三选一
  17. xposed+justtrustme
  18. 好玩的Python彩蛋
  19. 大数定律和中心极限定理(未完成)
  20. Leaflet基础入门教程(一)

热门文章

  1. 格式化时间戳(时间戳转化为日期时间格式)
  2. 刺激战场android闪退,刺激战场闪退怎么办
  3. img 图片加载设置超时
  4. 如何编辑eps格式的图片
  5. git 撤销提交 撤销暂存区 取消操作
  6. rtx2060为什么叫智商卡_笑谈PC圈勇夫:为什么说GTX1050是“智商检测卡”
  7. 推荐几个免费好用的毕业论文(设计)文献查找网站包括外文文献(亲测有用)
  8. 华三路由器qos 简单的接口限速
  9. 怎么做才可以把电脑上的照片给做成视频?-markdown编辑器
  10. NiosII 学习过程