请教：用vba语句求出原工作表中货物名称对应的单位（如：米，顿，公斤等）

1874017637

请教：根据已汇总后的货物名称，用vba语句求出原工作表中货物名称对应的单位（如：米，顿，公斤等）

3190496160

Sub 分类汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim arr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("原工作表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "原工作表为空！": End
    ar = .Range("a1:x" & r)
End With
ReDim arr(1 To UBound(ar), 1 To 5)
For i = 2 To UBound(ar)
    If VBA.Trim(ar(i, 12)) <> "" Then
        t = d(VBA.Trim(ar(i, 12)))
        If t = "" Then
            k = k + 1
            d(VBA.Trim(ar(i, 12))) = k
            t = k
            arr(k, 1) = ar(i, 12)
            arr(k, 5) = ar(i, 18)
        End If
        arr(t, 2) = arr(t, 2) + ar(i, 13)
        arr(t, 3) = arr(t, 3) + ar(i, 14)
        arr(t, 4) = arr(t, 4) + ar(i, 17)
    End If
Next i
With Sheets("去重合并后数据")
    .UsedRange.Offset(2) = Empty
    .[a3].Resize(k, UBound(arr, 2)) = arr
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

Sub qudanwei()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("原工作表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "原工作表为空！": End
    ar = .Range("a1:x" & r)
End With
For i = 2 To UBound(ar)
    If VBA.Trim(ar(i, 12)) <> "" Then
        d(VBA.Trim(ar(i, 12))) = i
    End If
Next i
With Sheets("去重合并后数据")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    br = .Range("a2:e" & rs)
    For i = 2 To UBound(br)
        If VBA.Trim(br(i, 1)) <> "" Then
            xh = d(VBA.Trim(br(i, 1)))
            If xh <> "" Then
                br(i, 5) = ar(xh, 18)
            End If
        End If
    Next i
    .Range("a2:e" & rs) = br
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

案例.rar (939.49 KB, 下载次数: 2)

2022-12-21 10:06 上传

点击文件名下载附件

1874017637

3190496160 发表于 2022-12-21 10:06

谢了，工作表0是汇总求和后的数据（已写过vba了），想把货物名称对应的单位用vba显示出来，就是只想通过vba求出汇总求和后单位的对应内容（如：个，米，公斤等）

3190496160

1874017637 发表于 2022-12-21 14:52
谢了，工作表0是汇总求和后的数据（已写过vba了），想把货物名称对应的单位用vba显示出来，就是只想通过v ...

呵呵呵，说明你根本没有认真的看，
里面两段代码，一段是完整的汇总，一段是只写入单位的
再者，你就非常自信你的代码就比我给你的效率高？？？
一个分类汇总，还弄段代码，一段汇总，一段专门匹配单位？？呵呵

3190496160

1874017637 发表于 2022-12-21 14:52
谢了，工作表0是汇总求和后的数据（已写过vba了），想把货物名称对应的单位用vba显示出来，就是只想通过v ...

3楼代码不能满足你？？？？？？？？？？？？？？？？？