[已解决]引用问题

171774040

请看附件 新建 Microsoft Office Excel 工作表 (2).rar (16.13 KB, 下载次数: 15)

2016-4-1 10:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-3 10:09

(, 下载次数: 10)

上传

点击文件名下载附件

是写错了1个地方，已修改

跳转到最佳答案楼层

爱疯

建议上传十几行实际的数据，不要把前面行删除了。

171774040

爱疯 发表于 2016-4-1 19:07
建议上传十几行实际的数据，不要把前面行删除了。

新建 Microsoft Office Excel 工作表 (2).rar (15.06 KB, 下载次数: 12)

2016-4-1 22:14 上传

点击文件名下载附件 已上传新的附件，第1~15行有不关联的数据

爱疯

Sub test()
    Dim A, B, d, i
    A = Sheets(1).[A4:M17]
    B = Sheets(2).[A16:F25]
    Set d = CreateObject("scripting.dictionary")

    For i = 1 To UBound(A)
        d(A(i, 2)) = d(A(i, 2)) & ";" & A(i, 13) & A(i, 12)
    Next i

    For i = 1 To UBound(B)
        B(i, 6) = Mid(d(B(i, 1)), 2)
    Next i
    Sheets(2).Range("a16").Resize(UBound(B, 2), UBound(B, 2)) = B
End Sub

3.rar (24.57 KB, 下载次数: 10)

2016-4-1 22:30 上传

点击文件名下载附件




因为不清楚你的其它数据是怎样的，所以把要用的数据（蓝色部分）写成固定的了，请自行修改。

171774040

爱疯 发表于 2016-4-1 22:31
Sub test()
    Dim A, B, d, i
    A = Sheets(1).[A4:M17]

有部分引用不到，我的区域是表一：A4到整个工作表，表二是从A16到整个工作表，望修改一下代码

171774040

爱疯 发表于 2016-4-1 22:31
Sub test()
    Dim A, B, d, i
    A = Sheets(1).[A4:M17]

在我原来的代码上可否作修改来满足要求？

爱疯

无法从你的回复中确定，建议上次 excel 文件

171774040

爱疯 发表于 2016-4-2 19:59
无法从你的回复中确定，建议上次 excel 文件

3.rar (17.94 KB, 下载次数: 2)

2016-4-2 20:43 上传

点击文件名下载附件 附件已上传，谢谢

爱疯

4.rar (18.08 KB, 下载次数: 6)

2016-4-2 21:15 上传

点击文件名下载附件

171774040

爱疯 发表于 2016-4-2 21:15

附件中3月27日都引用不到F27