excel中有没有什么办法把一个人的多项数据处理成一行多列？

2020-04-15 05:13:09 346 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel表格如何固定一列或多列不动通过本文的介绍，相信你已经掌握了如何在Excel中固定一列或多列不动的方法。无论是处理包含大量数据的表格，还是需要在滚动查看数据时保持某些列可见，冻结窗格功能都是一个非常实用的工具。希望这篇文章能够帮助你提升数据处理效率，让你的工作更加轻松高效。如果你在使用冻结窗格功能时遇到任何问题或疑问，欢迎随时在CSDN社区提问或寻求帮助。阅读详情

有这样的一份任课表，如图1，想把它处理成图2这样的格式，有没有什么快捷的方法可以实现呢？函数或者VBA？跪求大神指导

...全文

pandas某一列中每一行拆分成多行的方法在处理数据过程中，常会遇到将一条数据拆分成多条，比如一个人的地址信息中，可能有多条地址，既有家庭地址也有工作地址，还有电话信息等等类似的情况，实际使用数据的时候又需要分开处理，这个时候就需要将这一条数据进行拆分成多条，以方便使用。在pandas中如何对DataFrame进行相关操作呢，经查阅相关资料，发现了一个简单的办法， info.drop([‘city’], axis=1).join(inf... 阅读详情

路也Orz

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

milaoshu1020 2020-04-16

打赏
举报

写好了,代码如下:


Option Explicit

Sub 多项数据处理成一行多列()
    Dim dict As Object
    Set dict = CreateObject("scripting.dictionary")
    
    Dim i As Long
    i = 3
    
    Do While Sheet1.Cells(i, 1) <> ""
        Dim j As Long
        For j = 3 To 16
            If Sheet1.Cells(i, j) <> "" Then
                Dim strKey As String
                strKey = Sheet1.Cells(i, j) & "," & Sheet1.Cells(i, 1) & "," & Sheet1.Cells(1, j)
                
                Dim strValue As String
                strValue = Sheet1.Cells(i, 2)
                
                If dict.exists(strKey) Then
                    dict.Item(strKey) = dict.Item(strKey) & "," & strValue
                Else
                    dict.Add strKey, strValue
                End If
            End If
        Next
        i = i + 1
    Loop
    
    i = 2
    Dim varKey As Variant
    For Each varKey In dict
        Dim arrKey() As String
        arrKey = Split(varKey, ",")
        
        Sheet2.Cells(i, 1) = arrKey(0)
        Sheet2.Cells(i, 2) = arrKey(1)
        Sheet2.Cells(i, 3) = dict(varKey)
        Sheet2.Cells(i, 4) = arrKey(2)
        
        i = i + 1
    Next
    
    MsgBox "done!"
End Sub

下载地址: 链接：https://pan.baidu.com/s/1_jpRGo3wd_nkunIJ7JON9A 提取码：riqz 运行示例:

milaoshu1020 2020-04-16

打赏
举报

备课的怎么处理?

路也Orz 2020-04-16

打赏
举报

引用 2 楼 milaoshu1020 的回复:

建议把xls文件上传到百度网盘,点击共享,把共享代码贴在这里;

谢谢提醒！下面这个链接是数据的文档，想把任课表处理成每个老师单独一行，然后分列对应他所教的所有班级、所教的科目还有所教的年级这样的形式。链接: https://pan.baidu.com/s/1ruRf8u0cPv-vT3hw5W5PQw 提取码: eqri

路也Orz 2020-04-16

打赏
举报

下面这个链接是数据的文档，想把任课表处理成每个老师单独一行，然后分列对应他所教的所有班级、所教的科目还有所教的年级这样的形式。链接: https://pan.baidu.com/s/1ruRf8u0cPv-vT3hw5W5PQw 提取码: eqri

milaoshu1020 2020-04-16

打赏
举报

建议把xls文件上传到百度网盘,点击共享,把共享代码贴在这里;

路也Orz 2020-04-16

打赏
举报

引用 6 楼 milaoshu1020的回复:

写好了,代码如下:


Option Explicit

Sub 多项数据处理成一行多列()
    Dim dict As Object
    Set dict = CreateObject("scripting.dictionary")
    
    Dim i As Long
    i = 3
    
    Do While Sheet1.Cells(i, 1) <> ""
        Dim j As Long
        For j = 3 To 16
            If Sheet1.Cells(i, j) <> "" Then
                Dim strKey As String
                strKey = Sheet1.Cells(i, j) & "," & Sheet1.Cells(i, 1) & "," & Sheet1.Cells(1, j)
                
                Dim strValue As String
                strValue = Sheet1.Cells(i, 2)
                
                If dict.exists(strKey) Then
                    dict.Item(strKey) = dict.Item(strKey) & "," & strValue
                Else
                    dict.Add strKey, strValue
                End If
            End If
        Next
        i = i + 1
    Loop
    
    i = 2
    Dim varKey As Variant
    For Each varKey In dict
        Dim arrKey() As String
        arrKey = Split(varKey, ",")
        
        Sheet2.Cells(i, 1) = arrKey(0)
        Sheet2.Cells(i, 2) = arrKey(1)
        Sheet2.Cells(i, 3) = dict(varKey)
        Sheet2.Cells(i, 4) = arrKey(2)
        
        i = i + 1
    Next
    
    MsgBox "done!"
End Sub

下载地址: 链接：https://pan.baidu.com/s/1_jpRGo3wd_nkunIJ7JON9A 提取码：riqz 运行示例:

大神👍🏻👍🏻👍🏻

vansoft 2020-04-15

打赏
举报

选中格子区域，复制，到空白目标区域，右键，选择性粘贴，行列转置

excel中有没有什么办法把一个人的多项数据处理成一行多列？

相关推荐