質問編集履歴
4
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,20 +2,20 @@
|
|
|
2
2
|
シート1のA列のkey番号とシート2のＬ列のkey番号が一致したら、シート1のＺ列にシート2のＬ列で一致した行のAV列の値を入力したいです。
|
|
3
3
|
|
|
4
4
|
Dim t As Long , k As Long
|
|
5
|
-
Dim ws1
|
|
5
|
+
Dim ws1 As Worksheet ,
|
|
6
|
-
|
|
6
|
+
ws2 As Worksheet
|
|
7
|
-
Set ws1 =Worksheets("
|
|
7
|
+
Set ws1 = Worksheets("Sheet1")
|
|
8
|
-
Set ws2 =Worksheets("
|
|
8
|
+
Set ws2 = Worksheets("Sheet2")
|
|
9
|
-
For
|
|
9
|
+
For t = 5 to xlw(最後まで)
|
|
10
|
-
For
|
|
10
|
+
For k = 3 to xlw(最後まで)
|
|
11
11
|
|
|
12
12
|
If ws1.Range("A" & t).Value
|
|
13
13
|
=ws2.Range("Ｌ" & k).Value Then
|
|
14
14
|
|
|
15
15
|
ws1.Range("z5" & t).Value
|
|
16
|
-
=ws2.Range("AV" & k).Value
|
|
16
|
+
= ws2.Range("AV" & k).Value
|
|
17
17
|
Exit For
|
|
18
|
-
z=z+5
|
|
18
|
+
z = z+5
|
|
19
19
|
End If
|
|
20
20
|
Next
|
|
21
21
|
|
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -23,5 +23,5 @@
|
|
|
23
23
|
|
|
24
24
|
|
|
25
25
|
#ws1.Rangeは数値がでていますが
|
|
26
|
-
|
|
26
|
+
ws2.RangeはRengeメゾットは失敗しました。Worksheetオブジェクトと記載されています。
|
|
27
27
|
すみません、どなた様か教えていただきたいです。iPhoneから入力しているためまたミスしていたら教えてください。
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
シート1のA列（Ａ5からスタート)、シート2のＬ列(Ｌ3からスタート)にそれぞれkey番号があります。
|
|
2
|
-
シート1のA列のkey番号とシート2のＬ列のkey番号が一致したら、シート1のＺ列にシート2のＬ列で一致した行の
|
|
2
|
+
シート1のA列のkey番号とシート2のＬ列のkey番号が一致したら、シート1のＺ列にシート2のＬ列で一致した行のAV列の値を入力したいです。
|
|
3
3
|
|
|
4
4
|
Dim t As Long , k As Long
|
|
5
5
|
Dim ws1 = Worksheet,
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,27 +1,27 @@
|
|
|
1
1
|
シート1のA列（Ａ5からスタート)、シート2のＬ列(Ｌ3からスタート)にそれぞれkey番号があります。
|
|
2
2
|
シート1のA列のkey番号とシート2のＬ列のkey番号が一致したら、シート1のＺ列にシート2のＬ列で一致した行のBB列の値を入力したいです。
|
|
3
3
|
|
|
4
|
-
|
|
4
|
+
Dim t As Long , k As Long
|
|
5
|
-
|
|
5
|
+
Dim ws1 = Worksheet,
|
|
6
|
-
ws2 =
|
|
6
|
+
ws2 =Worksheet
|
|
7
|
-
|
|
7
|
+
Set ws1 =Worksheets("sheet1")
|
|
8
|
-
|
|
8
|
+
Set ws2 =Worksheets("sheet2")
|
|
9
|
-
|
|
9
|
+
For t= 5 to xlw(最後まで)
|
|
10
|
-
|
|
10
|
+
For k= 3 to xlw(最後まで)
|
|
11
11
|
|
|
12
|
-
|
|
12
|
+
If ws1.Range("A" & t).Value
|
|
13
|
-
=ws2.
|
|
13
|
+
=ws2.Range("Ｌ" & k).Value Then
|
|
14
14
|
|
|
15
|
-
ws1.
|
|
15
|
+
ws1.Range("z5" & t).Value
|
|
16
|
-
=ws2.
|
|
16
|
+
=ws2.Range("AV" & k).Value
|
|
17
|
-
|
|
17
|
+
Exit For
|
|
18
18
|
z=z+5
|
|
19
|
-
|
|
19
|
+
End If
|
|
20
|
-
|
|
20
|
+
Next
|
|
21
21
|
|
|
22
|
-
|
|
22
|
+
Next
|
|
23
23
|
|
|
24
24
|
|
|
25
|
-
#ws1.
|
|
25
|
+
#ws1.Rangeは数値がでていますが
|
|
26
|
-
wr2.
|
|
26
|
+
wr2.RangeはRengeメゾットは失敗しました。Worksheetオブジェクトと記載されています。
|
|
27
|
-
すみません、どなた様か教えていただきたいです。
|
|
27
|
+
すみません、どなた様か教えていただきたいです。iPhoneから入力しているためまたミスしていたら教えてください。
|