曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速起先

EH搜索
EH技术汇-专业的职场本事充电站 妙哉!函数段子手有趣讲函数 足球供职器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造主旨竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码实施指南
稽查: 61 | 回复: 3
打印 上一主题 下一主题

求助,数据成家和分类的问题

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
宣布于 2020-10-17 10:08 | 只看该作者 回帖嘉勉 | 倒序观赏 | 阅读形式
叨教各位教练,则将该条记实放入“成家腐败的数据2”,但是“系统1数据“中无记实,虎扑足球论坛。若是”系统2数据“中有记实,则将该条记实放入“成家腐败的数据1”,虎扑足球论坛。但是“系统2数据“中无记实,若是”系统1数据“中有记实,虎扑足球论坛。“成家告成的数据”中格式和形式(数量)要求应该和”系统1数据“的格式和形式(数量)一致,适合条件的记实放入“成家告成的数据”,成家关键字为“货品代码”,需要用系统1数据和系统2数据实行成家,有一张表。

数据成家与分类.zip

18.65 KB, 下载次数: 1

TA的精华主题

TA的得分主题

2
宣布于 2020-10-17 10:49 | 只看该作者
Sub 数据成家()
Dim d As Object, dc As Object,http://www.qhdjinxiu.com。 dic As Object
Dim ar As Variant, br As Variant
Dim arr1(), arr2(),球迷007足球论坛。 arr3(), brr()
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary"),最火的足彩论坛。
Set dic = CreateObject("scripting.dictionary"),足球论坛哪个火。
ar = Sheets("系统1数据").[a1].足球吧论坛。CurrentRegion
br = Sheets("系统2数据").[a1].CurrentRegion
ReDim arr1(1 To UBound(ar) + UBound(br), 1 To 3) ''两表均有,足球社区。
ReDim arr2(1 To UBound(ar) + UBound(br), 1 To 3) ''2有1没有,足球求助。
ReDim arr3(1 To UBound(ar) + UBound(br), 1 To 3) ''1有2没有,数据成家和虎扑足球论坛分类的题目。
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then,《足球VBA精炼/大全》系列论坛。
d(Trim(ar(i, 1))) = i
End If
Next i
For i = 2 To UBound(br)
If Trim(br(i, 1)) <> "" Then
dc(Trim(br(i, 1))) = i
If d.Exists(Trim(br(i,曼城足球论坛技术论坛。 1))) Then
n_1 = n_1 + 1
For j = 1 To 3
arr1(n_1, j) = br(i, j)
Next j
ElseIf Not d.Exists(Trim(br(i,足球。 1))) Then
n_2 = n_2 + 1
For j = 1 To 3
arr2(n_2, j) = br(i,求助。 j)
Next j
End If
End If
Next i
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
If dc.Exists(Trim(br(i,数据。 1))) Then
n_1 = n_1 + 1
For j = 1 To 3
arr1(n_1, j) = ar(i,成家。 j)
Next j
ElseIf Not dc.Exists(Trim(br(i,家和。 1))) Then
n_3 = n_3 + 1
For j = 1 To 3
arr3(n_3, j) = ar(i, j)
Next j
End If
End If
Next i
ReDim brr(1 To n_1, 1 To 3)
For i = 1 To n_1
t = dic(Trim(arr1(i, 1)))
If t = "" Then
k = k + 1
dic(Trim(arr1(i, 1))) = k,足球。
t = k
For j = 1 To 3
brr(k, j) = arr1(i, j)
Next j
End If
Next i
With Sheets("成家告成的数据")
.[a1].论坛。CurrentRegion.Offset(1) = Empty
If n_1 <> "" Then .[a2].分类。Resize(n_1, 3) = brr
End With
With Sheets("成家腐败的数据1")
.[a1].CurrentRegion.Offset(1) = Empty
If n_3 <> "" Then .[a2].题目。Resize(n_3, 3) = arr3
End With
With Sheets("成家腐败的数据2")
.[a1].足球。CurrentRegion.Offset(1) = Empty
If n_2 <> "" Then .[a2].vba。Resize(n_2, 3) = arr2
End With
MsgBox "ok!"
End Sub

TA的精华主题

TA的得分主题

3
宣布于 2020-10-17 10:50 | 只看该作者
数据成家与分类.zip (18.65 KB, 下载次数: 5)

TA的精华主题

TA的得分主题

4
宣布于 2020-10-17 10:51 | 只看该作者
在 系统2数据 中有很多行是重复的,不知道楼主是什么意思。
您需要登录后才不妨回帖 登录 | 收费注册

本版积分规则

体贴官方微信,高效办公专列,每天发车

手机版|关于我们|干系我们|曼城足球论坛

GMT+8, 2020-10-18 01:03, Processed in 0.0 second(s),精炼。 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属宣布者小我意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表