| |
▼マナ さん：
>▼のんびり さん：
>偶然、金額が同じデータというものが存在するのでは？
おっしゃる通りです。
とりあえずできるところからと考えて作っていたので
（自分で作る計画の中で）
そこまではカバーしきれないかと思って条件に入れていませんでした。
カバーできるとうれしいですが…
>
>参考までに、できてる３を提示してもらえますか。
不要な部分も入っているかと思います。お見苦しいと思いますが、以下です。
Sub データ照合()
Const JCB_SYA As Integer = 1
Const JCB_BI As Integer = 3
Const JCB_SAKI As Integer = 4
Const JCB_KINGAKU As Integer = 5
Const MM_KINGAKU As Integer = 5
Const S_KINGAKU As Integer = 2
Dim j As Integer
Dim m As Integer
Dim Cnt As Integer
Dim JCBKiten As Range
Dim MMKiten As Range
Dim SeiKiten As Range
Cnt = 1
Set JCBKiten = Worksheets("JCBデータ").Range("A5")
Set MMKiten = Worksheets("マスターマネーデータ").Range("A5")
Set SeiKiten = Worksheets("整合データ").Range("A5")
For m = 1 To MMKiten.CurrentRegion.Rows.Count
For j = 1 To JCBKiten.CurrentRegion.Rows.Count
If JCBKiten.Cells(j, JCB_KINGAKU).Value = MMKiten.Cells(m, MM_KINGAKU).Value Then
SeiKiten.Cells(Cnt, 1).Value = _
JCBKiten.Cells(j, JCB_BI).Value
SeiKiten.Cells(Cnt, 2).Value = _
JCBKiten.Cells(j, JCB_KINGAKU).Value
SeiKiten.Cells(Cnt, 3).Value = _
JCBKiten.Cells(j, JCB_SAKI).Value
SeiKiten.Cells(Cnt, 4).Value = _
JCBKiten.Cells(j, JCB_SYA).Value
Cnt = Cnt + 1
End If
Next j
Next m
End Sub
|
|
tt
- 17/5/9(火) 16:20 -
ポチョムキン
- 17/5/9(火) 11:15 -
マナ
- 17/5/4(木) 17:03 -
