求助大神帮忙用vba解决

hooniie · 发表于 2020-3-30 22:32

详细见表3要求

合并.zip (38.66 KB, 下载次数: 10)

hooniie · 发表于 2020-3-31 07:27

有没有老师可以帮忙解决

3190496160 · 发表于 2020-3-31 09:31

参考：
Sub test()
Set d = CreateObject("scripting.dictionary")
ar = Sheets("原表").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
s = Trim(ar(i, 1)) & "|" & Trim(ar(i, 2))
t = d(s)
If t = "" Then
      k = k + 1
      d(s) = k
      t = k
      For j = 1 To UBound(ar, 2)
         br(k, j) = ar(i, j)
      Next j
End If
Next i
Sheet2.[a2].Resize(k, UBound(br, 2)) = br
End Sub

3190496160 · 发表于 2020-3-31 09:32

合并.rar (42.41 KB, 下载次数: 6)

hooniie · 发表于 2020-3-31 12:04

3190496160 发表于 2020-3-31 09:31
参考：
Sub test()
Set d = CreateObject("scripting.dictionary")

谢谢，非常感谢你呢

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