teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問二つのシートのキー番号から値を突合させたい

編集履歴

質問編集履歴

4

2021/07/12 06:20

投稿

yum28
yum28

スコア3

test CHANGED
File without changes
test CHANGED
@@ -6,17 +6,17 @@
6
6
 
7
7
  Dim t As Long , k As Long
8
8
 
9
- Dim ws1 = Worksheet,
9
+ Dim ws1 As Worksheet ,
10
10
 
11
- ws2 =Worksheet
11
+ ws2 As Worksheet
12
12
 
13
- Set ws1 =Worksheets("sheet1")
13
+ Set ws1 = Worksheets("Sheet1")
14
14
 
15
- Set ws2 =Worksheets("sheet2")
15
+ Set ws2 = Worksheets("Sheet2")
16
16
 
17
- For t= 5 to xlw(最後まで)
17
+ For t = 5 to xlw(最後まで)
18
18
 
19
- For k= 3 to xlw(最後まで)
19
+ For k = 3 to xlw(最後まで)
20
20
 
21
21
 
22
22
 
@@ -28,11 +28,11 @@
28
28
 
29
29
  ws1.Range("z5" & t).Value
30
30
 
31
- =ws2.Range("AV" & k).Value
31
+ = ws2.Range("AV" & k).Value
32
32
 
33
33
  Exit For
34
34
 
35
- z=z+5
35
+ z = z+5
36
36
 
37
37
  End If
38
38
 

3

2021/07/12 06:20

投稿

yum28
yum28

スコア3

test CHANGED
File without changes
test CHANGED
@@ -48,6 +48,6 @@
48
48
 
49
49
  #ws1.Rangeは数値がでていますが
50
50
 
51
- wr2.RangeはRengeメゾットは失敗しました。Worksheetオブジェクトと記載されています。
51
+ ws2.RangeはRengeメゾットは失敗しました。Worksheetオブジェクトと記載されています。
52
52
 
53
53
  すみません、どなた様か教えていただきたいです。iPhoneから入力しているためまたミスしていたら教えてください。

2

2021/07/12 06:06

投稿

yum28
yum28

スコア3

test CHANGED
File without changes
test CHANGED
@@ -1,6 +1,6 @@
1
1
  シート1のA列（Ａ5からスタート)、シート2のＬ列(Ｌ3からスタート)にそれぞれkey番号があります。
2
2
 
3
- シート1のA列のkey番号とシート2のＬ列のkey番号が一致したら、シート1のＺ列にシート2のＬ列で一致した行のBB列の値を入力したいです。
3
+ シート1のA列のkey番号とシート2のＬ列のkey番号が一致したら、シート1のＺ列にシート2のＬ列で一致した行のAV列の値を入力したいです。
4
4
 
5
5
 
6
6
 

1

2021/07/12 06:05

投稿

yum28
yum28

スコア3

test CHANGED
File without changes
test CHANGED
@@ -4,50 +4,50 @@
4
4
 
5
5
 
6
6
 
7
- DIM t as long ,k as long
7
+ Dim t As Long , k As Long
8
8
 
9
- DIM ws1 = worksheet,
9
+ Dim ws1 = Worksheet,
10
10
 
11
- ws2 =worksheet
11
+ ws2 =Worksheet
12
12
 
13
- set ws1 =worksheets("sheet1")
13
+ Set ws1 =Worksheets("sheet1")
14
14
 
15
- set ws2 =worksheets("sheet2")
15
+ Set ws2 =Worksheets("sheet2")
16
16
 
17
- for t= 5 to xlw
17
+ For t= 5 to xlw(最後まで)
18
18
 
19
- for k= 3 to xlw
19
+ For k= 3 to xlw(最後まで)
20
20
 
21
21
 
22
22
 
23
- IF ws1.range("A" & t).value
23
+ If ws1.Range("A" & t).Value
24
24
 
25
- =ws2.range("Ｌ" & k).value then
25
+ =ws2.Range("Ｌ" & k).Value Then
26
26
 
27
27
 
28
28
 
29
- ws1.range("z5" & t).value
29
+ ws1.Range("z5" & t).Value
30
30
 
31
- =ws2.range("AV" & k).value
31
+ =ws2.Range("AV" & k).Value
32
32
 
33
- exit for
33
+ Exit For
34
34
 
35
35
  z=z+5
36
36
 
37
- end if
37
+ End If
38
38
 
39
- next
39
+ Next
40
40
 
41
41
 
42
42
 
43
- next
43
+ Next
44
44
 
45
45
 
46
46
 
47
47
 
48
48
 
49
- #ws1.rangeは数値がでていますが
49
+ #ws1.Rangeは数値がでていますが
50
50
 
51
- wr2.rangeはrengeメゾットは失敗しました。worksheetオブジェクトと記載されています。
51
+ wr2.RangeはRengeメゾットは失敗しました。Worksheetオブジェクトと記載されています。
52
52
 
53
- すみません、どなた様か教えていただきたいです。
53
+ すみません、どなた様か教えていただきたいです。iPhoneから入力しているためまたミスしていたら教えてください。