代码结果不对

Justin-2016 · 发表于 2024-6-28 20:03

本帖最后由 Justin-2016 于 2024-6-28 21:39 编辑

代码结果不对.zip (12.83 KB, 下载次数: 2)

Sub Test()
Dim arr, brr, crr(1 To 10, 1 To 3), i%, j%, m%
arr = [a2:b3]
brr = [d2:f5]
For i = 1 To UBound(arr)
For j = 1 To UBound(brr)
If arr(i, 1) = brr(j, 1) Then
      m = m + 1
      crr(m, 1) = brr(i, 1)
      crr(m, 2) = brr(i, 2)
      crr(m, 3) = arr(i, 2) * brr(j, 3)
End If
Next
Next
[h2].Resize(m, 3) = crr
End Sub

shiruiqiang · 发表于 2024-6-28 20:59

shiruiqiang · 发表于 2024-6-28 21:00

跨越时空 · 发表于 2024-6-28 22:02

跨越时空 · 发表于 2024-6-28 22:06

代码结果不对.zip (13.55 KB, 下载次数: 1)

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

[已解决] 代码结果不对

评分

评分

评分