teratail
回答率
85.31%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問match関数の検索値が○○1,○○10等、文字と数値の時に○○1のセルに○○10が上書きされないようにしたい。

編集履歴

質問編集履歴

6

画像の修正

2023/02/07 02:45

投稿

shibakoppe
shibakoppe

スコア37

test CHANGED
File without changes
test CHANGED
@@ -76,15 +76,16 @@
76
76
  tatsu99様
77
77
  画像掲載させていただきます。
78
78
  分かりにくくて申し訳ございません。
79
+ ※シート2の一部表記が間違っていましたので、修正したものを再掲載させていただきました。
79
80
 
80
81
  シート1
81
82
  ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/58e9c7d8-5605-4a32-89ca-129531b11f60.jpeg)
82
83
 
83
84
  上記コードのまま使用すると
84
85
  シート2
85
- ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/a839ba43-fbe7-48d2-9269-999f2637a240.jpeg)
86
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/81d65b7b-9291-4b10-afce-40d3396eb1de.jpeg)
86
87
 
87
88
  となってしまうのですが、正しくは下記のようにしたいです。
88
89
 
89
90
  期待するシート2の形
90
- ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/9fc9afc6-cd9b-4cb6-8069-110584a55c3b.jpeg)
91
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/3a75f1ed-4f3e-414b-b6f6-d1cd1af62ed2.jpeg)
VBAマクロExcel

5

画像の掲載

2023/02/07 02:26

投稿

shibakoppe
shibakoppe

スコア37

test CHANGED
File without changes
test CHANGED
@@ -74,29 +74,17 @@
74
74
  ※追記
75
75
 
76
76
  tatsu99様
77
+ 画像掲載させていただきます。
77
- ありがとうございます。
78
+ 分かりにくくて申し訳ございません。
78
- 下記のような表記でよろしいでしょうか…？
79
- （番号は連番となっており、キー項目となっております。）
80
79
 
81
80
  シート1
82
- |番号|検索値+ファイル名|
83
- |:--|--:|
84
- |1||○○1_ファイル名|
85
- |1||○○2_ファイル名|
86
- |1||○○3_ファイル名|
87
- |1||○○10_ファイル名|
81
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/58e9c7d8-5605-4a32-89ca-129531b11f60.jpeg)
88
- |1||○○12_ファイル名|
89
- |1||○○13_ファイル名|
90
82
 
91
83
  上記コードのまま使用すると
92
84
  シート2
93
- |番号|○○1|○○2|○○3|……|○○10|……|○○80|
94
- |:--|:--:|:--:|:--:|:--:|:--:|:--:|--:|
85
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/a839ba43-fbe7-48d2-9269-999f2637a240.jpeg)
95
- |1|○○19_ファイル名|○○29_ファイル名|○○39_ファイル名|||||||
96
86
 
97
87
  となってしまうのですが、正しくは下記のようにしたいです。
98
88
 
99
89
  期待するシート2の形
100
- |番号|○○1|○○2|○○3|……|○○10|……|○○80|
101
- |:--|:--:|:--:|:--:|:--:|:--:|:--:|--:|
102
- |1|○○1_ファイル名|○○2_ファイル名|○○3_ファイル名|||○○10_ファイル名|||○○80_ファイル名|
90
+ ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-02-07/9fc9afc6-cd9b-4cb6-8069-110584a55c3b.jpeg)
VBAマクロExcel

4

コードの修正

2023/02/07 02:16

投稿

shibakoppe
shibakoppe

スコア37

test CHANGED
File without changes
test CHANGED
@@ -31,7 +31,7 @@
31
31
  For i = 2 To .Range("B" & Rows.Count).End(xlUp).Row
32
32
  r = WorksheetFunction.Match(.Cells(i, 1), ws2.Range("A:A"), 0)
33
33
  If Err.Number = 0 Then
34
- cc = MyMatch(.Cells(i, 2), Array("○○ 1", "○○ 2", "○○ 3", "○○ 4", "○○ 5", "○○ 6", "○○ 7", "○○ 8", "○○ 9", "○○ 10", _
34
+ c = MyMatch(.Cells(i, 2), Array("○○ 1", "○○ 2", "○○ 3", "○○ 4", "○○ 5", "○○ 6", "○○ 7", "○○ 8", "○○ 9", "○○ 10", _
35
35
  "○○ 11", "○○ 12", "○○ 13", "○○ 14", "○○ 15", "○○ 16", "○○ 17", "○○ 18", "○○ 19", "○○ 20", _
36
36
  "○○ 21", "○○ 22", "○○ 23", "○○ 24", "○○ 25", "○○ 26", "○○ 27", "○○ 28", "○○ 29", "○○ 30", _
37
37
  "○○ 31", "○○ 32", "○○ 33", "○○ 34", "○○ 35", "○○ 36", "○○ 37", "○○ 38", "○○ 39", "○○ 40", _
VBAマクロExcel

3

追記

2023/02/07 02:06

投稿

shibakoppe
shibakoppe

スコア37

test CHANGED
File without changes
test CHANGED
@@ -71,3 +71,32 @@
71
71
  お手数ですが、参考となるURLやコード等をご教授いただきたく質問させていただきました。
72
72
  何卒よろしくお願い申し上げます。
73
73
 
74
+ ※追記
75
+
76
+ tatsu99様
77
+ ありがとうございます。
78
+ 下記のような表記でよろしいでしょうか…？
79
+ （番号は連番となっており、キー項目となっております。）
80
+
81
+ シート1
82
+ |番号|検索値+ファイル名|
83
+ |:--|--:|
84
+ |1||○○1_ファイル名|
85
+ |1||○○2_ファイル名|
86
+ |1||○○3_ファイル名|
87
+ |1||○○10_ファイル名|
88
+ |1||○○12_ファイル名|
89
+ |1||○○13_ファイル名|
90
+
91
+ 上記コードのまま使用すると
92
+ シート2
93
+ |番号|○○1|○○2|○○3|……|○○10|……|○○80|
94
+ |:--|:--:|:--:|:--:|:--:|:--:|:--:|--:|
95
+ |1|○○19_ファイル名|○○29_ファイル名|○○39_ファイル名|||||||
96
+
97
+ となってしまうのですが、正しくは下記のようにしたいです。
98
+
99
+ 期待するシート2の形
100
+ |番号|○○1|○○2|○○3|……|○○10|……|○○80|
101
+ |:--|:--:|:--:|:--:|:--:|:--:|:--:|--:|
102
+ |1|○○1_ファイル名|○○2_ファイル名|○○3_ファイル名|||○○10_ファイル名|||○○80_ファイル名|
VBAマクロExcel

2

追記

2023/02/07 01:54

投稿

shibakoppe
shibakoppe

スコア37

test CHANGED
@@ -1 +1 @@
1
- match関数の条件について
1
+ match関数の検索値が○○1,○○10等、文字と数値の時に○○1のセルに○○10が上書きされないようにしたい。
test CHANGED
@@ -13,6 +13,8 @@
13
13
  ### 発生している問題・エラーメッセージ
14
14
 
15
15
  検索条件に○○1、○○2、……、○○80という文字+数値の形の文言を使用しているのですが、○○10以降が○○1のセルに上書きされてしまい、正しく抽出することができません。
16
+ また、○○10も抽出が上手くできておらず、文字の後の数字が2桁になると、1桁目のみ判断されてしまっている為、○○10以降が正しいセルへと抽出されません。
17
+
16
18
 
17
19
  ### 該当のソースコード
18
20
 
@@ -59,6 +61,12 @@
59
61
 
60
62
 
61
63
  ```
64
+
65
+ 「検査範囲の引数の値は、昇順の並べ替えでは、1 ～ 9、A ～ Z、あ～ん、FALSE ～ TRUE の順に配置されます。」とMicrosoftサポートには記載があったですが、
66
+ 「1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20」という並びが
67
+ 「1,10,11,12,13,14,15,16,17,18,19,2,20,3,4,5,6,7,8,9」として判断されてしまうということですよね…？
68
+ 正しく「1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20」と認識させるにはどうすればようのでしょうか…？
69
+
62
70
  数値を変えてみたりしたのですが、状況が改善されず、
63
71
  お手数ですが、参考となるURLやコード等をご教授いただきたく質問させていただきました。
64
72
  何卒よろしくお願い申し上げます。
VBAマクロExcel

1

タグの追加

2023/02/07 01:28

投稿

shibakoppe
shibakoppe

スコア37

test CHANGED
File without changes
test CHANGED
File without changes
VBAマクロExcel
マクロExcel