teratail
回答率
85.34%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問EXCEL VBA Sortすると崩れる

編集履歴

質問編集履歴

3

修正

2020/08/21 02:36

投稿

nuko3
nuko3

スコア31

test CHANGED
File without changes
test CHANGED
@@ -24,7 +24,7 @@
24
24
 
25
25
 
26
26
 
27
- ※想定結果
27
+ ※期待の結果
28
28
 
29
29
  |ID|ロットNo|製品名|素材名|作業者|
30
30
 
@@ -40,7 +40,7 @@
40
40
 
41
41
 
42
42
 
43
- ※実行結果
43
+ ※実際の結果
44
44
 
45
45
  |ロットNo|作業者|素材名|ID|製品名|
46
46
 

2

想定結果の追加

2020/08/21 02:36

投稿

nuko3
nuko3

スコア31

test CHANGED
File without changes
test CHANGED
@@ -19,6 +19,22 @@
19
19
  |2001|10005|zzz|xyz|Hさん|
20
20
 
21
21
  |2002|10014|zyx|aaa|Uさん|
22
+
23
+ |2003|10080|bbb|ccc|Kさん|
24
+
25
+
26
+
27
+ ※想定結果
28
+
29
+ |ID|ロットNo|製品名|素材名|作業者|
30
+
31
+ |:--|:--:|--:|||
32
+
33
+ |2001|10005|zzz|xyz|Hさん|
34
+
35
+ |2002|10014|zyx|aaa|Uさん|
36
+
37
+ |2000|10050|xxx|yyy|Aさん|
22
38
 
23
39
  |2003|10080|bbb|ccc|Kさん|
24
40
 

1

追記

2020/08/21 02:35

投稿

nuko3
nuko3

スコア31

test CHANGED
File without changes
test CHANGED
@@ -59,3 +59,49 @@
59
59
  Windows 10 Pro 1909
60
60
 
61
61
  Excel 2019
62
+
63
+
64
+
65
+ ### 追記
66
+
67
+ ソートするプログラムを実行する前に、行ごとにソートするプログラムを１回だけテストで実行してました。
68
+
69
+ 新規作成で試したところ、これを実行したあとに上記のソートがおかしくなる様なのですが、知識が無くこのプログラムの影響を解除する方法がわかりません...。
70
+
71
+ 参考:
72
+
73
+ [https://jun1ch.com/excel-across-sort](https://jun1ch.com/excel-across-sort)
74
+
75
+ [https://oshiete.goo.ne.jp/qa/5288606.html](https://oshiete.goo.ne.jp/qa/5288606.html)
76
+
77
+ ```VBA
78
+
79
+ Sub test1()
80
+
81
+ Dim r As Range
82
+
83
+ Dim srng As Range
84
+
85
+
86
+
87
+ Set srng = Range("D1:D530")
88
+
89
+ For Each r In srng
90
+
91
+ '列単位昇順並べ替え
92
+
93
+ r.Resize(, 6).Sort Key1:=r, _
94
+
95
+ Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
96
+
97
+ MatchCase:=False, Orientation:=xlLeftToRight, _
98
+
99
+ SortMethod:=xlPinYin, DataOption1:=xlSortNormal
100
+
101
+ Next
102
+
103
+ End Sub
104
+
105
+ コード
106
+
107
+ ```