求转列

蓝绿2014

weiqigreen

修改后_转换问题.rar (16.95 KB, 下载次数: 1)

2017-8-8 18:40 上传

点击文件名下载附件

Sub test()
    With Sheets(1)
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            flag = 0
            For j = 2 To Cells(Rows.Count, 7).End(xlUp).Row
                If Cells(j, 7).Value = Cells(i, 1).Value Then
                    '存在
                    flag = 1: Exit For
                End If
                '复制过来
            Next
            If flag = 0 Then
                Range("A" & i & ":B" & i).Copy Destination:=Range("G" & j)
            End If
            Select Case Cells(i, 3).Value
                Case "F"
                    c = 14
                Case 110
                    c = 9
                Case 120
                    c = 10
                Case 130
                    c = 11
                Case 140
                    c = 12
                Case 150
                    c = 13
            End Select
            Cells(j, c).Value = Cells(j, c).Value + Cells(i, 4).Value
        Next
    End With
End Sub

蓝绿2014

weiqigreen 发表于 2017-8-8 18:41
Sub test()
    With Sheets(1)
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

只需要转列就好哦，不要求和

weiqigreen

蓝绿2014 发表于 2017-8-8 19:16
只需要转列就好哦，不要求和

我以为货号相同要把数量相加呢。
那样也容易，你改改代码就好了。

蓝绿2014

weiqigreen 发表于 2017-8-8 19:21
我以为货号相同要把数量相加呢。
那样也容易，你改改代码就好了。

能把代码重新发一下吗，谢谢

蓝绿2014

蓝绿2014 发表于 2017-8-8 19:48
能把代码重新发一下吗，谢谢

另外表格不知道为什么宏不用启动了呢