当前所在位置: 首页 > 儿童教育 > 正文

如何快速将多列数据转换成多行数据

2023-01-26 餐饮美食网 【 字体:

在我的工作表中,同一行是某学生测试项目和课外兴趣班的全部信息,如下图1所示。

图1:在工作表“InputData”列A至列C中存储学生一般信息,列D至列列W存储着学生测试项目信息。测试项目信息分为“测试项目、测试日期、分数、等级”列,共重复5次(即有5个测试项目)。

图2:在工作表“InputData”列X至列AI存储着学生课外兴趣班信息。课外兴趣班信息分为“课外兴趣班、频次、持续时间、效果”列,共重复了3次。

现在,要将工作表“InputData”同一行中的数据转换成多行数据,并存储到工作表“OutputData”中,如下图3所示。

图3:转换成多行数据的结果。每名学生的“测试项目、测试日期、分数、等级”和“课外兴趣班、频次、持续时间、效果”信息放置在不同的行中。

可以使用VBA代码来快速完成数据的转换:

‘设置数组下标从1开始

Option Base 1

‘自定义类型

Type student

info() As Variant

exam(5) As Variant

interest(5) As Variant

End Type

Sub MainOutput()

Dim wks As Worksheet

Dim i As Long

Dim rngInputData As Range

‘获取要处理的数据区域

Set rngInputData =Worksheets(“InputData”).Range(“A1”).CurrentRegion

Set rngInputData = rngInputData.Offset(1,0). _

Resize(rngInputData.Rows.Count – 1,rngInputData.Columns.Count)

‘调用OutputData过程处理数据

OutputData rngInputData,Worksheets(“OutputData”).Range(“A2”)

‘自动调整列宽

Worksheets(“OutputData”).Range(“A1”).CurrentRegion.Columns.AutoFit

End Sub

Sub OutputData(rngSource AsRange, rngTarget As Range)

Dim titles() As Variant

Dim inputRows As Long

Dim i As Long

Dim j As Long

Dim k As Long

Dim stu() As student

‘输出表标题

titles = Array(“编号”, “姓名”, “性别”, _

“测试项目”, “测试日期”, “分数”, “等级”, _

“课外兴趣班”, “频次”, “持续时间”, “效果”)

‘获取输入数据行数并定义数组大小

inputRows = rngSource.Rows.Count

ReDim stu(inputRows)

‘遍历输入数据

For i = 1 To inputRows

‘依次将相应数据存放在数组中

With stu(i)

k = 4

‘存储前3列数据

.info = Range(rngSource.Item(i, 1),rngSource.Item(i, 3))

‘存储后面重复标题相应的数据

For j = 1 To 5

.exam(j) =Range(rngSource.Item(i, k), rngSource.Item(i, k + 3)).Value

.interest(j) =Range(rngSource.Item(i, k + 20), rngSource.Item(i, k + 23)).Value

k = k + 4

Next j

End With

Next i

‘清空放置数据的工作表

rngTarget.CurrentRegion.ClearContents

‘输入标题

rngTarget.Offset(-1, 0).Resize(1, 11).Value= titles

k = -1

‘输入数据

For i = 1 To inputRows

For j = 1 To 5

With stu(i)

If .exam(j)(1, 1) <>”” Or .interest(j)(1, 1) <> “” Then

k = k + 1

rngTarget.Offset(k,0).Resize(1, 3).Value = .info

rngTarget.Offset(k,3).Resize(1, 4).Value = .exam(j)

rngTarget.Offset(k, 7).Resize(1,4).Value = .interest(j)

Else

Exit For

End If

End With

Next j

Next i

End Sub

上述代码中使用了一些注释,方便阅读和理解。要说明的是,代码使用了自定义类型,很清楚地存储不同用途的数据,并能够很方便地调用,这是一个很好的技巧。

此外,本示例再次表明,针对特定的数据整理需求,使用一些VBA代码,就可快速达到目的,省去了重复操作的繁杂和易出错的烦恼。

阅读全文
相关推荐

如何自制蛋挞

如何自制蛋挞
1、倒入低筋面、黄油和水,揉成面团状,藏一小时后取出,抹上黄油卷起,包上保鲜膜冷藏半小时。2、取出,将面团切成一厘米的面团,放入模具内,用力按压,中间稍薄,外缘要比模具高,将蛋挞液倒入蛋挞皮中,放入烤箱里烤30分钟即可。

肉火烧面怎么和面

肉火烧面怎么和面
1、首先用温水把酵母融开,加入面粉,用手把面粉揉成非常软的面团,可以放一点熬好的猪油在面团里面。2、然后放在温暖的地方,盖上保鲜膜发酵至2倍大,发好的面团用手插入不回缩,就说明面团发酵好了。

奶茶几分糖好喝

奶茶几分糖好喝
1、不同的人对奶茶的口感要求是不一样的,一般来说,奶茶有三分糖、五分糖、七分糖三种不同的口味。2、女生一般都喜欢喝甜一点的,而男生则喜欢喝不那么甜的,七分糖的奶茶最好喝。

过桥米线是哪里的?

过桥米线是哪里的?
过桥米线是来自云南省滇南地区的一种有名特色小吃。过桥米线最早是在清朝就已经出现,距离现在至少有一百多年的历史啦!起源于建水县东城外锁龙桥西侧的鸡市街头处,有建水的特产草芽、地椒作配料,风味独特而远近闻名。深受广大美食爱好者的喜欢,不少人为此专门长途跋涉,只为尝

面霜和乳液的区别

面霜和乳液的区别
面霜和乳液的区别,相较而言乳液的水分含量要比面霜高,乳液质地要轻薄一些,乳液主要作用是保湿,滋润可以隔离外界干燥的气候,面霜既可保湿,又可美白,还能抗衰老,乳液的吸收快一些,而面霜吸收比较慢一些,因为液体的吸收速度都比较快。

怎么摘隐形眼镜

怎么摘隐形眼镜
在摘隐形眼镜之前,先用洗手液将手清洗干净,以免将细菌带入眼睛内,对着镜子,用右手中指轻拉眼睛下眼睑,左手中指轻拉眼睛上眼睑,让黑色眼球暴露在空气中,用右手食指和拇指轻触镜片的两边缘部分,向中间推使镜片拱起,再用两手指轻轻捏出镜片即可。

粉饼和散粉的区别

粉饼和散粉的区别
粉饼是呈压缩固体状态,多呈圆形或者方形,散粉则是细腻的粉末状,粉饼遮瑕力会比较强一些,可以湿用做粉底,或者用来补妆,而散粉则是定妆的效果,粉饼通常用在底妆的第一步,而散粉通常用在底妆最后一步。

冷烫和热烫的区别

冷烫和热烫的区别
冷烫和热烫的区别:冷烫对头发的要求是要在保温状态下才能给卷有个好的效果,而热烫是在干和湿的情况下都行,热烫烫出来的头发比较自然明显而有弹力,冷烫的头发风干后基本看不出来,并且发质会有点干。

高品质香水如何鉴别?用三步就可以解决

高品质香水如何鉴别?用三步就可以解决
1、看色泽以天然香料调制而成的高级香水,都有它本来的颜色,且大都是琥珀色或褐色,看起来很像宝石,比如,从茉莉、玫瑰或水仙等天然鲜花中所萃取的精油都呈黄色、褐白或绿褐色;此外,香水中所添加的魅惑香气物性香料也是褐色,苔类中的橡树苔是绿色,从树根或树根脂类中萃取的

如何去除黑眼圈

如何去除黑眼圈
去除黑眼圈首先可以用热毛巾敷眼,然后再用冷毛巾敷,十分钟就能让黑眼圈淡化的不那么严重,其次将去壳后的鸡蛋用无菌纱布包裹住,敷于眼部轻轻转动,可以急救去除黑眼圈,另外抹完眼霜后,用双手顺时针按摩,可以促进血液循环消除黑眼圈。
本文Tag