当前位置：网站首页 > 热门文章 > 正文

VBA编程，提取工作表数据，根据条件实现行列转换

bigegpt 2024-12-18 12:13 14 浏览

VBA进行数据操作有天然的优势，不仅可以快速提高数据查找，排序等操作，还可以减少人为的操作失误。

本文介绍一个小技巧，实现工作表任意区域内的数据行，转换为列，还可以根据条件进行查询。

上图为本示例的演示结果。

黄色区域为原始数据，绿色区域为查找和转置后的结果。

其功能为查询第一列的内容，如果不是数字格式，就全部行数据转置为列，如果不是数字就只查找某一个列的数据。

下图为操作界面：

示例中应用了3个RefEdit控件，此控件可以选择工作表中的单元格，可以大提高本示例的灵活性。任意选择要操作的数据区域。

代码：

Private Sub selectStation()
On Error Resume Next
Dim R As Range, sR As Range, ci As Long
Set R = Range(Me.RefEdit1.Value)
Set sR = Range(Me.RefEdit2.Value)
ci = Range(Me.RefEdit3.Value).Column
If R Is Nothing Then Exit Sub
If sR Is Nothing Then Exit Sub
If VBA.Err.Number <> 0 Then Exit Sub
GetList R, sR, ci
Set R = Nothing
Set sR = Nothing
End Sub

函数：

Public Function GetList(R As Range, sR As Range, xci As Long)
'R 为要查询单元区域
'sR 查询结果开始单元格
'xci 返回不是数字列号
    On Error Resume Next
    Dim cArr, ri As Long, ci As Long
    ReDim cArr(R.Columns.Count)
    For ri = 1 To R.Rows.Count
        If VBA.IsNumeric(R.Cells(ri, 1).Value) Then           
            With sR.Offset(0, ci).Resize(R.Columns.Count, 1)
                .Value = cArr
            End With
        Else
            sR.Offset(0, ci).Value = R.Cells(ri, 1).Value
            sR.Offset(1, ci).Value = R.Cells(ri, xci).Value
        End If
        ci = ci + 1
    Next ri
    Erase cArr
End Function

逻辑上，本示例还是进行一些相对特定的操作，实际应用中，可以根据自己的需求进行一些修改，以便更加符合自己的结果。

欢迎关注、收藏

---END---

r语言gsub函数

上一篇：Linux shell awk 用法 linux的awk用法
下一篇：oracle date_sub函数用法 oracle datepart函数

VBA编程，提取工作表数据，根据条件实现行列转换

相关推荐

idea本地配置连接远程hadoop集群的一些网络问题解决汇总

无缓存不行?例行升级的入门级阿斯加特AN2 SSD装机点评

Ceph运维手册(基于P版本)

大数据开发前要做什么准备?8台Hadoop服务器进行集群规划前配置

Tensorflow分类loss函数总结 tensorflow绘制loss曲线

R语言学习笔记(七) -离散型数据的模型预测2

iOS Runtime详解

7 个对 Java 意义重大的性能指标，你知道几个?

PHP 远程调试最佳实践

Laravel框架使用图片处理简单教程