求助！如何把横向表格的数据提前到窗口式表格中

msnmurong

各位大佬看到小弟的帖子,请留步。

我有一个汇总表,现在就是要把汇总表中的一行数据更新到窗口式的表格中,字段比较多。
具体见附件。怎么样才能实现呢。

3190496160

总体上是一个数组+字典的问题，但是，既然要考虑每次提取不同的字段，最好还是上传你真实的文件，不然写出代码来你还得追问的，

msnmurong

3190496160 发表于 2022-12-2 12:30
总体上是一个数组+字典的问题，但是，既然要考虑每次提取不同的字段，最好还是上传你真实的文件，不然写出 ...

好的 老师。我整理下就发出来。

msnmurong

老师 ,我上传了。差不多就是附件里面的样子。因为字段实在太多了,表二中的一些字段可能有些和表一中的稍微有点区别,这个我到时候会手动把表二表头的字段和表一字段弄的完全一致。当然表二中有的字段不需要在表一中更新。表一基本上就这么多字段,如果表二找不到对应的字段就跳过。

msnmurong

msnmurong 发表于 2022-12-2 12:58
老师 ,我上传了。差不多就是附件里面的样子。因为字段实在太多了,表二中的一些字段可能有些和表一中的稍微 ...

差不多600多个站点,每个站点,可能更新的次数有好几次,总的数据1000-2000多条。最终目的就是通过检索机房编码,从表二中查到日期最新的那一次记录,把对应表一字段内容更新过去,然后输出一张单一的EXCEL表。

gwjkkkkk

Sub TEST5()
Dim arr, i&, dic As Object
Dim strFirstAddress$, Rng As Range, rngFind As Range, vKey
Set dic = CreateObject("Scripting.Dictionary")
If [B1] = "" Then MsgBox "查询数据为空，请检查！": Exit Sub
arr = Sheets(2).[A1].CurrentRegion
For i = 1 To UBound(arr, 2)
   dic(arr(1, i)) = i
Next i
Set Rng = [A3:F100]
For i = UBound(arr) To 2 Step -1
   If arr(i, 4) = [B1] Then
     For Each vKey In dic.keys
        Set rngFind = Rng.Find(vKey, , , xlWhole)
        If Not rngFind Is Nothing Then
          strFirstAddress = rngFind.Address
          Do
            rngFind.Offset(, 1) = arr(i, dic(vKey))
            Set rngFind = Rng.FindNext(rngFind)
          Loop Until rngFind.Address = strFirstAddress
        End If
     Next
     Exit For
   End If
Next i
Set dic = Nothing
End Sub

gwjkkkkk

代码审核中，请楼主参考附件。。。

msnmurong

gwjkkkkk 发表于 2022-12-4 20:18
代码审核中，请楼主参考附件。。。

大神啊。就是好像没法根据最新日期调用。
在苦等的过程中,我从论坛上东找西找的,自己套用了几个。
可以调用,还可以录入更新。
就是有一个缺点,当有重复站点的时候,只会更新从上往下找到的第一条记录。
我想要输入站名找不到的时候,提示找不到站点,请新增。

msnmurong

看我的附件还能优化下不。

gwjkkkkk

有数了，回家帮你弄一下。。。