teratail
回答率
85.31%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問VBA Excel VBAでDo Until Loopのネスト、IF文を使って一致するものと一致しない物としたい

編集履歴

質問編集履歴

7

修整

2022/12/26 09:02

投稿

kagosimah
kagosimah

スコア7

test CHANGED
File without changes
test CHANGED
@@ -1,6 +1,12 @@
1
1
 
2
2
  ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-26/bff8b602-4f99-4eaa-9e61-e1cf91f5072f.jpeg)
3
3
 
4
+ Excel VBAでDo Until Loopのネスト、IF文を使って一致するものと一致しない物としたい
5
+
6
+ sheet1!a2:c5、sheet2!a2:c6を比較して、比較sheet!d2:f8に、一致するする物は
7
+ d2:f4、一致しないものはd6:f7と、Do Until loopのネスト、IF文を使って実現したいのですが、
8
+ 何回やっても、ループが回らず、上手く行きません。大変、お手数ですが、どなたか、ご存じの方、
9
+ 教えて頂けないでしょうか？office2010のバージョンです。
4
10
 
5
11
 
6
12
 
@@ -10,18 +16,18 @@
10
16
  ```vba
11
17
  Sub test()
12
18
  Dim i As Long, j As Long
13
- With Sheets("sheet1").Range("a1").CurrentRegion.Offset(1, 0)
19
+ 　With Sheets("sheet1").Range("a1").CurrentRegion.Offset(1, 0)
14
20
  .Resize(.Rows.Count - 1).Copy Sheets("比較").Range("a2")
15
- End With
21
+ 　　End With
16
22
 
17
23
  Dim Flag As Long
18
24
  Flag = 0
19
25
 
20
26
  i = 2
21
- Do Until i > Sheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Row
27
+ 　 Do Until i > Sheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Row
22
28
 
23
29
  j = 2
24
- Do Until j > Sheets("比較").Cells(Rows.Count, "a").End(xlUp).Row
30
+ 　 Do Until j > Sheets("比較").Cells(Rows.Count, "a").End(xlUp).Row
25
31
 
26
32
 
27
33
  Flag = 0
@@ -55,20 +61,9 @@
55
61
 
56
62
 
57
63
 
58
- ```### 前提![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-25/98345b01-442b-41ac-926d-c9bbe2653f48.jpeg)
64
+
59
65
 
60
66
  ここに質問の内容を詳しく書いてください。
61
- Excel VBAでDo Until Loopのネスト、IF文を使って一致するものと一致しない物としたい
62
-
63
-
64
-
65
-
66
-
67
-
68
- sheet1!a2:c5、sheet2!a2:c6を比較して、比較sheet!d2:f8に、一致するする物は
69
- d2:f4、一致しないものはd6:f7と、Do Until loopのネスト、IF文を使って実現したいのですが、
70
- 何回やっても、ループが回らず、上手く行きません。大変、お手数ですが、どなたか、ご存じの方、
71
- 教えて頂けないでしょうか？office2010のバージョンです。
72
67
 
73
68
  ### 発生している問題・エラーメッセージ
74
69
 
VBA

6

修整

2022/12/26 08:59

投稿

kagosimah
kagosimah

スコア7

test CHANGED
File without changes
test CHANGED
@@ -1,3 +1,12 @@
1
+
2
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-26/bff8b602-4f99-4eaa-9e61-e1cf91f5072f.jpeg)
3
+
4
+
5
+
6
+
7
+
8
+
9
+
1
10
  ```vba
2
11
  Sub test()
3
12
  Dim i As Long, j As Long
VBA

5

修整

2022/12/26 08:57

投稿

kagosimah
kagosimah

スコア7

test CHANGED
File without changes
test CHANGED
@@ -40,6 +40,12 @@
40
40
  i = i + 1
41
41
  Loop
42
42
  End Sub
43
+
44
+
45
+
46
+
47
+
48
+
43
49
  ```### 前提![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-25/98345b01-442b-41ac-926d-c9bbe2653f48.jpeg)
44
50
 
45
51
  ここに質問の内容を詳しく書いてください。
VBA

4

修整

2022/12/26 08:55

投稿

kagosimah
kagosimah

スコア7

test CHANGED
File without changes
test CHANGED
@@ -1,27 +1,4 @@
1
- ```ここに言語を入力
2
- コード
3
- ```### 前提![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-25/98345b01-442b-41ac-926d-c9bbe2653f48.jpeg)
4
-
5
- ここに質問の内容を詳しく書いてください。
6
- Excel VBAでDo Until Loopのネスト、IF文を使って一致するものと一致しない物としたい
7
-
8
-
9
-
10
-
11
-
12
-
13
- sheet1!a2:c5、sheet2!a2:c6を比較して、比較sheet!d2:f8に、一致するする物は
14
- d2:f4、一致しないものはd6:f7と、Do Until loopのネスト、IF文を使って実現したいのですが、
15
- 何回やっても、ループが回らず、上手く行きません。大変、お手数ですが、どなたか、ご存じの方、
16
- 教えて頂けないでしょうか？office2010のバージョンです。
17
-
18
- ### 発生している問題・エラーメッセージ
19
-
20
- ```
1
+ ```vba
21
- エラーメッセージ
22
- ```
23
-
24
- ### vba###
25
2
  Sub test()
26
3
  Dim i As Long, j As Long
27
4
  With Sheets("sheet1").Range("a1").CurrentRegion.Offset(1, 0)
@@ -63,6 +40,29 @@
63
40
  i = i + 1
64
41
  Loop
65
42
  End Sub
43
+ ```### 前提![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-25/98345b01-442b-41ac-926d-c9bbe2653f48.jpeg)
44
+
45
+ ここに質問の内容を詳しく書いてください。
46
+ Excel VBAでDo Until Loopのネスト、IF文を使って一致するものと一致しない物としたい
47
+
48
+
49
+
50
+
51
+
52
+
53
+ sheet1!a2:c5、sheet2!a2:c6を比較して、比較sheet!d2:f8に、一致するする物は
54
+ d2:f4、一致しないものはd6:f7と、Do Until loopのネスト、IF文を使って実現したいのですが、
55
+ 何回やっても、ループが回らず、上手く行きません。大変、お手数ですが、どなたか、ご存じの方、
56
+ 教えて頂けないでしょうか？office2010のバージョンです。
57
+
58
+ ### 発生している問題・エラーメッセージ
59
+
60
+ ```
61
+ エラーメッセージ
62
+ ```
63
+
64
+
65
+
66
66
 
67
67
 
68
68
  ```
VBA

3

修整依頼

2022/12/26 08:52

投稿

kagosimah
kagosimah

スコア7

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,6 @@
1
+ ```ここに言語を入力
2
+ コード
1
- ### 前提![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-25/98345b01-442b-41ac-926d-c9bbe2653f48.jpeg)
3
+ ```### 前提![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-12-25/98345b01-442b-41ac-926d-c9bbe2653f48.jpeg)
2
4
 
3
5
  ここに質問の内容を詳しく書いてください。
4
6
  Excel VBAでDo Until Loopのネスト、IF文を使って一致するものと一致しない物としたい
@@ -18,8 +20,8 @@
18
20
  ```
19
21
  エラーメッセージ
20
22
  ```
21
- vba
23
+
22
- ### 該当のソースコード
24
+ ### vba###
23
25
  Sub test()
24
26
  Dim i As Long, j As Long
25
27
  With Sheets("sheet1").Range("a1").CurrentRegion.Offset(1, 0)
VBA

2

追記

2022/12/25 07:50

投稿

kagosimah
kagosimah

スコア7

test CHANGED
File without changes
test CHANGED
@@ -18,10 +18,8 @@
18
18
  ```
19
19
  エラーメッセージ
20
20
  ```
21
-
21
+ vba
22
22
  ### 該当のソースコード
23
-
24
- ```vba```
25
23
  Sub test()
26
24
  Dim i As Long, j As Long
27
25
  With Sheets("sheet1").Range("a1").CurrentRegion.Offset(1, 0)
@@ -63,6 +61,8 @@
63
61
  i = i + 1
64
62
  Loop
65
63
  End Sub
64
+
65
+
66
66
  ```
67
67
 
68
68
  ### 試したこと
VBA

1

修正分、追記

2022/12/25 07:45

投稿

kagosimah
kagosimah

スコア7

test CHANGED
File without changes
test CHANGED
@@ -3,16 +3,15 @@
3
3
  ここに質問の内容を詳しく書いてください。
4
4
  Excel VBAでDo Until Loopのネスト、IF文を使って一致するものと一致しない物としたい
5
5
 
6
- TypeScriptで●●なシステムを作っています。
7
- ■■な機能を実装中に以下のエラーメッセージが発生しました。
8
6
 
9
- ### 実現したいこと
7
+
8
+
9
+
10
+
10
11
  sheet1!a2:c5、sheet2!a2:c6を比較して、比較sheet!d2:f8に、一致するする物は
11
12
  d2:f4、一致しないものはd6:f7と、Do Until loopのネスト、IF文を使って実現したいのですが、
12
13
  何回やっても、ループが回らず、上手く行きません。大変、お手数ですが、どなたか、ご存じの方、
13
- 教えて頂けないでしょうか？
14
+ 教えて頂けないでしょうか？office2010のバージョンです。
14
- ここに実現したいことを箇条書きで書いてください。
15
- - [ ] ▲▲機能を動作するようにする
16
15
 
17
16
  ### 発生している問題・エラーメッセージ
18
17
 
@@ -22,11 +21,11 @@
22
21
 
23
22
  ### 該当のソースコード
24
23
 
25
- ```VBA
24
+ ```vba```
26
25
  Sub test()
27
26
  Dim i As Long, j As Long
28
27
  With Sheets("sheet1").Range("a1").CurrentRegion.Offset(1, 0)
29
- .Resize(.Rows.Count - 1).Copy Sheets("比較").Range("a2") 'resize(5,0)resize(行数、列数)
28
+ .Resize(.Rows.Count - 1).Copy Sheets("比較").Range("a2")
30
29
  End With
31
30
 
32
31
  Dim Flag As Long
VBA