VBA—EXCEL操作集合—02

最新推荐文章于 2024-05-26 15:29:39 发布

02年程序员飞鱼

最新推荐文章于 2024-05-26 15:29:39 发布

阅读量530

点赞数 1

分类专栏： VBA 文章标签：开发语言

本文链接：https://blog.csdn.net/m0_38057504/article/details/126845283

版权

本文介绍如何使用VBA在Excel中实现列转行的功能。通过VBA代码控制转换的列范围，并将结果输出到新工作表。代码包含解释，便于理解并根据需求调整。

摘要由CSDN通过智能技术生成

如果大家看了我上一篇文章，相信大家应该都已经学会录制宏了，这一次，我跟大家继续分享关于VBA的一些常用的知识点。

使用VBA进行【列转行】

通过截图我们先看一下我们要做的工作是什么

我在实际工作中遇到了这种列转行的情况，当然，不通过VBA，通过EXCEL本身的菜单操作也可以完成，我主要是想讲用VBA来如何实现这个功能。

代码如下：

Public Sub 班级列转行循环()
    Dim startCol, endCol As Integer
    Dim i_col_1, i_col_2 As Integer
    Dim wk, desc_wk As Worksheet
    Dim i_row As Long
    Dim desc_i_row As Long
    Dim is_have As Boolean
    
    
    Set wk = Application.ActiveWorkbook.Worksheets("Sheet1")
    Set desc_wk = Application.ActiveWorkbook.Worksheets("Sheet2")
    
    startCol = 1 '需要从第几列开始转
    endCol = 5  '到第几列结束
    is_have = False
    
    desc_i_row = 1
    For i_row = 1 To 3
        If desc_i_row &l