当前位置：首页 - 正文

Excel行项目与列项目一一对应

发布网友发布时间：2022-04-23 15:05

共4个回答

热心网友时间：2023-09-21 00:14

答：我编写了段代码帮你一步完成吧。这是我的图，因为你的图看不到行号列标。

按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面代码进去，在原格式表格为活动工作表的情况下，按F5运行程序，会自动生成新表结果。

Sub Demo()
    Dim Arr()
    Dim Orng As Range, Drng As Range
    Dim NewSht As Worksheet
    Dim i As Integer

    Set Orng = Range("F3")
    Arr = Range("G2:P2")
    Set NewSht = Worksheets.Add
    With NewSht
        .Range("A2:C2") = Array("款号", "尺码", "数量")
        Set Drng = .Range("A3")
        Do Until IsEmpty(Orng)
            For i = 1 To UBound(Arr, 2)
                If Orng.Offset(0, i) <> "" Then
                    Drng = Orng
                    Drng.Offset(0, 1) = Arr(1, i)
                    Drng.Offset(0, 2) = Orng.Offset(0, i)
                    Set Drng = Drng.Offset(1, 0)
                End If
            Next
            Set Orng = Orng.Offset(1, 0)
        Loop
    End With
    MsgBox "转换完成", vbInformation, "提示"
End Sub

热心网友时间：2023-09-21 00:15

由第二个图，变第一个图，超简单,用多条件求和sumifs()。你这个非要这样做吗？
非要这样做，可能会把尺寸里数量是0的也显示，成吗？有0的，你筛选一下，就不显示了。

热心网友时间：2023-09-21 00:15

“要变成的格式”是什么样的，把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）,excel样表文件（把现状和目标效果表示出来）作为附件发来看下 yqch134@163.com

热心网友时间：2023-09-21 00:16

一行一行的转置

追问但是一个表中有几百个款的话这样无法操作啊，有没其它的办法呢，谢谢！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

Excel行项目与列项目一一对应

最新推荐

猜你喜欢

热门推荐