数据区域显示原值（文本格式）问题求助

魂断蓝桥

Sub a()
Dim arr, brr, d, i As Integer, s As String, j As Byte
Set d = CreateObject("Scripting.Dictionary")
[f2:i5] = ""
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
    s = arr(i, 1) & arr(i, 2)
    d(s) = arr(i, 3)
Next
brr = [e1].CurrentRegion
For i = 2 To UBound(brr)
    For j = 2 To UBound(brr, 2)
        s = brr(i, 1) & brr(1, j)
        brr(i, j) = d(s)
    Next
Next
Set d = Nothing
[e1].Resize(3, 5) = brr
End Sub
工作簿1.rar (9.19 KB, 下载次数: 38)

2015-6-2 15:05 上传

点击文件名下载附件

foxmessire

魂断蓝桥 发表于 2015-6-2 14:54
直接sql应该不太好办，用vba+字典应该可行。

vba我不太懂，字典就根本没有用过了。方便教我一下么？今天看了一天也没弄出来。看来要补习一下了。

魂断蓝桥

foxmessire 发表于 2015-6-2 15:50
vba我不太懂，字典就根本没有用过了。方便教我一下么？今天看了一天也没弄出来。看来要补习一下了。

这个不是一两天能搞懂的，

vba 板块搜索，字典，先看下

Jolin_S

魂断蓝桥 发表于 2011-8-11 09:09
其实我的签名里已经有方法了。
上个动画吧。

学习了，谢谢！

chifan000

foxmessire 发表于 2015-6-2 14:44
你好，请问下如果原表的数据时
姓名        日期        数据
A        2011/8/11        优

改一下源数据的范围，c3改到c5