曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速开首

EH搜索
EH技术汇-专业的职场才具充电站 妙哉!函数段子手意思讲函数 足球办事器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造重点竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码实行指南
查察: 63 | 回复: 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,虎扑足球论坛。 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"),球迷007足球论坛。
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].vba。CurrentRegion.Offset(1) = Empty
If n_2 <> "" Then .[a2].精辟。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 11:31, Processed in 0.0 second(s),大全。 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属公布者私人意见,任何违反国度相关法律的言论。

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