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

1874017637 · 发表于 2022-12-20 23:29

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

3190496160 · 发表于 2022-12-21 10:00

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 · 发表于 2022-12-21 10:05

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 · 发表于 2022-12-21 10:06

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

1874017637 · 发表于 2022-12-21 14:52

本帖最后由 1874017637 于 2022-12-21 14:56 编辑

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

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

3190496160 · 发表于 2022-12-21 15:36

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

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

3190496160 · 发表于 2022-12-21 19:07

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

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

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