質問編集履歴
7
修正
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
VBAで同じ値がある
|
1
|
+
VBAで同じ値があるとき、同じ値がある指定セルを転記したい
|
test
CHANGED
File without changes
|
6
補足
test
CHANGED
File without changes
|
test
CHANGED
@@ -10,7 +10,7 @@
|
|
10
10
|
|
11
11
|
Sheet1を基にSheet1"A2"から最終行までを、Sheet2の"I"と照らし合わせ
|
12
12
|
|
13
|
-
同じ数字があった場合に、Sheet1"A"にSheet2"A"
|
13
|
+
同じ数字があった場合に、Sheet1"A"にSheet2"A"を書き換えたいです。
|
14
14
|
|
15
15
|
|
16
16
|
|
5
補足
test
CHANGED
File without changes
|
test
CHANGED
@@ -20,11 +20,21 @@
|
|
20
20
|
|
21
21
|
|
22
22
|
|
23
|
-
<参考資料>
|
23
|
+
### <参考資料>
|
24
|
+
|
25
|
+
Sheet1
|
24
26
|
|
25
27
|
![Sheet1](6bf761a786a5ac24f290f4f043e0e185.png)
|
26
28
|
|
29
|
+
|
30
|
+
|
31
|
+
Sheet2
|
32
|
+
|
27
33
|
![Sheet2](b75044525bf0b7792f12fb9045f1d63d.png)
|
34
|
+
|
35
|
+
|
36
|
+
|
37
|
+
希望結果
|
28
38
|
|
29
39
|
![希望結果](015894b6dc09cb704525685893cda5c0.png)
|
30
40
|
|
4
画像の差し替え
test
CHANGED
File without changes
|
test
CHANGED
@@ -19,6 +19,8 @@
|
|
19
19
|
お力を貸していただけると幸いです。
|
20
20
|
|
21
21
|
|
22
|
+
|
23
|
+
<参考資料>
|
22
24
|
|
23
25
|
![Sheet1](6bf761a786a5ac24f290f4f043e0e185.png)
|
24
26
|
|
3
画像
test
CHANGED
File without changes
|
test
CHANGED
@@ -24,7 +24,9 @@
|
|
24
24
|
|
25
25
|
![Sheet2](b75044525bf0b7792f12fb9045f1d63d.png)
|
26
26
|
|
27
|
-
![希望結果](d
|
27
|
+
![希望結果](015894b6dc09cb704525685893cda5c0.png)
|
28
|
+
|
29
|
+
|
28
30
|
|
29
31
|
|
30
32
|
|
2
コード
test
CHANGED
File without changes
|
test
CHANGED
@@ -25,3 +25,45 @@
|
|
25
25
|
![Sheet2](b75044525bf0b7792f12fb9045f1d63d.png)
|
26
26
|
|
27
27
|
![希望結果](de72ec1ec3649fa7fa338b8b3e31159b.png)
|
28
|
+
|
29
|
+
|
30
|
+
|
31
|
+
自分で書いたコード
|
32
|
+
|
33
|
+
```VBA
|
34
|
+
|
35
|
+
'//使用セルの最終行を取得
|
36
|
+
|
37
|
+
Dim wS As Worksheet
|
38
|
+
|
39
|
+
Set wS = ThisWorkbook.Worksheets("Sheet1)
|
40
|
+
|
41
|
+
Dim ws1 As Worksheet
|
42
|
+
|
43
|
+
Set ws1 = ThisWorkbook.Worksheets("Sheet2")
|
44
|
+
|
45
|
+
Dim fin_line As Long, k
|
46
|
+
|
47
|
+
With ws1.UsedRange
|
48
|
+
|
49
|
+
fin_line = .Rows(.Rows.Count).Row
|
50
|
+
|
51
|
+
End With
|
52
|
+
|
53
|
+
For k = 2 To fin_line
|
54
|
+
|
55
|
+
|
56
|
+
|
57
|
+
If wS.Range("A" & k) = ws1.Range("I" & k) Then
|
58
|
+
|
59
|
+
wS.Range("A" & k).Value = ws1.Range("A" & k)
|
60
|
+
|
61
|
+
End If
|
62
|
+
|
63
|
+
DoEvents
|
64
|
+
|
65
|
+
Next k
|
66
|
+
|
67
|
+
```
|
68
|
+
|
69
|
+
これだと希望結果を出せないのは分かっておりますが、いい方法を思いつかないです・・
|
1
画像
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,5 +1,3 @@
|
|
1
|
-
<内容>
|
2
|
-
|
3
1
|
Sheet1 :4桁の数字が"A"に100行まで入っている
|
4
2
|
|
5
3
|
Sheet2 :"I"にSheet1のAに入っている数字がばらばらに入っている。
|
@@ -19,3 +17,11 @@
|
|
19
17
|
どうしても同じ値がある行に書き換えるというコードが書けないです・・・
|
20
18
|
|
21
19
|
お力を貸していただけると幸いです。
|
20
|
+
|
21
|
+
|
22
|
+
|
23
|
+
![Sheet1](6bf761a786a5ac24f290f4f043e0e185.png)
|
24
|
+
|
25
|
+
![Sheet2](b75044525bf0b7792f12fb9045f1d63d.png)
|
26
|
+
|
27
|
+
![希望結果](de72ec1ec3649fa7fa338b8b3e31159b.png)
|