数据转换，要求见截图（较急）

szqhb · 发表于 2020-1-16 16:38

数据转换.zip (8.65 KB, 下载次数: 9)

lsdongjh · 发表于 2020-1-16 16:44

字典，班级为Key,姓名为Item

大灰狼1976 · 发表于 2020-1-16 16:59

一（1）班不应该是学生1~学生4吗

917067811 · 发表于 2020-1-16 17:00

Sub ttt()
Dim arr(), nrow&, rng As Range

Dim dic As Object, dic2 As Object

Set dic = CreateObject("Scripting.Dictionary")

With Sheet1
      nrow = .Range("b1048576").End(xlUp).Row
      arr = .Range("b2:d" & nrow).Value

End With

For i = 1 To UBound(arr)
      If dic(arr(i, 3)) = "" Then
         dic(arr(i, 3)) = arr(i, 1)
      Else
         dic(arr(i, 3)) = dic(arr(i, 3)) + "、" + arr(i, 1)
      End If
Next i

[f2].Resize(dic.Count) = Application.Transpose(dic.keys)

[g2].Resize(dic.Count) = Application.Transpose(dic.items)

End Sub

917067811 · 发表于 2020-1-16 17:00

见附件。。。。。。。。。

szqhb · 发表于 2020-1-16 17:01

917067811 发表于 2020-1-16 17:00
Sub ttt()
Dim arr(), nrow&, rng As Range

谢谢！非常感谢！！

szqhb · 发表于 2020-1-19 22:40

本帖最后由 szqhb 于 2020-1-19 22:55 编辑

917067811 发表于 2020-1-16 17:00
见附件。。。。。。。。。

谢谢！非常感谢！！升级了新的要求，有空的话帮修改下代码

数据转换再求助.zip (17.39 KB, 下载次数: 17)

szqhb · 发表于 2020-1-19 22:44

大灰狼1976 发表于 2020-1-16 16:59
一（1）班不应该是学生1~学生4吗

对，不好意思，示例有误。

青春の火焰 · 发表于 2020-1-20 01:00

不错，学习

zpy2 · 发表于 2020-1-20 13:12

szqhb 发表于 2020-1-19 22:40
谢谢！非常感谢！！升级了新的要求，有空的话帮修改下代码

也可以用Sql语句查询一下。。。

		自动登录	找回密码
密码			免费注册

[求助] 数据转换，要求见截图（较急）